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PREFACE 



USING THE MANUAL 



Effective^ use of this Program Logic Manual 
(PLM) requires an understanding of the con- 
tents of the following manuals: 

IBM System/360 Principles of Operation , 
Form A22-6 821 



A user of this manual should read the 
introductory section to obtain an under- 
standing of the overall structure of the 
system. From the material presented in 
that section, the user can determine the 
functions accomplished by the various seg- 
ments of the system. 



IBM System/36 Basic Programming Support 
FORTRAN IV , Form C2 8-6504 

IBM System/360 Basic Programming Support 
FORTRAN Programmer's Guide , Form 
C28-6583 



The introduction to each segment gives 
the overall logic of that segment, and 
indicates the routine/subroutines associat- 
ed with the different functions of the 
segment. 



ORGANIZATION OF THE MANUAL 



The manual is divided into five parts. 
The first part contains an introduction 
that describes the overall structure of the 
IBM System/360 Basic Programming Support 
FORTRAN IV system. This introduction is 
required reading for a basic understanding 
of the system. The second part describes 
the control segments for the system, while 
the remaining three parts reflect the three 
functions performed by the system. 

Reference material for the PLM is con- 
tained in the appendices. 



Each routine/subroutine description 
within a given segment provides the user 
with a definition of the function and a 
description of the method employed to 
implement that function. A routine/ 
subroutine description, when necessary, is 
accompanied by a corresponding flowchart. 
Where possible, a name for the associated 
portion of coding in the program listing is 
placed on an individual block in the flow- 
chart. This name gives a direct relation- 
ship between the flowchart and the program 
listing. 



DEPTH OF DETAIL 

This PLM provides a comprehensive under- 
standing of the FORTRAN IV system down to 
the routine/subroutine level. 



In addition to flowcharts for routines/ 
subroutines , flowcharts are provided at 
the introductory levels to supplement the 
discussion of concepts and overall logic. 



Copies of this and other IBM publications can be obtained through IBM 
Branch Offices. A form has been provided at the back of this 
publication for readers' comments. If the form has been detached, 
comments may be directed to: 

I IBM Programming Publications, Rochester, Minnesota 55901 
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PART 1: INTRODUCTION 



This part contains a concise description 
of the Basic Programming Support FORTRAN IV 
system. 
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IBM SYSTEM/360 BASIC PROGRAMMING SUPPORT FORTRAN IV 



IBM System/360 Basic Programming Support 
FORTRAN IV operates independently of any 
other programming system. The system is 
comprised of segments that reside on a 
system tape. The segments are read into 
main storage and executed , depending on the 
function to be performed. The three system 
functions are: 

1. Compilation. 

2. Object- time execution. 

3. System modification. 

The segments that are always required, 
irrespective of the type of processing 
performed by the FORTRAN system, are the 
FORTRAN System Director and the Control 
Card routine. 

In addition, the segments of the system 
used for compilation are Phases 10, 12, 14, 
15, 20, 25, and 30; for object- time execu- 
tion, the FORTRAN relocating loader and 
IBCOM; and for system modification, the 
editor. 

Chart 00 represents the overall logic 
flow for the system and Figure 1 represents 
the input/output flow for the system. 



1. A source program is to be compiled. 

2. An object program is to be executed. 

3. The system is to be modified. 

4. A combination of functions is to be 
performed (e.g., compile and execute). 



SOURCE PROGRAM COMPILATION 



Source programs written in the IBM 
System/360 Basic Programming Support 
FORTRAN IV language are compiled by the 
segments on the system tape that constitute 
the Basic Programming Support FORTRAN com- 
piler. 

The compiler segments are the FSD, the 
Control Card routine, and the seven phases 
(10, 12, 14, 15, 20, 2-5, and 30) . 

The FORTRAN compiler analyzes the source 
program statements and transforms them into 
an object program compatible to IBM 
System/360. In addition, if any source 
program errors exist, the FORTRAN compiler 
produces appropriate messages. At the 
user's option, a complete ^listing of the 
source program is produced and/or an object 
deck is punched. 



SYSTEM INITIALIZATION 



The system is initiated by operator 
action; pressing the IPL key. Thus, the 
operator causes the initial program load 
(IPL) to be read. IPL reads in the FORTRAN 
System Director from, and passes control 
to, the system. 



FORTRAN SYSTEM DIRECTOR 



The FORTRAN System Director (FSD) con- 
trols the various functions of the system. 
It remains in storage during compilation, 
object-time execution, and system modifica- 
tion. Initially, the FSD reads in the 
Control Card routine. 



FORTRAN SYSTEM DIRECTOR (COMPILATION) 



The FORTRAN System Director performs the 
following functions during a compilation: 



1. 
2. 
3. 
4. 



required 



for 



Handles the initialization 

for a compilation. 

Loads each phase of the compiler 

execution. 

Fills the input/output (I/O) requests 

of the various phases of the compiler. 

Determines the point at which control 

is to be returned to a phase after an 

I/O request of that phase is filled. 



Because a compilation is to be per- 
formed, the FSD reads in Phase 10 and 
passes control to it. 



CONTROL CARD ROUTINE 



PHASE 10 



The Control Card routine reads in con- 
trol cards and determines, among other 
things, whether: 



Phase 10 reads in each statement of the 
source program and converts the statement 
(unless it is a COMMON or EQUIVALENCE | 
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statement:) into intermediate text which is 
used as input to subsequent phases of the 
compiler. To allow this intermediate text 
to be properly processed, certain informa- 
tion must be known about the symbols in the 
source statements. This information is 
maintained in a dictionary and an overflow 
table. For COMMON and EQUIVALENCE state- 
ments , Phase 10 produces another type of 
text which remains in storage to be proc- 
essed by Phase 12. 

Upon completion of Phase 10 processing, 
control returns to the FSD, which reads in 
and passes control to Phase 12. 



PHASE 12 



Upon completion of Phase 14 processing, 
control returns to the FSD, which reads in 
and passes control to Phase 15. 



PHASE 15 



Phase 15 primarily translates arithmetic 
expressions into approximate machine code; 
that is, it produces the data necessary to 
allow the text word to be converted to a 
machine instruction by Phase 25. 

Upon completion of Phase 15 processing, 
control returns to the FSD, which reads in 
and passes control to Phase 20. 



Phase 12 primarily allocates storage to 
symbols entered in the dictionary, overflow 
table, COMMON text, and EQUIVALENCE text. 
The storage allocated at this time dictates 
where the various symbols will reside in 
main storage during the execution of the 
object program. The main storage reserved 
for COMMON and EQUIVALENCE text is then 
made available for subsequent phases. 

Phase 12 punches loader input cards for 
the object program and text cards for all 
constants used by the program, if the DECK 
option is specified. It writes these cards 
on the GO tape (a temporary tape containing 
any object program produced) , if the GOGO 
or COMPILE and GO options are specified. 
If the MAP option is specified, all symbols 
and their relative addresses are printed as 
part of a storage map, as the addresses are 
being assigned. 

Upon completion of Phase 12 processing, 
control returns to the FSD, which reads in 
and passes control to Phase 14. 



PHASE 14 



Phase 14 reads the intermediate text 
created by Phase 10 and replaces any poin- 
ters to dictionary information with infor- 
mation accessed from the dictionary. Phase 
14 converts intermediate text for FORMAT 
statements to an internal code. At object- 
time execution, this internal code is used 
by the IBCOM routine (an object-time I/O 
control program) to place input and output 
records into the specified format. If 
requested, the code is written on the GO 
tape and/or punched on text cards. 

The main storage reserved for the 
dictionary is then made available for sub- 
sequent phases. 



PHASE 20 



Phase 20 increases the efficiency of the 
object program by decreasing the amount of 
computation associated with subscript 
expressions. Phase 20, if requested via 
the DECK option, punches loader input cards 
for any required library exponentiation 
subprograms, for any references to IBCOM, 
and for literals that are generated during 
the phase in connection with array dis- 
placement. 

Upon completion of Phase 20 processing, 
control returns to the FSD which, in turn, 
reads in and passes control to Phase 25 or 
30 depending on whether: 

1. The COMPILE and GO, GOGO, or NOGO 
option is specified. 

2. Any source program errors are found. 

If the GO option is specified and source 
program errors are found, the FSD passes 
control to Phase 30. If no source program 
errors are found, the FSD passes control to 
Phase 25. 

If the GOGO option is specified, the FSD 
passes control to Phase 25, irrespective of 
whether source program errors are found. 

If the NOGO option is specified and 
source program errors are found, the FSD 
passes control to Phase 30. If no source 
program errors are found, the FSD passes 
control to the Control Card routine. 



PHASE 25 



Phase 25 analyzes the text produced by 
the preceding phases of the compiler and 
transforms that text, wherever necessary, 
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I/O Flow for IBM System/360 BPS FORTRAN (sheet 1 of 2) 
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Figure 1. I/O Flow for IBM System/360 BPS FORTRAN (sheet 2 of 2) 
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into the desired object code. It assembles 
the entire transformed text into a card 
format that is acceptable to the Basic 
Programming Support FORTRAN loader. Thus, 
the output of Phase 25 (and the compiler) 
is an object program in the form of loader 
input cards. 



Upon completion of Phase 25 processing, 
control returns to the FSD, which reads in 
and passes control to Phase 3 if source 
program errors are found. If no source 
program errors are found, control is passed 
to the Control Card routine. 



FORTRAN SYSTEM DIRECTOR (EXECUTION) 



The FORTRAN System Director performs the 
following functions during object-time exe- 
cution: 

1 . Handles the initialization required 
for an execution. 

2. Loads the FORTRAN loader into main 
storage. 

3 . Loads IBCOM into main storage after 
the FORTRAN loader performs its 
duties. 

4. Fills the I/O requests of the FORTRAN 
loader and the IBCOM routine. 



PHASE 30 



FORTRAN RELOCATING LOADER 



Phase 30 produces error and warning 
messages signalled by error/warning indica- 
tors set in the output text of any preced- 
ing phase. 

If no error or warning conditions are 
encountered during the compilation. Phase 
30 is bypassed. Upon completion of Phase 
30 processing, control returns to the FSD. 



The FORTRAN loader loads the main object 
program and any associated object subpro- 
grams into main storage from the GO tape 
(or from the card reader) • In addition, it 
loads the required out-of-line subprograms 
from the library on the system tape. This 
produces a storage map of each object 
program that is loaded, if the MAP option 
is specified. Upon completion of the load- 
ing, control passes to the FSD. 



COMPLETION OF COMPILATION 



IBCOM 



At the completion of a compilation, the 
FSD passes control to the Control Card 
routine to read in any additional cards for 
processing. If there are no additional 
cards (i.e., another source program to be 
compiled) , the FSD either reads in the 
relocating loader and passes control to it, 
or displays an end of job message, and then 
goes into a wait status, depending on the 
option specified. If the GO or GOGO 
options are specified, control is passed to 
the loader. If the NOGO option is speci- 
fied, an end of job message is displayed, 
and a wait status is entered. 



After the FORTRAN loader has been used, 
the FSD loads the IBCOM routine from the 
system tape over the FORTRAN loader. The 
IBCOM routine serves as the hub of the 
FORTRAN input/output object code state- 
ments. It is used by the object program as 
an interface with the I/O routines in the 
FSD. 

Although the I/O routines in the FSD 
perform the actual I/O operations, IBCOM 
sets up all required information. For 
example, IBCOM converts any data to be read 
or written by the FSD to its specified 
format. IBCOM remains in main storage 
until the conclusion of object-time execu- 
tion. 



OBJECT PROGRAM EXECUTION 



An object program generated by the 
FORTRAN compiler is executed through the 
use of certain segments on the system tape. 
These segments are the FORTRAN System 
Director, the FORTRAN Relocating Loader, 
and the IBCOM routine. 



COMPLETION OF EXECUTION 



At the completion of object- time execu- 
tion, control returns to the FSD from the 
object program. 
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SYSTEM MODIFICATION 



EDITOR 



The Basic Programming Support FORTRAN 
system may be tailored to fit the program- 
ming requirements of a particular installa- 
tion . 

The editor, a segment of the FORTRAN 
system, enables the user to revise one or 
more segments of the system tape. This 
revision (the addition, replacement, or 
deletion of features as desired) is accom- 
plished through the use of control cards 
(also referred to as control statements) • 



After the FSD loads the editor into main 
storage, the editor reads in the system 
maintenance control cards (and any object 
decks associated with them) and modifies 
each segment of the FORTRAN system as 
specified. The editor has control through- 
out the editing process. The editing proc- 
ess ends when there are no more control 
cards to be read or when the editor encoun- 
ters a control card indicating that no more 
editing is to be done. Control is then 
returned to the FSD. 



FORTRAN SYSTEM DIRECTOR (MODIFICATION) 



The FORTRAN System Director performs the 
following functions during a system modi- 
fication: 

1. Handles the initialization required 
for a system modification. 

2. Loads the editor into main storage. 

3. Fills the I/O requests of the editor 
in reading in the segments of the 
system to be modified and writing out 
the modified segments on the new sys- 
tem tape. 



COMPLETION OF SYSTEM MODIFICATION 



At the completion of system modifica- 
tion, control returns to the FSD from the 
editor. If there is additional processing 
to be performed in the job (e.g., compiling 
a source program using the new system 
tape) , the FSD gives control to the Control 
Card routine. Otherwise, the FSD enters a 
wait status. 
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•X* LOAD CONTROL 

♦CARD RTN GIVE 

♦ CONTROL TO CC 



DETERMINE 

FUNCTION TO 

■ BE PERFORMED 



LOAD EDITOR — 

GIVE CONTROL 

TO EDITOR 



PERFORM 

SYSTEM 

IAINTENANCE 



LOAD PHI 5 — 

GIVE CONTROL 

TO PHI 5 



TRANSFORM 
ARITHMETIC 

EXPRESSIONS 



END OF JOB 



»»«*C3**«****** 

♦GIVE CONTROL TO* 

X* FSD TO * 

* TERMINATE JOB * 



LOAD PH20 

GIVE CONTROL 

TO PH20 



PERFORM 

SUBSCRIPT 

OPTIMIZATION 



.* NOGO *. 

OPTION i 
SPECIFIED 



OBJECT 

PROGRAM 

•EXECUTION. 



.X* LOAD LOADER — < 

* GIVE CONTROL 1 

* TO LOADER < 



.* ANY *. 
.MAJOR ERRORS . N 
♦TO BE PROCESSED*. 
*. BY PH30 .♦ 



CONVERT 

SOURCE 

STATEMENTS 



♦LOAD IN OBJECT * 

♦ PROGRAM- < 

* THEN IBCOM ) 



.♦ GOGO ♦. 

OPTION *. YES 
SPECIFIED ...... 



LOAD PH25 

GIVE CONTROL 
TO PH25 



LOAD PH12 

GIVE CONTROL 

TO PH12 



*JZ*********< 



LOAD PH14 — 

GIVE CONTROL 

TO PH14 



♦REPLACE POINTRS^ 
♦WITH ADDRESSES-^ 
♦PROCESS FORMAT * 



CONTROL IS 

GIVEN TO 

OBJECT PROGRAM 



• LOAD PH30 — 
GIVE CONTROL 
TO PH30 



♦PRODUCE ERROR/ ■ 

♦ WARNING 

* MESSAGES 



PRODUCE 

OBJECT 

PROGRAM 



* ERRORS OR *. 
ARNINGS TO BE < 
♦. PROCESSED. ♦ 



Chart 00. FORTRAN System Overall Logic Diagram 
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PART 2 : SYSTEM CONTROL SEGMENTS 



Control of the various functions of the 
Basic Programming Support (BPS) FORTRAN IV 
system resides within the FORTRAN System 
Director (FSD) . During the system func- 
tions (compilation, object-time execution, 
and system modification) , the FSD remains 
in storage. 

Initially, the FSD reads in the Control 
Card routine to determine which system 
function is to be performed. 
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FORTRAN SYSTEM DIRECTOR 



The FORTRAN System Director (FSD) con- 
trols the functions of the FORTRAN system. 
The FSD remains. in storage during compila- 
tion, object-time execution, and/or system 
modification. 



All communication between the various 
segments of the system and the FSD is by 
supervisor call (SVC) instructions. An SVC 
instruction requests the FSD to perform a 
certain operation. One SVC instruction is 
reserved for the I/O operations of the FSD. 
(These operations include such things as 
reading tape, writing tape, printing, and 
punching.) Loading of the various segments 
is also initiated by an SVC instruction. 



(SNTPIN) , provide for tape read and/or 
write retry procedures (SRETRY) , and under 
certain conditions allow error recovery 
procedures (SERP) . The routines provide 
the initial location of the device assign- 
ment table if it is not already known 
(SD1) , set up for a set mode operation code 
and CAW (SETMD) , and set up for a check 
operation (SD2). They set up simple con- 
trol operations (SD5) , data operations 
(SD7), and print operations (SD74, SD741) . 



The I/O routines construct a model for 
the current call. This model consists of 
12 bytes that contain all the information 
necessary to process the current call. 
After the model is fully developed, it 
contains the CCW for the current I/O opera- 
tion. 



A communications area exists within the 
FSD. This area serves as a central gather- 
ing point for common information. The 
contents of the communications area are 
specified in the program listing supplied 
by IBM for the FSD. 



Chart 01, the FSD Overall Logic Diagram, 
indicates the entrance to and exit from the 
FSD and is a guide to the overall functions 
of the FSD. 



I/O OPERATIONS 



The FORTRAN System Director (FSD) trans- 
fers control to the I/O routines whenever 
an SVC instruction, requesting an I/O oper- 
ation, is encountered. The I/O operations 
are explained in accordance with: 

1. The functions supported. 

2. SVC I/O formats. 

3. Data set designation. 

4. Return to the user's program. 

In general, the flow within the I/O 
routines begins with an SVC instruction. 
The co-ordination of I/O devices and func- 
tions is controlled by the device assign- 
ment (referred to as a unit table on the 
program listing provided by IBM for the I/O 
routines). The I/O routines set up for 
(SIODIR) and initiate (SIOGO) all the I/O 
operations. They handle all I/O interrupts 



I/O FUNCTIONS 



The BPS FORTRAN I/O routines support the 
functions defined in Figure 2. 



(FUNCTION 



"T 1 

(EXPLANATION g CONSIDERATIONS! 



i. + .| 



Write [This operation provides an 
(output facility for areas 
jthat are to be handled as 
(data. Modifiers are speci- 
jfiedinthe call parameters. 

+ 

Read |This operation provides an 
| input facility. Modifiers 
jare specified in the call 
j parameters . 

+ 

Control 3 [This facility is for opera- 
tions not involving read or 
(write, such as immediate 
| space, stacker select, set 
|mode, etc. (operation code 
(Oil). 

- X - 


T 

Control 7 (This facility is for opera- 
j tions not involving read or 
j write, such as rewind, 
| space, write tape mark, etc. 
| (operation code 111) . 



L J. J 



Figure 2. I/O Functions 



(continued) 
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(continued) 



I FUNCTION 



h 



Print 



-T" * — ' 1 

(EXPLANATION S CONSIDERATIONS) 

_+„___. „_ ^ 

This operation provides a 
facility for areas intended 
for graphic material. It is 
similar to the write opera- 
tion except that it allows 
carriage control specifi- 
cation for off-line work (as 
determined by the class of 
device) . The carriage con- 
trol character is located in 
the first byte of the data 
area. When the call is to a 
graphic device, this charac- 
ter controls the insertion 
of the appropriate 
System/360 modifiers. When 
a call is to a non-graphic 
device , the control charac- 
ter located in the first 
byte is written out as the 
first data byte and the 
modifiers specified in the 
call parameter are used. 



Check (Wait) 



H 



This operation provides the 
facility to examine a desig- 
nated unit for a busy condi- 
tion, waiting if the unit is 
busy, and interrogating the 
result. (This function is 
automatically included in 
WAIT calls.) Return is made 
to Normal return, Unit 
Exceptional Condition 
return, or Error return, as 
indicated in a data set con- 
trol block within the device 
assignment table and deter- 
mined by current conditions. 
If no operation has been 
initiated on the designated 
unit since the last check of 
the unit, direct normal 
return is made. (See 
"Return to User's Program. w ) 



H 



Note: 



The print facility is divided into 

two subf unctions, PRINT A and PRINT B 
(see Figures 12 and 13 respectively). 



Figure 2. I/O Functions 



SVC I/O FORMATS 



The operation and data set desired by 
the user is specified in an SVC instruc- 



tion. One SVC format is used as the basis 
of all I/O calls? however, additional I/O 
routine capabilities can be introduced by 
parameters contained in an expansion of the 
basic format. These capabilities include 
the use of modifiers to the I/O command 
operation code, specification of data par- 
ameters in indicated registers (rather than 
in the data set control block) , and tem- 
porary cancellation of overlapped operation 
on the data set designated by the call. 
The structure of the SVC I/O formats is 
defined in Figure 3. 



r . — T T T 

j NAME | FORMAT j BYTES j EXPLANATION 



Base 
Format 



Expan- 
sion A 



SVC I/O 



T DS 



SPEC 



Start 

of 
Return 



SVC I/O 



T DS 



This format is used 
for all simple data 
operations, that is 
for operations that 
do not involve com- 
mand operation modi- 
fiers; > this format 
is used for Check 
calls.* 



H 



Specify the type 
SVC, 



of 



Tag and data set. 
Bits 4-7 give the 
data set reference 

number (0 through 
15). 

All I/O functions 
are defined for the 
routines in this 
byte. See Figure 4 
for a definition of 
this field. 

See "Return • to 
User's Program* 9 for 
a definition of this 
field. 



This format is used 
for Control 3, Con- 
trol 7, and for any 
operations requiring 
command modifiers. 

Same as for the base 
format. 

Same as for the base 
format. 



H 



Figure 3. SVC I/O Formats (continued) 
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(continued) 



r T T T 

I NAME 1 FORMAT I BYTES I EXPLANATION 



:JPEC 



MODS 



A B 



Start 

of 
Return 



Same as for the base 
format . 

This byte supplies 
the command modifi- 
ers for the current 
operation. 

A and B are any pair 
of registers con- 
taining the suffer 
address (in A) and 
the byte count (in 
B) . Both fields 
must be supplied if 
either is supplied, 
and register con- 
tents will replace 
current data param- 
eters in the data 
set control block. 
An A,B of indi- 
cates that the cur- 
rent data parameters 
are to be used. 

See "Return to 
User's Program" for 
a definition of this 
field. 



h 



H 



* Data parameters (address of buffer area 
and byte count) must exist in the UCB. 



Figure 3 . SVC I/O Formats 



A detailed discussion of those fields of 
the SVC formats peculiar to the BPS FORTRAN 
I/O routines is presented in the following 
sections . 



I- 



FLAGS 
(bits 
0-3) 



0000| 

j. + - 

00011 



0010 



h 



OPERA- 
TIONS 
(bits 
4-7) 



BITS 



T T 

HEXA- 
DECIMAL 



0100 



1100 
1101 
1110 

1111 

+ — - 

0000 

h — 

0001 
0010 
0011 

I- — -+■ 

0100 
0101 
0110 



c 

D 

E 
F 



0111 



1000 



1001 

I- — -+ 

1010 
1011 
1100 



h 



1101 

I- — 

1110 



(Reserved) 

Wait on this opera- 
tion. This flag may 
be combined with any 
other flag. 
Disregard incorrect 
length indication 
(ILI) now. May be 
combined with any 
other flag. 
Use data group now 



(Illegal) 
(Illegal) 
(Illegal) 
(Illegal) 

(Reserved) 



+- 



A 
B 
C 






1111 
L ± _L 

Figure 4. Contents 



SIGNIFICANCE 



H 



H 



Write (data) 
Read 
Control 3 

(Reserved) 
(Reserved) 
(Reserved) 



Control 7 



(Reserved) 



H 



PRINTA (write graphic 
data) 

(Reserved) 
(Reserved) 
(Reserved) 



H 



PRINTB (write graphic 
data) 

(Reserved) 

_ H 

Check 

± . j 

of the Specifier Byte 



Operation Specification 



Tag and Data Set Byte 



Figure 3 indicates that all I/O func- 
tions are defined for the routines in the 
specifier r>yte. This byte is structured as 
follows: bits 0-3 are used for flags; bits 
4-7 specify tiie operation. Figure 4 
defines the contents of this Dyte. 



The tag and data set byte indicates 
whether modifiers and/or the use of reg- 
isters for data parameters are present in 
the current call; it provides the unit 
reference number. Figure 5 defines the 
contents of this byte. 
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I BITS 



|0000 
10001 



h 



10010 



h 



10011 



J0100 
| thru 
|0111 

Figure 5. 



HEXA- 
DECIMAL 






4 

thru 

7 



SIGNIFICANCE 



(Reserved) 
(Reserved) 



H 



Indicates whether or not 
modifers are supplied and/or 
data parameters for the data 
group are contained in reg- 
isters (Expansion A) • 

_ -I 



(Reserved) 



Contain the data set refer- 
ence numbers (0 through 15) • 



H 



Contents of Tag and Data Set 
Byte 



device assignment table (DAT) . This table 
is comprised of two sections: data set 
table (DSTAB) and data set control blocks 
(DSCB) . In the program listing provided by 
IBM for the I/O routines , DSTAB is referred 
to as UTAB and DSCB as UCB. 



DSTAB — Data Set Table 



DSTAB is an open end list, referenced 
from the I/O routines, and composed of one 
6-byte block for each data set. The ini- 
tial entry in DSTAB is a 4 -byte header 
block; the last entry is a 2-byte message 
data set identity block (see Figure 6) . 



DATA SET DESIGNATION 

The correlation of I/O devices and func- 
tions is controlled through the use of the 



Each 6-byte block holds one assigned 
physical device address, an amount rep- 
resenting the byte offset of the associated 
DSCB from the head DSCB, and the device 
type identification in hexadecimal digits 
(3 bytes) . 



DATA SET 
REFERENCE NUMBER 



NAME 



STRUCTURE 



DSTAB 



n+1 | Address of DSCB0 

J. , 



BYTES 



-H 



H 



f — 






DSTAB0 
DSTAB 1 



Device Address j Offset 

| Device 1 Address | Offset 1 
. + 






Type 
Type 



6 
-I 



--H 



i 



Where: 



DSTABn j Device n Address 
-+ t- 



Off set n 



m 



DSTAB n +6 j Data Set|Dev Addr 

X X 



NOTE: The "Type" field is further illustrated as follows: 

r T T T~ T T 1 

|X|X|X|X|D|M| 
L X L X X X J 



Type 

2 | 
.| 



XXXX is four hexadecimal digits defining the type of devices, such as 2400 for 
a 2400 series tape. 

D is one hexadecimal digit for a service type subclass, such as 24009 for a 
9- track tape. 



M is reserved. 



j 



Figure 6. Data Set Table Format 
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The 4 -byte header block holds the number 
of data sets in DAT (1 byte) and the 
location of the start of the DSCB section 
(3 bytes) . The 2- byte message data set 
identity block holds the data set reference 
number in the high order 5 bits and the 
device address in the low order 11 bits. 
Bit position 1 is reserved. 

DSTAB is arranged in sequence according 
to data set reference number, through n, 
and is so referenced by any SVC instruction 
requesting an I/O operation. 



DSCB 



Data Set Control Block 



tion recognition , and separate indication 
(return) for unit exceptional condition, 
and/or error conditions. 



Figure 7 presents a general description 
of the contents of the DSCB. Discussion of 
fields that require further explanation are 
presented immediately following the figure. 



DEVICE CODE BYTES: The bit configurations 
of these bytes are as follows: Bits 0-4 
contain the set mode modifier pattern for 
7- track tape: ddmmm. Bits 5-7 contain the 
expansion code for this unit: 001, Expan- 
sion B. Bits 8-14 specify the device code 
as follows: 



Each entry in DSTAB requires an asso- 
ciated DSCB. The DSCB can vary in size 
from a minimum of 22 bytes to a maximum of 
44 bytes. 

The DSCB describes the associated data 
set (identified with the physical device 
address in DSTAB) and the extent of opera- 
tions to be performed on that device. The 
DSCB also provides space for retaining any 
history requisite to the progress or con- 
trol of those operations being performed on 
the device. The DSCB may also provide the 
optional capabilities of overlapped opera- 



Bit 8 Tape 

Bit 9 Printer 

Bit 10 Punch 

Bit 11 Reader 

Bits 12-14 are used for a subclass of 

one of the above unit types. 



Bit 15 contains the multiplex mode flag. 



Figure 8 illustrates the device code 
assignment. 



r t 

| j NAME 

^ +- 

(DSCBO) 



h 



I- + 



+2 



+4 



Flags 
+ 



+6 



+ 14 
+ 15 



+ 17 



+ 20 



+ 22 

I- 

+ 28 



Device 
Code 



"T T T T 

| BYTES | EXPANSI ON | TOTAL j CONTENTS 
-+ + 1 +- 



Specifier 



CCW 



-+ + 

8 



Check 

Byte 
Count 1 



Buffer 
Address 1 



Error 



-+ 



I/O Old 

PSW 



+ — 



Sense 
Bytes 



8 



+36 |CSW 
x 



-+- 









+ 



22 



22 



-+. 



Multiplex mode flag, device code, expansion 
code, set mode modifier pattern for 7- track 
tape. 



Extent of operations to be performed. 






The contents of these bytes is the same as the 
SVC specifier byte. 



H 



DSCB check byte. 



This is the byte count for data group entries. 



This is the buffer address for data group 
entries. 



Error mask bytes. 



-H 



Note: Minimum requirements. 



8 |B 

j. 



-+-- 



22 | 44 | Note: Requirement for overlapped operation. 

-i. J. 



Figure 7. DSCB Format 
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r t t 


T - 




"T" 


1 

HEXA- 


| DEVICE (MODE |BITS 


8-14 | 


BIT 


| DECIMAL! 






15 




CODING] 


U - 4- X 


4— 




1 


. - - 4 


r T T 

|1052 JMulti-j 


T 




1 


1 


(Printer | plex |0001 
|1402 |Multi-| 


001 | 


1 


-+- 


13 | 




(Reader |plex |0010 
|1402 |Multi-| 


000 | 


1 


-+- 


21 | 




| Punch |plex |0010 
(1442 [Multi-] 


001 | 

+- 


1 


-+- 


23 | 




| Reader (plex |0011 
|1442 | Multi- | 


000 | 

X- 


1 


-+- 


31 | 




| Punch |plex |0 011 
|1443 | Multi- | 


001 | 

X- 


1 


-+- 


33 | 




| Printer | plex |0100 
|1403 | Multi- | 


001 | 

X- 


1 


"h 


43 | 




| Printer (plex |0100 
|2400 | | 


011 | 

X- 


1 


-+- 


47 | 




|9-Track [Burst |1000 


000 | 







80 | 


| Tape Read | | 

|. + + 

|2400 | | 


X- 




~h 


.1 


|9-Track [Burst |1000 


001 | 







82 | 


[Tape Write] | 
[2400 | | 


X- 




-+- 


— i 




[7-Track [Burst [1000 


010 | 







84 | 


|Tape Read | | 

|. + + 

J2400 j j 


X- 




-+- 


.( 


|7-Track [Burst [1000 


Oil | 







86 | 


[Tape Write] | 











(continued) 



l x x x x J 

Figure 8. DSCB Device Code Assignment 



DSCB FLAG BYTES; Figure 9 illustrates the 
structure of the DSCB flag bytes. 



r t t 

j BYTE j BIT | SIGNIFICANCE 




Reserved 
No overlap: zero overlap per- 
missible and requires expan- 
sion B. 

SILI: disregard all incorrect 
length indications from this 
unit. 
Reserved 
Reserved 
Reserved 

Unit exceptional condition 
return; user will accept unit 
exception return. 
Error return; user will 
accept error return. 



H 



Figure 9. DSCB Flag Bytes 



DSCB CEECK BYTE; The bit configuration of 
the DSCB check byte is illustrated in 
Figure 10. 




T - T 

| BIT | SIGNIFICANCE 



| Program control interrupt 

| (PCI) 

j Attention 

j Incorrect length record 

| Error 

j Exceptional condition 

j Status report applies to the 

j previous call 

| Reserved 

j Busy; current operation has 

| not received device end, 

j reject, error, or exception- 

| al condition 



H 



Figure 10. DSCB Check Byte 



ERROR MASK BYTES; The significance of the 
error mask bytes is explained in Figure 11. 




T T 

j BIT | SIGNIFICANCE 



| BYTE 



Operation not checked; last 
operation not yet interrogat- 
ed. 

Wait-Check 
Reserved 
Chaining Flag 

Retry complete; all retries 
resulted in failure. 
Reserved 
Reserved 
Reserved 



"T ~' — T 

| EIT | SIGNIFICANCE 



H |. x x 



-I 



Figure 9. DSCB Flag Bytes 



(continued) 



|DSCB n +20| 0-3 [Second level retry count 

Y +- 

| 4-7 [First level retry count 

I- +- 

| 8-9 [Reserved 

I" +- 

| 10 | Previous read error 

I" +- 

[11 | Not first entry 

I- +- 

1 12-15|Reserved 
_x X- 

Figure 11. Error Mask Bytes 



x T _ .) 

1-7 [First level retry count | 
|. X _: -I 

| 8-9 [Reserved | 

h x .[ 

error | 

^ 

^Y I 

j. x -i 

| 12-15|Reserved | 

L X X J 
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CALLS TC A PRINTER 



DATA PARAMETERS FOR PRINT CALLS 



Due to the peculiarities of a FORTRAN 
print command (which is actually a write 
graphic data command) the user should be 
familiar with the following material on 
FORTRAN printer carriage control characters 
and data parameters for print calls. 



In a print call, the data address points 
to the carriage control character which is 
contained in the byte immediately preceding 
the graphic data bytes. The byte count 
includes the carriage control character 
byte. In the following example: 

120 characters for a print line 
1 carriage control character 



121 



FORTRAN PRINTER CARRIAGE CONTROL CHARACTERS 



a byte count of 121 is supplied to the 
routines. 



I/O 



Figures 12 and 13 define the carriage 
control characters and their effect. PRIN- 
TA writes after performing the indicated 
carriage function (see Figure 12) ; PRINTB 
writes before the carriage function is 
performed (see Figure 13). 



r t t 

| CHARACTER | EFFECT | ACTION 

|. + + 

|0 (zero) | Double Space | Immediate space 

| | | 2; Write* 

h 



| (blank) | Single Space | Immediate space 

| | |1; Write* 

h 



|+ (plus) I Print without | Immediate NOP; 
| j spacing (Write* 

I- 



H 



I Print on (Immediate skip to 
| j first line j line 1 of the 
j j of next page j next page; Write* 
h x x ! 

| *Write has no integral carriage motion. | 

L J 

Figure 12. FORTRAN Printer Carriage Con- 
trol Characters (PRINTA) 



r t t 1 

| CHARACTER | EFFECT | ACTION | 

|. + + 1 

|0 (zero) |Double Space (Write*, space 2 | 
F + 1 .) 

| (blank) | Single Space (Write*, space 1 | 
h + + 1 

|+ (plus) | Print without | Write* | 

| | Spacing | | 

|. + + i 

(1 (Print last | | 

j j line then go j | 

j (to first line j j 

| j of next page j | 

j. x x ^ 

| *Write has no integral carriage motion. | 
l J 

I Figure 13. FORTRAN Printer Carriage Con- 
trol Characters (PRINTB) 



Error Routines 



If there is an error during a tape read 
or write operation, a given number of 
retries will be performed (according to IBM 
standards). If the retries are successful, 
processing will continue. If they are not, 
control may be returned to the user's 
program (see "Return to User's Program") or 
a wait PSW may be loaded (see "SRETRY 
Routine") . 

Error recovery procedures may or may not 
enable the user to recover the error manu- 
ally from the console. For a discussion of 
the ccnditions governing this procedure, 
see "SERP Routine." 



RETURN TO USER'S PROGRAM 



Returns to the user's program from an 
I/O routine are made starting at the loca- 
tion immediately following the SVC block. 
The return can occur in any one of three 
formats depending on the capabilities built 
into the DSCB. Indication is given in the 
DSCB if the return is a result of the 
previous call rather than the current one. 

Figure 14 defines the types of returns. 



ROUTINES 



The routines of the FSD are: 
1. FSD Initialization routine 



(DINT) 



FSD Initialization 
Chart AA. 

2. FSD Load Segment routine (LDPH) Chart 
AE. 

3. Exit routine (EXIT) Chart AC. 

4. I/O routines (see "I/O Operations") 
Charts AE through AR. 
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j TYPE 



RETURN ATI LOCATION 



BYTES j WHEN USED 



+ 



Type 1 



End of SVC block 



Return 



All returns 



t- 



Used when neither error nor except- 
ional condition return is provided 
for in the DSCB. 



Type 2 



Type 3 



Return 



H- 



+4 



f 



End of SVC block 
Unusual return 

Normal return 



Used when either error or exceptional 
condition is provided for in the 
DSCB, but not when both are provided 
for. 



End of SVC block 



Return 
+4 



4 

Error return 

Exceptional Con- 
dition return 



Used when both error and exceptional 
condition returns are provided for in 
the DSCB. 



h 

I 

-X- 



+8 



Normal return 



— j 



Figure 14. Return to the User's Program 



DINT Routine: Chart AA 



The DINT routine performs the required 
initialization. 

ENTRANCE: The DINT routine receives con- 
trol from IPL. 

CONSIDERATION : The DINT routine performs 
the following initialization: 

1. Associates the device upon which the 
system tape resides with data set 
reference number 0. (The system tape 
is always referenced as data reference 
number 0.) 

2. Clears lower storage and the general 
registers. 

3. Sets up the program, machine check, 
and supervisor program status words 

(PSWs) . 

4. Sets an indicator in the communi- 
cations area that the FSD has control. 



OPERATION: To establish the system tape 
device as data set reference number 0, the 
system tape device is placed into the data 
set reference number entry of the device 
assignment table. 

The system tape device address is deter- 
mined when IPL is effected. This device 
address is compared against each device 
address in the device assignment table. 
The following conditions can occur: 

1. The system tape device is already 
associated with data set reference 
number 0. 

2. The system tape device compares with a 
device address associated with a data 
set reference number other than 0. 



The two device addresses are, there- 
fore, switched. 
3. The system tape device is not present 
in the device assignment table. The 
device address is, therefore, entered 
in the data set reference number 
entry of the device assignment table. 

Lower storage and the general registers are 
then cleared. 

The FSD constructs the program, machine 
check, and supervisor PSWs and places them 
in their appropriate lower storage loca- 
tions. Included as elements in the various 
PSWs are the following: 

1. Program PSW: address of the routine to 
be branched to if a program interrupt 
occurs . 

2. Machine Check PSW: address of the 
routine to be branched to if a machine 
check interrupt occurs. 

3. Supervisor PSW: address of that por- 
tion of the FSD to be branched to when 
one of the phases requests a certain 
function of the FSD. 

The FSD indicates that it currently has 
control by setting a specific indicator in 
the communications area. 



The DINT routine exits to the LDPH 



EXIT: 
routine. 



LDPH Routine: Chart AB 



The LDPH routine loads a segment of the 
system, as required, for execution and 
determines the point at which control is to 
be received. 
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ENTRANCE : The LDPH routine initially 
control from the DINT routine, 
to this initial entry , the LDPH 

one of the 



receives 

Subsequent 

routine receives control from 

various segments of the system. 



OPERATION; The load segment function of 
the FSD is initiated by an SVC instruction 
that can call for the load of a segment. 
After the load operation is complete, the 
FSD passes control to that segment. 

Included in the load segment function of 
the FSD for the compiler is a check to 
insure that the punch device used to punch 
the output of a particular phase is not 
busy. If busy, the read of the next phase 
is not issued by the FSD until the punch is 
free. This insures that the contents of 
the output buffers of a given phase are not 
destroyed until the contents of the buffer 
have been punched, 

EXIT: The LDPH routine exits to the newly- 
loaded segment. 



Exit Routine; Chart AC 



The EXIT routine determines the point of 
return within a segment so the FSD can 
return to the appropriate place after an 
I/O operation is performed, 

ENTRANCE ; The EXIT routine receives 
control form an I/O routine within the FSD, 
after that routine has fulfilled the 
request for some segment, 

CONSIDERATION; The return address is det- 
ermined from the address of the byte fol- 
lowing the SVC instruction that requested 
the I/O operation. This address, which was 
saved in the supervisor old PSW, may or may 
not be the return address. 

If a parameter list follows the SVC, the 
saved address is the address of the first 
parameter. If no parameter list follows 
the SVC, the saved address is the return 
address within the segment after its I/O 
request has been fulfilled. 

OPERATION: After an I/O routine performs 
its specified function, it returns control 
to the EXIT routine to access the saved 
address. The EXIT routine adds to that 
address the number of bytes, if any, which 
the parameter list following the SVC 
instruction occupies. The resulting 
address is the return point to the segment 
that originated the I/O request. 



SIODIR Routine: Chart AD 



The SIODIR (I/O Director Base) routine 
completes the initialization steps neces- 
sary for all I/O operations. 

ENTRANCE: This routine is entered whenever 
an SVC instruction requesting an I/O opera- 
tion is encountered. 



CONSIDERATIONS: 



The SIODIR routine is 



required for all I/O functions. 

This routine requires that a specified 
symbolic register hold the address of the 
DSTAB header block, if the table is not 
compiled with the I/O routines. 

OPERATION: The SIODIR routine sets up the 
I/O base register, return PSW, and gets the 
initial DSTAB location. 

The routine then determines if it is 
being entered for the first time during the 
current I/O operation (external entry) , or 
for the second time (internal entry) . If 
entry results from an external call, the 
routine saves the entry registers and call 
return PSW, and sets the internal switch. 
If entry results from an internal call or 
when the operations resulting from an 
external call have been performed, the 
SIODIR routine extracts and saves the SVC 
specifier byte and the data set reference 
number, determines the DSTAB and associated 
DSCB locations, and sets the DSCB referen- 
ces. 

If a check operation or any operations 
other than those essential to all I/O 
functions are requested, the SIODIR routine 
branches to the appropriate routine to set 
up those operations. 

When all required I/O operations are set 
up, the SIODIR routine sets the suppress 
incorrect length indication (SILI) flag (if 
specified in the DSCB) into the CCW model 
and sets up the I/O interrupt new PSW. 

EXITS: The SIODIR routine exits to the 
SIOGO routine. 

ROUTI NES CALLED : During execution this 
routine references the following routines: 
SD1, SD2, SD5, and SD7. 



SIOGO Routine: Chart AE 



The SIOGO (I/O Initiator Base) routine 
initiates all I/O calls. 



The EXIT routine exits to the seg- ENTRANCE: The SIOGO routine is entered 



EXIT: 

ment that originated the I/O request. 



from the SIODIR routine when that routine 



30 



completes its set-up functions; it may also 

Vua <vrvt-*»T-orl -f-rrmi -tint* 55KFPPTN a-n^ fflRTP/PPV 



be entered 
routines . 



from the SNTPIN and SRETRY 



CONSIDERATIONS: 



The SIOGO routine is 



required for all I/O functions. 



OPERATION; The SIOGO routine determines if 
the physical device has been checked and, 
if not, branches to the SNTPIN routine to 
check it. 



The routine initiates a series of tests 
to guard against an early burst mode 
device • If the routine is operating in a 
multiplex mode on a multiplex channel with 
a multiplex device, and the new device is 
not a multiplex device, the routine sets 
the CCW model in reserve and branches to 
the SNTPIN routine. 

When a path is available, the CCW model 
is brought in and the DSCB set up. The 
SIOGO routine sets up the CCW and CAW, and 
issues the Start I/O (SIO) command to the 
device. After the SIO command is issued, a 
series of operations, based on the condi- 
tion codes set after the command-is issued, 
are performed. 

Condition code 2 or 3 causes the SIOGO 
routine to set the CCW model into reserve 
and transfer control to the SNTPIN routine. 

If condition code 1 is found and the 
busy bit is not present, control is trans- 
ferred to the SNTPIN routine. If condition 
code 1 is found and the busy bit is 
present, the SIOGO routine sets the CCW 
model in reserve and transfers control to 
the SNTPIN routine. 

If condition code is indicated and the 
routine is not to wait for device end (in 
which case control is transferred to the 
SNTPIN routine) , the SIOGO routine clears 
the internal flag, restores the original 
call return and entry registers, sets up to 
return control to the user's program, and 
returns control to it. 

When a path is not available and the CSW 
has^not been stored, the CCW model is set 
in reserve and control is transferred to 
the SNTPIN routine. 



EXITS : The SIOGO routine exits to either 
the user f s program or the appropriate loca- 
tion in the SNTPIN routine. 



ROUTINES CALLED: During execution, the 
SIOGO routine references the SNTPIN and 
SETMD routines. 



SNTPIN Routine: Chart AF 



The SNTPIN (I/O Interrupt Entry) routine 
performs the analytic functions necessary 
to handle I/O interrupts. 

ENTRANCE: The SNTPIN routine is entered at 
its initial location whenever an I/O inter- 
rupt occurs. It is entered at various 
symbolic locations from the SIOGO, SRETRY, 
SERP, and SD2 routines. 

OPERATION: This routine establishes an I/O 
base register (saving the environment if 
the current entry is not internal) and sets 
the DSTAB and DSCB references. 

After storing the latest I/O PSW and 
latest CSW, the routine determines if the 
operation has ended. If it has, a sense 
command is issued to the current device; 
the busy and multiplex flags are cleared; 
and, if a retry is specified at this time, 
control is transferred to the SRETRY rou- 
tine . 

When the retry indications have been 
cleared (i.e., no retry specified) or if 
the operation has not ended, tests for 
minor interrupt conditions (attention bit, 
program control interrupt- PC I, incorrect 
length record, or unit exceptional 
condition) are performed and the flag for 
the appropriate indication (s) is set. 

The SNTPIN routine then performs a ser- 
ies of tests to establish the check opera- 
tion status. These tests will ultimately 
result in transferring control to the 
appropriate location in the SIOGO routine 
or enabling a wait. The following para- 
graphs describe the possibilities. 

When an immediate check is specified and 
the device is still not busy, the residual 
bit count is saved. Control is then trans- 
ferred to the SERP routine to check for any 
class of errors. 

After control returns from the SERP 
routine or if an immediate check was not 
specified, a check is made for any error or 
unusual condition which forces an immediate 
return to the user. If any exist, result 
area pointers are set in the communication 
registers. 

If the operation is ended and return to 
the user is to be made, the internal flag, 
the device wait-check flag, the not-yet- 
checked flag, and the device usage flag are 
cleared. Checks are made for the presence 
of a wait or reserve operation. If either 
operation is present, the wait state will 
be entered until termination of the current 
operation. Return is made to the call that 
requested the current I/O operation, if 
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neither a wait 
present. 



nor reserve operation is 



EXITS ; This routine exits to either the 
SRETRY, SERP, or the appropriate location 
of the SIOGO routine, 

ROUTINES CALLED; During execution the 
SNTPIN routine references the SIODIR, 
SIOGO , SRETRY, and SERP routines. 



SD1 Routine: Chart AG 



The SD1 routine extracts and saves four 
items: the DSTAB header block location, the 
address that points to the first physical 
device, the number of devices, and the 
initial DSCB location. 



ENTRANCE : 



This routine is entered from the 



The SD1 routine is entered 



SIODIR routine. 

CONSIDERATIONS: 
only during the initial entry to the SIODIR 
routine. After this first and only use, 
the entire routine is eliminated and cannot 
be used without reloading the entire pro- 
gram. 

OPERATION: The SD1 routine determines if 
the initial DSTAB location is already pre- 
sent in the area designated to hold that 
address, and exits if it is. 

Otherwise, the routine obtains and saves 
the DSTAB header block location. It then 
extracts the number of data sets and the 
initial DSCB location from the header block 
and saves them. The header block location 
is incremented by 4 and the result is saved 
as the initial DSTAB location. 

The SD1 routine makes a final test to 
make certain that the initial DSTAB loca- 
tion is present, and then exits. 



This routine exits to the SIODIR 



EXITS : 
routine. 



SETMD Routine: Chart AH 



The SETMD routine performs the set-up 
functions for I/O operations that require a 
set mode operation code and CAW. It also 
performs the set-up for I/O operations 
involving the use of FORTRAN printer car- 
riage control characters at the start of 
the data stream and for immediate eject 
operations on the IBM 1442 punch. 

ENTRANCE : The SETMD routine is entered 
from the SIOGO and SD74 routines. 



CONSIDERATIONS; 
requires the 
tine. 



The use of this routine 
presence of the SIODIR rou- 



OPERATION: After setting up the standard 
FORTRAN I/O CAW, the SETMD routine deter- 
mines if seven track tape is being used. 

When it is not, this routine effects a 
series of branches to set up the printer 
immediate control chain and the repetitive 
punch on the IBM 1442 Card Read- Punch, 
which does not have an automatic ejection 
when punching is complete. 

When seven track tape is being used, the 
SETMD routine sets up the set mode modifi- 
ers for the DSCB and CCW chain. 

When the set mode modifiers have been 
set up or after setting up for punch eject 
operations on the 1442, the set mode 
FORTRAN I/O CAW is set up and the CCW 
operation code is cleared and replaced by 
the set mode operation code. 

EXITS: This routine exits to the routine 
that called it. 

ROUTI NES CALLED : During execution the 
SETMD routine references routines SD741 and 
SD743. 



SD2 Routine: Chart AI 



The SD2 routine determines if the cur- 
rent operation is a check operation and, if 
so, whether the device has already been 
checked. 



ENTRANCE: 



The SD2 routine is entered from 



the SIODIR routine. 

OPERATION: The SD2 routine determines if 
the current operation is a check operation 
and exits if it is not. If it is a check 
operation, but the device has already been 
checked, the SD2 routine branches to that 
part of the SNTPIN routine that establishes 
an exit path; otherwise it branches to that 
part of the SNTPIN routine that checks for 
minor interrupt conditions. 

EXITS: This routine exits to the appropri- 
ate location in the SIODIR or SNTPIN rou- 
tine. 



SD5 Routine: Chart AJ 



This routine sets up the model for all 
simple control operations; that is, for all 
control operations whose entire function is 
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defined 
mand. 



in the operation byte of the com- 



SD72 Routine: Chart AL 



ENTRANCE : 



The SD5 routine is entered from 



the SIODIR routine. 



CONSIDERATIONS : Control operation modifi- 
ers are moved in from the SVC parameters. 

OPERATION: After clearing the data group 
flags, the SD5 routine determines if the 
current I/O call has an operation code of 3 
(all operations not involving read or 
write, such as immediate space or select 
stacker) or 7 (all operations not involving 
read or write, such as rewind tape) . If 
neither operation code is found, control is 
returned to the SIODIR routine. 

When either operation code 3 or 7 is 
found, the appropriate operation code is 
placed into the CCW model. 

The operation modifiers for simple con- 
trol operations are then moved into the 
model, along with a count of 1 and the SILI 
flag. 



The SD5 routine exits to the SIODIR 



EXITS: 
routine. 



SD7 Routine: Chart AK 



This routine sets the proper parameters 
for data operations into the CCW model. 

ENTRAN E : The SD7 routine is entered from 
the SIODIR routine. 



The SD72 routine extracts data paramet- 
ers through SVC pointers. 



This routine is entered from the 



ENTRANCE : 
SD7 routine. 



CONSIDERATIONS : This routine requires the 
presence of the SD7 routine. 

Although this routine is not essential 
for I/O operations, it must be included if 
any SVC formats include expansion A for 
providing data parameters in registers. 



OPERATION: 



When the current call does not 



include expansion A, or when it does but no 
pointers are supplied, the SD72 routine 
transfers control to the SD7 routine. 

Otherwise, a work register is cleared 
and the identities of the two registers 
containing the pointers to the data param- 
eters (one register containing the buffer 
address and the other the byte count) are 
loaded into the work register. 

The SD72 routine extracts the data 
address span and the storage span; the data 
address span is then reserved. 

The routine then positions the byte 
count span, loads the save area pointer 
into another register, and forms the poin- 
ter to the byte count area by adding the 
save area pointer to the byte count span. 

The SD72 routine sets the byte count 
into the CCW model, forms the pointer to 
the data address area, and sets the data 
address into the model. 



EXITS: 



The SD72 routine exits to the SD7 



CONSIDERATIONS : Data operations include routine, 
read, write, and print. 



OPERATION: The SD7 routine sets the data 
group flags and the data parameters (the 
storage location at which the data is 
found, and the byte count) . 

The appropriate data operation is then 
set up in the CCW model by inserting 
whatever modifiers are necessary, the pro- 
per operation code, and making whatever 
adjustments are necessary for a particular 
device (such as the special FORTRAN car- 
riage control characters for the print 
routine) . 



EXITS: 



This routine exits to the SIODIR 



routine. 

ROUTINES CALLED: During execution the SD7 
routine references the SD74 and SD72 rou- 
tines. 



SD74 Routine: Chart AM 



The SD74 (Print Operation Ease) routine 
sets up for a print operation. 



This routine is entered from the 



ENTRANCE : 
SD7 routine. 



OPERATION: The appropriate print operation 
is set up using the SD742 routine for a 
PRINTS operation and the SD743 routine for 
a PRINTA operation. If the operation is 
not on a graphic device, there is no 
further processing. 

If the operation is on a graphic device, 
the SD741 routine is used to adjust for the 
FORTRAN control characters; the printer 
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carriage control character is then set into 
the model. If the unit is not a printer , 
the console printer carriage control char- 
acter is set into the model before the data 
parameters are adjusted to omit the control 
characters. 



EXITS: This routine returns control to the 



SD7 routine. 



ROUTINES CALLED: During execution, the 
SD74 routine references the SD741 routine, 
the SD742 routine, and the SD7U3 routine. 



A 2-CCW chain and chaining flag fcr: 
PRINTA printer single space 
PRINTA printer double space 
PRINTE console printer double space 

A special CCW for: 

PRINTB printer skip 

A 1-CCW for: 

all ethers 



EXIT: The SD741 routine returns control tc 



the calling routine. 



SD742 Routine: Chart AO 



SD741 Routine: Chart AN 



This routine performs an adjustment 
operation for any FORTRAN print control 
characters. 



ENTRANCE : This routine is entered from the 
SD74 routine at entry point SD741 or from 
the SETMD routine at entry point SD741B. 



CONSIDERATIONS : This routine requires the 
presence of the SD74 and SETMD routines. 



All FORTRAN control characters are 
entered in a FORTRAN control character 
list. This list consists of 2 chains, one 
for PRINTA and one for PRINTB. 



OPERATION : 



When the SD741 routine 



is 



entered from the SD74 routine, the FORTRAN 
control . character list is searched sequen- 
tially until the FORTRAN control character 
is found. A pointer is then set to that 
control character. If the control charac- 
ter is not found, the last character in the, 
list is used. A return is then made. 



When the SD741 routine is entered from 
the SETMD routine, CCW chains and/or chain- 
ing flags are set up according to the 
following scheme. 



A 4-CCW chain and chaining flag for: 
PRINTA console printer 

A 3-CCW chain for: 

PRINTA printer skip 

PRINTA console printer single space 
PRINTA console printer double space 
PRINTB console printer skip 



The SD742 routine sets up the FORTRAN 
print control character for the PRINTE 
function. 



ENTRANCE : 
SD74 routine. 



CONSIDERATIONS: 



This routine is entered from the 



This routine requires the 



presence of the SD7U1 routine. 

OPERATION: The SD742 routine determines if 



the current request is for PRINTB. If it 
is not, the routine returns control tc the 
SD74 routine. If it is, a pointer is set 
to the PRINTB character list. A return is 
then made. 



EXIT: 



This routine returns control to the 



SD74 routine. 



SD743 Routine: Chart A0 



This routine sets up the FORTRAN print 
control character for the PRINTA function. 

ENTRANCE: The SD743 routine is entered 
from the SD74 routine. 

CONSIDERATIONS : This routine requires the 
presence of the SD741 routine. 

OPERATION: The SD743 routine determines if 
the current request is for PRINTA. If it 



is not, the routine returns control to the 
SD741 routine. If it is, a pointer is set 
to the PRINTA character list. A return is 
then made. 

EXIT: This routine returns control to the 
SD74 routine. 



3U 



SKETRY Routine: Chart AP 

This routine performs error retry procedures 
for tape devices. 



ENTRANCE : 



The SRETRY routine is entered 



from the SNTPIN routine. 

CONSIDERATIONS ; The SRETRY routine main- 
tains two command chains. The clean chain 
consists of three backspace commands, two 
forward space commands and a transfer into 
the fix chain. The fix chain first issues 
a backspace command, then, depending on the 
conditions found, sets an erase gap command 
or request track in error into the FIXCCW; 
it terminates by a TIC instruction to the 
set mode CCW. 

OPERATION: For illustrative purposes, the 
operation of this routine has been divided 
into three paths. 

Path 1 : If the current device is not a 
tape, control is returned to the SNTPIN 
routine . 
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Path 3 : The control areas are cleared. 
When both the retry and tape clean counts 
are exhausted, an indication that the retry 
is completed is made, and control is re- 
turned to the SNTPIN routine. 



When the retry count 
the tape clean count is 
to the clean chain and 
10. If the retry count 
the CAW is set to the f 
is made to determine if 
error indicator is on. 
is not on, the fix CCW 
gap." 



is exhausted, but 
not, the CAW is set 

the retry count to 
is not exhausted, 

ix chain and a test 
the previous read 
When that indicator 

is set to "erase 



When the previous read error indicator 
is on, or after setting the CAW to the 
clean chain, the fix CCW is set for "request 
track in error." 

After the fix CCW has been set (for 
request track in error or erase gap) , the 
retry and tape clean counts are saved and 
the routine exits. 



The SRETRY routine determines if there 
is a data check. If there is no data 
check, processing continues at Path 2. 

When the current routine entry is not 
the first error, the retry counts are re- 
stored and processing continues at Path 3. 
Otherwise, a test is made to determine if 
the tape is in write status; when it is, 
the retry count is set to 3, and processing 
continues at Path 3. 

If the tape is not in write status, the 
routine determines if a noise record has 
been read and exits if it has. If a noise 
record has not been read, it sets the read 
indicator, sets the retry count to 10, sets 
the tape clean count to 10, and continues 
processing at Path 3. 

Path 2 : If this is not the first retry 
attempt, or if this is the first retry 
attempt but the load point indicator is not 
set, control is returned to the SNTPIN 
routine . 

Otherwise, the SRETRY routine determines 
if the third backspace in the clean chain 
has been attempted. When it has not, the 
tape clean count is reset to 10, and proc- 
essing continues at Path 3. 

When the third backspace has been 
attempted, the control areas are cleared 
and the CAW is set to forward space one 
data record. The retry count is set to 10, 
the retry and tape clean counts saved, and 
the routine exits. 



EXITS : This routine returns control to 
that portion of the SIOGO routine that 
issues the Start I/O Command. 

ROUTINES CALLED : During execution of the 
SRETRY routine the SIOGO routine is 
referenced. 



SERP Routine: Charts AQ and AR 

This routine prepares the system to per- 
form error recovery procedures. It may be 
used to check for error conditions or for 
a condition code 3 occurring after an SIO 
operation. 



ENTRANCE : The SERP routine is entered 
from the SNTPIN, SIOGO, or SRETRY routines. 



CONSIDERATIONS : This routine is optional. 
Its use requires the presence of the SRETRY 
routine . 

Four messages may be issued by this 
routine. They are; FIA, FIC, FID, and FIS. 



OPERATION : 



When the routine is used for 



error detection, the channel failure and 
unit check indicators are tested. If none 
are on, a normal return is made. If any are 
on, the error indicated is processed. 

When an error is known to exist, the 
processing takes one of three general paths. 
The first (Chart AQ) is for the condition 
code 3 occurring after an SIO operation, the 
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second (Chart AQ) is for a channel failure 
indication, and the third (Chart AR) is for 
a unit check indication. All three paths 
use a common routine procedure in case of 
error. This procedure consists of setting 
up and printing the proper message (FIA, 
FIC, FID, or FIS) , setting up the entry for 
the external PSW and for SEREP, and moving 
the unit address to a position in the FSD 
area used by SEREP. 

During object time, 25 40 punch equipment 
check retries are handled differently than 
other error retries. 2540 punch equipment 
checks require the repunching of the last 
two cards punched. Other errors require 
reprocessing only one record, which can be 
done within FSD. For 2540 punch equipment 
checks, the return is set to the IBCOM 
IB2540 routine for the retry. 



EXIT : If the SERP routine does not return 
control to the calling routine, an FIA, 
FIC, FID, or FIS message is issued. The 
routine then loads the wait PSW. 
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****A2** ******* 
it * 

* I PL ENTRY * 

*************** 



****A4********* 

* * 

* SVC ENTRY * 

* * 
*************** 



*****B2** ******** 
*CINT AAB3* 

*-*-*-*-*-*-*-*-* 

* PERFORM * 
INITIALIZATION * 

* * 
***************** 



*****D2** ******** 
*LDPH AEXX* XX 



* LOAD * 

* SEGMENT * 
***************** 



****E2** ******* 

* BRANCH TO ' * 

* SEGMENT JUST * 

* LOADED * 
**** *********** 



WHERE 

XX = E2 FOR PHASELOAD 

REQUEST 

B4 FOR EDITOR 

LOAD REQUEST 

E4 FOR IBCOM 

LOAD REQUEST 



*****B4** ******** 



INTERPRET 
SVC 



***************** 



• X. 

C4 *. 

.* IS *. 

.* THIS A *• 

•LOAD SEGMENT .* 

*. REQUEST .* 

* • •* 

*• •* 

* NO 

, (MUST BE I/O 
.REQUEST) 



*****D4 ********** 

* 22C1* 

#_*_*_*_*_*_*_*_* REQUEST CAN BE FROM 

COMPILER PHASE OR FROM 
OBJECT PROGRAM REQUEST 
FILTERED THROUGH IBCOM 



FULFILL I/O 
REQUEST 



***************** 



*****E 4* ********* 
*EXIT ACB3* 
*-*-*-*-*-*-*-*-* 
♦COMPUTE RETURN * 

* ADDR. RESTORE * 

* REGISTERS * 
***************** 



****F4********* 

* RETURN TO * 

* CALLING * 

* SEGMENT * 
*************** 



CAN BE COMPILER 
PHASE OR OBJECT 
PROGRAM (VIA IBCOM) 



Chart OU FSD Overall Logic Diagram 
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****8 1 ********* 

* SVC ENTRY * 

* * 
*************** 



* 


AGE3 


* 


GET 


IN 


* 




* 


DEVICE 


*************** 


* 


AIE3 


* 


SET 


UP 


*************** 


* 


AJE3 


* 


SET 


PR 


*************** 


NOTE - 


SD2 CAN 



**************************** 

ITIAL DSTABt DSCB AND PHYSIC 

ADDRESSES PLUS NUMEER OF DE 

**************************** 

TO CHECK DEVICE 
**************************** 
OPER OPERATION CODE INTO MOC 
**************************** 

ERANCH TO SNTPIN ROUTINE 



******* 



******* 



* SET UP *X 

* FOR I/O * 

* ROUTINES * 
***************** 



SET UP 

FCR A DATA 

OPERATION 

************ 



.X* EXTRACT DATA 
* PARAMETER 
*FROM REGISTERS 
**************** 



*-*—*—*— 



SET UP 

FCR A PRINT 

OPERATION 

************* 



********************* 


SD741 


* 


ANB2 


* 


INSERT 




* 




* 


CHARAC 


********************* 


SD742 


* 


A0B3 


* 


SET UP 




* 




* 


CHARAC 


********************* 


SD743 


* 


APB3 


* 


SET UP 




* 




* 


CHARAC 


********************* 


SETMD 


* 


AHB3 


* 


SET UP 



******** 



************************ 

ANY FORTRAN PRINT 
TER IN MODEL 
************************ 

FORTRAN PRINT CONTROL 
TER FOR PRINTB FUNCTION 
************************ 

FORTRAN PRINT CONTROL 
TER FOR PRINTA FUNCTION 
************************ 

FOR SET MODE OPERATION 
************************ 



-*-#-*-*-* 



INITIATE *X 

THE I/O * 

COMMAND * 

************** 



WAIT NOW 



*****H1 ********** 

* * 

* WAIT UNTIL * 

* I/O * 

* INTERRUPT * 

* * 
***************** 



E*-* -*-*-* -*-*-*-* 
.* PROCESS *X 

* I/O * 

* INTERRUPTS * 
***************** 



X* SET UP 
*FOR A SET MODE 
* OPERATION 
**************** 



****G2 ********* 

RETURN * 
*************** 



*-*-*—*-*-*-*-* 

RETRY *. 

TAPE ERROR *R 

PROCEDURE * 

*************** 

.NC RETRY 



* — *- 



_*_*_ 



* INITIATE * 

•ERROR RECOVERY *ERROR 
<* PROCEDURES * 
***************** 
.NO 
■ERROR 



****K2 ********* 

* * 

* RETURN * 

* * 
*************** 



****K3********* 

* ENABLE * 

* ERROR * 

* WAIT * 
*************** 



GO TO INITIALIZE 
CURRENT OPERATION 
AFTER CHECKING RE- 
SULTS OF PREVIOUS 
OVERLAPPED OPERA- 
TION, PROVIDING NO 
ERRORS EXIST 



Chart 22. Overall Logic-I/O Routine 
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***** 
*AA * 
* E3* 



ENTER FROM 
IPL ONLY 



*****B 3* ********* 

* * 

* ACCESS * 

* SYSTEM TAPE * 
*DEVICE ADDRESS * 

* * 
***************** 



*****C3* ********* 

* ESTAELISH: * 

* SYSTEM TAPE * 
*DEVICE ADDR AS * 
♦DATA SET REFER-* 

* E^JCE NO. C * 
***************** 



*****D 3 ********** 

* CLEAR * 

* LOWER STORAGE * 

* AND GENERAL * 

* REGISTERS * 

* * 
***************** 



*****E 3 ********** 
*SET UP PROGRAM,* 
♦MACHINE CHECK. * 
♦AND SUPERVISOR ♦ 
♦PROGRAM STATUS ♦ 
♦ WORDS ♦ 
***************** 



*****F 3 ********** 

♦ SET INDICATOR ♦ 

♦ IN CCMMUNICA- * 

♦ TIONS AREA TO * 

♦ INDICATE FSD ♦ 

♦ IS IN CONTROL ♦ 
***************** 



***** 

♦ AE ♦ 

* E2^ 



Chart AA. DINT Routine 
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***** FROM DINT ROUTINE 
*AB * INITIALLY. SUBSE- 
* B2* QUENT ENTRIES OCCUR 
* * FOR PHASE LOAD REQUESTS 



***** 

*AB * 

* B4* 

* * 



FROM EDITOR - 
LOAD REQUEST 



*****B2********** 

* * 

* SET READ OF * 

* FHASE ADDRESS * 

* TO 4000 * 



*****B4 ********** 

* * 

* SET READ OF * 

* PHASE ADDRESS * 

* TO 12000 * 



***************** 



***************** 



*****C2********** 

* * 

* SET READ DATA * 

* SET REFERENCE * 

* NUMBER TO * 

* * 
***************** 



D2 *. 
• * *. 
.* IS *. YES 
PUNCH .*... 
*. BUSY .* 
*• •* 
*. .* 
* NO 



*****E2* ********* 

* SET A SUFFI- * 

* CIENT RECORD * 

* BYTE COUNT * 
♦ASSOCIATED WITH* 
*THE PHASE READ * 
***************** 



******F2 *********** 

* READ * 

PHASE INTO 

* STORAGE * 

************* 



***** 

*AB * 

* E4* 

* * 

* 

. FROM LOADER 

• IBCOM LOAD 

• REQUEST 
X 

******E4*********#* 

READ 

* IBCOM * 

STARTING 

* AT 4000 * 

************* 



*****F4********** 

* * 

* OBTAIN * 
♦OBJECT PROGRAM * 

* ADDRESS * 

* * 
***************** 



****G2** ******* 

* BRANCH TO * 

* PHASE JUST * 

* LOADED * 
*************** 



****G 4*** ****** 

* BRANCH * 

* TO OBJECT * 

* PROGRAM * 
*************** 



Chart AB. LDPH Routine 
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***** 

*AC * FROM FSD I/O ROUTINE 

* B3* AFTER THE REQUESTED 

* * OPERATION IS FULFILLED 



EXIT X 

*****B 3 ********** 

* * 

* COMPUTE * 

* RETURN * 

* ADDRESS * 

* * 
***************** 



*****C3********** 

* RESTORE * 

* REGISTERS * 

* SAVED * 

* BY I/O * 

* ROUTINE * 
***************** 



****D3********* 

* RETURN * 

* TO CALLING * 

* SEGMENT * 
*************** 



Chart AC. EXIT Routine 
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****A2********* 

* * 

* SVC ENTRY * 

* * 
*************** 



SET UP * 

I/O BASE * 

REGISTER * 

* 

************** 



*****B3********** 

* * 

* GET * 

* INITIAL DSTAB *. 

* LOCATION * 

* * 
***************** 



NEW 
CALL 



************ 



*****D3**** ****** 

* * 

* GET * 

* I/O OPERATION *X. 

* FROM SVC CALL * 

***************** 



*****D4 ********** 



***************** 



*****F2********** 

* * 

* * 

* CLEAR MODEL *X. 

* * 

* * 
***************** 



*****E3********** 
*SET REFERENCES * 

* FOR DSCB IN * 
*DEVICE ASSIGN- * 

* MENT TABLE * 

* * 
***************** 



CHECK 
OPERATION 

TO BE 
♦TESTED * 









**** 


* B3* 
* * 








* * 


* 








*AD *... 

* G3* 
**** . 






• X. 
G2 *. 
• * *• 
YES .* SIMPLE *. 


NO 


• X. 

G3 *. 

.** DATA **. YES 




X 
***** 


*. OPER .* 
*• •* 




*. .* 

*• •* 


X 
***** 


*AJ * 

* B3* 

* * 


*• •* 
* 




* • •* 
* NO 


*AK * 

* A3* 

* * 


* 






SDXR X 

*****H3********** 

* * 

* SET UP * 


* 

***** 

*AD * 

* H3* 

* * 

* 




* IN MODEL * 





***************** 



*****j 3** ******** 

* SET UP * 

* I/O INTERRUPT * 

* NEW PSW * 
***************** 



***** 
*AL * 
* A2* 



Chart AD. SIODIR Routine 
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SET CCW 

MODEL IN 

RESERVE 



********** 



*****A4********** 

* SET * 

* PREVIOUS CALL * 
>* AND WAIT- *— 

* CHECK FLAGS * 

* * 
***************** 



***** 
*AF * 
* D2* 



RESTORE 

MODEL FROM 

RESERVE 



*****C3******** 

* CHECK 

>* PATH STATUS 

* (TIO) 



***01 ********* 
SET UP DSCB *<- 



SIG03 
*** 


**D2**** 

BRING 
IN CCW 
MODEL 


* 



PATH 
AVAILABLE 
. (CCO) . 



csw 

STORED 
(CO) 



SET CCW * 

MODEL IN * 

RESERVE * 

************** 



*****F1***«* 



ISSUE 
START I/O 
TO DEVICE 



****G3* ********* 

SET CCW * 

MODEL IN * 

RESERVE * 



.* DEVICE * 
•BUSY CHANNEL 
♦.AVAILABLE.* 



*****Hl ********** 

* SET * 

* BUSY AND * 

* NOT-CHECKED * 

* FLAGS * 

* * 
***************** 



ADJUST FOR 
RETURN OR 
WAIT 
************** 



r 



.* CHAN- *. 
* NEL NOT * 

OPERATIONAL 
*. (CC3) .* 



n 



*****j3********** 

* * 

* SET BUSY * 
>* AND NOT *~ 

* CHECKED FLAGS * 



n 



H 



r-.. 



ADJUST * 
RETURN *— 
LOCATION * 

************** 



CLEAR 

INTERRUPT 

FLAG 



SIGO 

*****K4* ********* 

* SET UP * 

* RETURN. * 



* RESTORE * 

* REGISTERS * 
***************** 



****K5****» 
RETURN 



I Chart AE. SIOGO Routine 
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**** 



F * 1 

B2* 

** J 



*AF 
* B2* 
**** 
SNTPN2 

*****B2* ********* 



ACCUMULATE * 
PSW AND CSW *<- 

DATA * 

\ * 

**************** 



*. OPER/ 

*. ENC 

*. 

*• 

i 

**** 


\TION 

>ED . 
.* 
• * 

* NO 


* * 




*AF *-> 

* D2* 
**** 




SSCHK .\ 

D2 

.* Mlf 

YES .* INTEF 

*. INDIC/ 


/. 

*• 
■JOR *. 
?RUPT 
\TIONS 



*****E1 ********** 

* * 

* SET MINOR * 

* CONDITIONS *- 

* FLAG * 

* * 
***************** 



* ESTABLISH 
>* I/O BASE 

* REGISTERS 
* 
************** 



*****C3*** ******* 

*ISSUE SENSE TO * 

•CURRENT DEVICE * 

>* CLEAR BUSY *- 

* RESET MPX * 

* FLAGS * 
***************** 



*****D3********** 

* * 

* CLEAR * 
-* RETRY *< 

* INDICATIONS * 

* * 
***************** 



n 



* OPERA- 
TION STILL 
*. BUSY 



.* PCI *. 

AND/OR 

ATTENTION 

. INDICA- . 



*****B4* ********* 

* * 

* SET * 
-*DSTAB AND DSC3 *<— 

* REFERENCES * 

* * 
***************** 



*****C4* ********* 

* * 
*—*—*—*—*—*—*—*—* 

>* POSSIBLE * 

* ADJUST COUNTS * 

* ROUTINE * 
***************** 



*****B 5** ******** 



***************** 



RETRY NOW .* 


, 






V 




*. .* 


***** 


***** 


*• •* 


*AP * 


*AF * 


* 


* A3* 


* E5* 



*****E4 ********** 
* 
* 
YTE * 



* SAVE 
->* RESIDUAL I 

* COUNT 



***************** 



SNTP6 

*****F4* ********* 

* SET * 

* RESULT AREA * 
>* POINTERS, IF *< 

* ERROR * 



*_*_*_*_ 



>* ERROR * 

* RECOVERY * 

* PROCEDURE * 
***************** 



.* ANY *. 

RETURN 

♦CONDITIONS * 



***** 



********** 



* RESET * 
>* WAIT *< 

* FLAGS * 

***************** 



CLEAR FLAGS 



***************** 



* * 
*AF * 
* G3* 



***** 
*AE * 
* Bl* 



*****jl ********** 

* * 

* CLEAR * 

* RESERVE *< 

* SWITCH * 

* * 
***************** 



***** 
*AE * 
* K2* 



.* ANY *. 

RESERVE 
♦.OPERATION.* 



***** 
*AE * 
* K2* 



WAIT NOW 



*****K4********** 

* * 

* SET * 
>* INTERNAL *- 

* FLAGS * 

* * 
***************** 



****K5********* 

* * 

* WAIT * 

* * 
*************** 



Chart AF. SNTPIN Routine 



***** 

*AE * 
* K2* 
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***** 
*AG * 
* E3* 



*****B 3 ********** 

* * 

* LOAD INITIAL * 

* CSTAB * 

* LOCATION * 

* * 
***************** 





YES .* LOCATION 
••••*• PRESENT 


X 
***** 
*AD * 
* A3* 


*. 
*. 

* . .* 
* NO 



*****D 3*** ******* 

* LOGICAL AND * 

* OPERATION TO * 

* GET DSTAE * 

* HEADER ELOCK * 

* LOCATION * 
***************** 



***** E 3 ** ******** 

* * 

* SAVE * 

* HEADER ELOCK * 

* LOCATION * 

* * 
***************** 



*****F3********** 

* EXTRACT AND * 
*SAVE NUKEER OF * 

* PHYSICAL * 

* DEVICES * 

* * 
***************** 



*****G3********** 

* EXTRACT * 

* AND SAVE * 

* INITIAL DSCB * 

* LOCATION * 

* * 
***************** 



*****H3*** ******* 
*ADD 4 TO HEADER* 
*BLOCK LOCATION * 

* TO OETAIN * 

* INITIAL DSTAB * 

* LOCATION * 
***************** 



*****J2********** 

* * 

* SAVE * 

* INITIAL DSTAB *.., 
, * LOCATION * 

* * 
***************** 



Chart AG. SD1 Routine 
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***** 
*AH * 

* B3* 



*****B 3** ******** 

* SET UP * 

* STANDARD * 

* FORTRAN I/O * 

* CAW * 

* * 
***************** 



7-TRACK 
TAPE 



*****D 3*** ******* 
*SD741 ANB4* 
*-*-*-*-*-*-*-*-* 
*SET UP PRINTER * 

* IMMEDIATE * 

* CONTROL CHAIN * 
***************** 



*****E 3**** ****** 

* SET UP * 

* IMMEDIATE * 
♦EJECT OPERATION*X. 

* FOR 1442 * 

* PUNCH * 
***************** 



***** 
*AH * 
* E3* 



SETMDA X 

*****F2** ******** 

* SET UP SET * 
♦MCDEL MODIFIERS* 

* FOR DSCB PAT- *. 

* TERN AND TO * 

* CCW CHAIN * 
***************** 



SETMDB X 

*****P3********** 

* SET UP * 

* SET MODE * 

• .,X* FORTRAN I/O *X • 

* CAW * 

* * 
***************** 



***** 
*AH * 
* F3* 



*****G 3*** ******* 

* * 

* CLEAR * 

* OPERATION * 

* CODE * 

* * 
***************** 



*****H3*** ******* 

* * 

* INSERT SET * 
*MODE OPERATION * 

* CODE * 

* * 
***************** 



**** j 3** ******* 

* * 

* RETURN * 
ft * 

*************** 



Chart AH. SETMD Routine 
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***** 
*AI * 

* E3* 
* * 



.* CHECK *. 


NO 




*• OPERATION • 


* • • • 




*. •* 




X 


*. .* 




***** 


* • •* 




*AD * 


* YES 




* F2* 

* * 



C3 *. 
.* * 
YES .* DEVICE 

*. CHECKED 

X *. YET 

***** *. .* 

*AF * *. .* 

* G3* * NO 

* * 



*****D 3* ********* 

* CLEAR * 
*PCI/ ATTENTION * 

* FLAGS. * 
♦SET WAIT CHECK * 

* FLAG * 
***************** 



X 
***** 
*AF * 
* E3* 



Chart AI. SD2 Routine 
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***** 
*AJ * 

* E3* 



*****B3* ********* 

* * 

* CLEAR * 

* DATA GROUP * 

* FLAGS * 

* * 
***************** 



C3 *. 
.* *. 
NO .* CONTROL *. 

*. OPERATION .* 

X *. OPCODE .* 

***** *• 3 •* 

*AD * *. .* 

* G3* * YES 



*****D 3*** ******* 

* * 

* SET CONTROL * 

* OP3 IN * 

* CCW MODEL * 

* * 
***************** 



E3 *. 

.* CONTROL 
*• OPERATION 
*. OPCODE 
*. 7 .* 
*. .* 
* NO 



*****E4 ********** 

* * 

* SET CONTROL * 
X* 0P7 IN * 

* CCW MODEL * 

* * 
***************** 



*****F 3 ********** 

* SET UP * 

* CONTROL * 

* INFORMATION '* 

* IN CCW * 

* MODEL * 
***************** 



***** 
*AD * 
* G3* 



Chart AJ. SD5 Routine 
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***** 

*AK * 

* A3* 

* * 

* 

i 



***** A3 ********** 

* * 

* SET * 

* DATA GROUP * 

* FLAGS * 

* * 
***************** 



*****B3 ********** 

* MOVE BUFFER * 

* ADDRESS AND * 
>* BYTE COUNT * 

* INTO MODEL * 

* * 
***************** 

I 



*AK * 
* B3* 
***** 



*****C 3* ********* 
*SD72 ALB3* 
*_*_■*_*_*■_■*_*_■»•_* 

* EXTRACT DATA * 
*PARAMETERS FROM* 

* SVC CALL * 
***************** 

I 



i 



*****D3********** 

* SET UP * 

* WRITE * 

* OPERATION *<- 

* CODE * 

* * 
***************** 



***** 

*AK * 

* D3* 

* * 



YES •* READ *. 
*. OPERATION •*<- 



• * 
.* 

NO 



PRINT *. YES 
OPERATION .* 



.* WRITE *• YES 

*. OPERATION .* 

*. .* 



A NO 



***** 

*AD * 

* H3* 

* * 



| Chart AK. SD7 Routine 



*****E4 ********** 

*SD74 ANB3* 

*—*-*-*-*-*-*-*-* 

->* ADJUST * 

* FOR PRINT * 

* OPERATION * 
***************** 



*****F 4* ********* 
* 
* 
->* 



ADJUST 

FOR 1442 

PUNCH 



***************** 
I 
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***** 
*AK * 

* D3* 



***** 03 ********** 

* CLEAR WORK * 
*REG. LOAD REG. * 

* IDENTITIES OF * 

* DATA POINTER * 

* * 
***************** 



*****E3* ********* 

* OBTAIN AND * 

* LOAD BYTE * 
*COUNT REGISTER * 

* IDENTITY * 

***************** 



*****P3********** 

* EXTRACT DATA * 

* ADDRESS SPAN * 

* * 

* FIND STORAGE * 

* SPANS * 
***************** 



*****G3* ********* 

* POSITION BYTE * 

* COUNT SPAN * 

* LOAD SAVE * 

* AREA POINTER * 

* * 
***************** 



*****H3* ********* 

* FORM POINTERS * 

* BYTE COUNT * 

* AREA SET BYTE * 

* COUNT IN * 

* MODEL * 
***************** 

I 



I 

V 
***** J3* ********* 
*FORM POINTER TO* 

* DATA ADDRESS * 
*AREA. SET DATA * 

* ADDRESS IN * 

* MODEL * 
***************** 



Chart AL. SD72 Routine 
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***** 

*AM * 

* B3* 

* * 



*****B2* ********* 
*SD742 * 

*—*—*—*—*—*—*—*—* 

* SET FOR *<- 

* PRINTS * 

* * 
***************** 



****D2* ******** 
» * 

* RETURN *<- 

* * 
*************** 



YES .* PRINTB 
*. OPERATION 



.* PRINTA 
*• OPERATION 



* NO 

I 



*****C4*** ******* 
*SD743 * 

*_*■_#_#_♦_•*_#_.*_.* 

->* SET FOR * 

* PRINTA * 

* * 
***************** 



>j< 

H3 
• X. 
D3 *, 
.* * 
NO .* GRAPHIC 
*. DEVICE 



*****D4* ********* 
*SD741 * 

->* SET PRINTER * 

* TO FORTRAN * 

* CTL CHAR * 
***************** 



*****E3* ********* 

* SET PRINTER * 

* CARRIAGE * 

* CTL CHAR *< 

* IN MODEL * 

* * 
***************** 



I 

• V. 

F3 *. 

.* *. 

PRINTER 

"*. .*" 

*. .* 
* YES 



*****G3********** 

* ADJUST DATA * 

* PARAMETERS * 

* TO OMIT *<- 

* CTL CHAR * 

* * 
***************** 



****H3* ******** 

* RETURN * 

* * 
*************** 



*****F 4 ********** 

* SET CNSL PRTR * 

* CARRIAGE * 
->* CTL CHAR * 

* IN MODEL * 

* * 
***************** 



| Chart AM. SD74 Routine 
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***** 

*AN * 

* Bl* 

* * 



***** 
*AN * 
* B4* 



i 
S0741 V 

*****81 ********** 

* SET PRINTER * 

* FOR FORTRAN * 

* CONTROL * 
^CHARACTER LIST * 

* * 
***************** 



YES •* FORTRAN *• 

*. CHARACTER • *<- 

*. .* 



SD7418 V 

*****B4* ********* 

* * 

* EXTRACT * 

* TEST * 

* CHARACTER * 

* * 
***************** 



*****C4* ********* 

* * 

* SET FOR * 

* 4-CCW * 

* CHAIN * 

* * 
***************** 



.* LIST 
«. COMPLETE 
*• 



*****D2 ********** 



INCREMENT 
POINTER 



***************** 



CONSOLE *. 
PRINTER 
SKIP .* 



*****£ 1 ********** 
* 
* 
->* 



SET POINTER 

TO CTL 

CHARACTER 



***************** 



****F 1 ********* 

* * 

* RETURN * 

* * 
*************** 



*****E4 ********** 

* * 

* SET FOR * 

* 3-CCW * 

* CHAIN * 

* * 
***************** 



I 

• V. 

F4 *. 

.* * 

NO .* NO 

*. SPACE 



*. 



*****H2* ********* 

* * 

* SET UP * 

* CCW FOR *< 

* SKIP * 

* * 
***************** 



PRINTER 
SKIP 



i 



***** j 3* ********* 
* 
* 
->* 



SET FOR 

SINGLE 

CCW 



I Chart AN. SD741 Routine 



* YES 
I 



*****G4* ********* 

* * 

* SET FOR * 

* 2-CCW * 

* CHAIN * 

* * 
***************** 



*****H4 ********** 

* * 

* SET UP * 

* CHAINING *< 

* FLAG * 

* * 
***************** 



**** j 4* ******** 

* * 
->* RETURN * 

* * 
*************** 



***************** 
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***** 

*AO * 
* A5* 



**** a 1 ********* 
* 
RETURN * 

*************** 



SD742 
NO .** 



***#A4**# ****** 

* * 

* RETURN * 

* * 
*************** 



*****B2* ********* 

* * 

* SET POINTER * 

* TO PRINTB * 

* CHAR LIST * 

* * 
***************** 



****C2* ******** 

* * 

* RETURN * 

* * 
*************** 



*****B5********** 

* * 

* SET POINTER * 

* TO PRINTA * 

* CHAR LIST * 

* * 
***************** 



****C5********* 

* * 

* RETURN * 

* * 
*************** 



Chart AO. SD742 and SD743 Routines 
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****A2***** 
* RETURN 



LOAD PT 

INDICATOR 

SET 



CLEAR 

CONTROL 

AREAS 



***D1******** 
CLEAR TAPE 
CLEAN COUNT 

AND RESET 

RETRY COUNT 

TO 10 



* ANY * 

ERROR SENSE 
*. 3ITS .* 



**C3* ******* 
RETURN 



**** 

♦ * 

* E4 * 



***E2* ******* 

SET CAW 

FOR FORWARD 

SPACE 



*****E3******* 

* RESTORE 

* RETRY 

* COUNTS 



SET CAW 

FOR FIX CCW 

RECOVERY 



*****D4 ******** 

* SET 

* 'NOT FIRST 

* ERROR' 

* SWITCH 



* E4 * 1 



***E4******** 

CLEAR 

TAPE CLEAN 

COUNT 



*****F 4 ******** 
* 

* SET 

— * RETRY COUNT 

* TO 3 



r 



*********** 



****F5******* 

SET READ 

INDICATION 

AND RETRY 

COUNT 

TO 10 



*****H1 ****** 

* INDICATE 

* RETRY 

* COMPLETE 



***J1 ****** 
RETURN 



TAPE 
CLEAN CT 
.EAHAUSTED. 



****J2******* 

SET CAW TO 

CLEAN CHAIN. 

SET RETRY 

COUNT TO 



10 



CLEAR 

CONTROL 

AREAS 



RETRY 

COUNT 

.EXHAUSTED. 



***** j 3*** ****** 

* SET FIX CCW 

* TO INDICATE 

* REQUEST TRACK 

* IN ERROR 



*****G5********** 

* * 

* SET TAPE * 

* CLEAN COUNT * 

* TO 10 * 



****H4* ********* 



SAVE RETRY 

AND TAPE 

CLEAN COUNTS 



SET 

FIX CCW 

TO ERASE GAP 



| Chart AP. SRETRY Routine 
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Entry for a CC3 
after an SIO 



AQI Normal Entry 

vBiy 



Set Unavailable 
SEREP Code 



Clear SEREP 
Save Area 



Set FIC 

inPSW 



CI 



Set FIA 
in PSW 



Set Return 
for SXTI NT 



Set Up Return 
for SXTI N 



Determine D 
Character for 
Message 





Set SEREP 
Channel 
Code Flag 



c 



Set FID 
in PSW 



Enable PSW 
Print Message 



Set FIS 

in PSW 



J> 



Normal 
Return 




F4 



Set Entry for 
SEREP, Entry to 
EXTERN PSW, 
Unit Address in 
FSD Area 



c 



J 



Clear DSCB 
Error Byte, 
Set Up Return 
to SRAGIN 



•Chart AQ. SERP Routine (Part 1 of 2) 
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Get Sense 
Data, Set 
SEREP Unit 
Flag 



Intervention N. 
Required S 


; YES 




NO 


rAQ 




F2 




Da 


ta N. 


YES 





This is an unconditional 
NO branch to AQC4 during 

compilation 



• Chart AR. SERP Routine (Part 2 of 2) 
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CONTROL CARD ROUTINE 



At: the beginning of any job (whether a 
single job or a job within a multiple job) , 
the FORTRAN System Director (FSD) reads in 
and gives control to the Control Card 
routine • The Control Card routine reads in 
control cards (also referred to as control 
statements) , sets appropriate indicators in 
the communications area, and determines 
whether: 

1. The system is to be modified. 

2. An object program is to be executed. 

3. A source program is to be compiled. 

4. A combination of functions is to be 
performed (e.g., compile and execute). 

Chart 02, the Control Card Routine Over- 
all Logic Diagram, indicates the entrance 
to and exit from the Control Card routine 
and is a guide to the overall functions of 
the routine. 



ROUTINES 



The CCLASS 
control cards 
function to 
compilation) . 



routine (Chart AT) reads 
and determines the type of 
be performed (e.g., a 
Charts AU through AZ rep- 



resent the various 
the FTC, EDIT, LOAD, 
control cards. 



routines that process 
SET, JOB, and DATA 



CCLASS Routine: Chart AT 



The CCLASS (Control Card Classification) 
routine controls the processing of control 
cards (also referred to as control 
statements) used in conjunction with compi- 
lation and execution. 

ENTRANCE: The CCLASS routine receives con- 



trol from the FSD. 



CONSIDERATION 



Any job 
DATA control 



is terminated by 
card or an end of 



either a 

data set. The DATA control card is used as 
a flag by the CCLASS routine. In a compile 
and execute job, there may be blank cards 
between the source program and the input 
data to be used during execution. In this 
case, the CCLASS routine can quickly step 
through the blank cards because a DATA 
control card precedes any object- time data 
cards . 



For compile and execute jobs, all com- 
piled source and object programs to be 
executed are placed on the GO tape. 

OPERATION: The operation of the CCLASS 
routine is discussed in accordance with the 
relative position of an input card to one 
or more jobs. 

Initial Entry Into CCLASS Routine: Any 
entry into the CCLASS routine prior to the 
first compilation or execution immediately 
causes a card to be read. The card may be 
either a blank card, a control card, or the 
first card of an object or source program. 

The CCLASS routine ignores any blank 
card and proceeds to read another card. 

A control card causes the CCLASS routine 
to give control to the appropriate Control 
Card routine, which interprets the informa- 
tion on the card and sets up the proper 
directives for subsequent action. 

The first card of an object program 
causes the CCLASS routine to take one of 
two options: (1) if the object program is 
to be executed, each object program card is 
written on the GO tape, or (2) if the 
object program is not to be executed, each 
object program card is ignored. 

The encounter of any other type of card 
causes the CCLASS routine to assume the 
card is the first card of a source program . 
Therefore, the FSD is called to load Phase 
10 and begin compilation. 

Subsequent Entry Into CCLASS Routine: 
After a source program has been compiled, 
the FSD returns control to the CCLASS 
routine which determines if a single or 
multiple job is currently specified. 

For a single job , the CCLASS routine, 
upon receiving control after the compila- 
tion, looks for a DATA control card. When 
a DATA control card is read, control is 
given to the CCDATA routine. 

If the end of data set, or a card other 
than a blank card, is encountered without 
finding the DATA control card, the CCLASS 
routine performs the following functions. 
It prints a warning message indicating that 
the DATA control card is missing, simulates 
the DATA control card, and then returns 
control to the FSD. The FSD either termi- 
nates the job or calls the FORTRAN loader, 
depending on whether or not the job is to 
be executed. 



Control Card Routine 
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For a multiple job , the CCLASS routine 
immediately reviews the contents of the 
last card that was read to determine its 
type. (The last phase has read a card that 
now becomes the first card to be processed 
by the CCLASS routine. This card is saved 
in a buffer in the communications area, 
which remains resident in main storage.) 

The subsequent operation of the CCLASS 
routine is similar to the operations per- 
formed upon the initial entry into the 
CCLASS routine. 

EXIT: The CCLASS routine exits to the FSD 
or to one of the control card routines. 



CCJOB Routine: Chart AU 



CONSIDERATION: 



control card 

mine action taken during 

compi lati on . 



The information in the FTC 
is used by the FSD to deter- 
and/or following 



OPERATION: The FTC control card is 
scanned, field by field, by the CCFTC 
routine to determine any specified option 
or options. Appropriate indicators are set 
in the communications area for performance 
of the desired functions. 

EXIT: When a blank field is encountered, 
indicating that all options have been exam- 
ined, the CCFTC routine returns control to 
the CCLASS routine. The CCFTC routine may 
also be terminated if a specified option 
does not correspond with an available 
option. If this occurs, an error message 
is written, and control is returned to the 
CCLASS routine. 



The CCJOB (Job Control Card) routine 
interprets information supplied on the JOB 
control card and transforms that informa- 
tion into appropriate directives for the 
FSD. 

ENTRANCE : The CCJOB routine receives con- 
trol from the CCLASS routine when a JOB 
control card is encountered. 

CONSIDERATIONS : The information on the JOB 
control card is subsequently used by the 
CCLASS routine to determine: (1) whether a 
single or multiple job is specified, and 
(2) the action taken following compilation. 

OPERATION: The JOB control card is scanned 
to determine the desired option. When an 
option is determined, a corresponding indi- 
cator is set in the communications area. 

EXIT: When a blank field is encountered, 
indicating that all specifications have 
been examined, the CCJOB routine returns 
control to the CCLASS routine. The CCJOB 
routine may also be terminated if a speci- 
fied option does not correspond with an 
available option. If this occurs, an error 
message is written, and control is returned 
to the CCLASS routine. 



CCFTC Routine: Chart AV 



The CCFTC (FTC Control Card) routine 
interprets information supplied on the FTC 
control card and transforms that informa- 
tion into directives for the FSD. 



CCSET Routine: Chart AW 



The CCSET (SET Control Card) routine 
uses information supplied on the SET con- 
trol card to temporarily modify the device 
assignment table in main storage. The 
device assignment table is used in the 
compilation of the source program. The 
device assignment table on the system tape 
is not modified by this routine. 

ENTRANCE: The CCSET routine receives con- 
trol from the CCLASS routine when a SET 
control card is encountered. 

CONSIDERATIONS : The device assignment 
table in the FSD contains a list of data 
set reference numbers and a list of corres- 
ponding addresses of the physical devices 
to which these data set reference numbers 
refer. (An input/output device is ref- 
a data set reference number 
no way implies a particular 
specification within the device 
table specifies the type of 



ENTRANCE 



The CCFTC routine receives con- 

from the CCLASS routine when a FTC 



trol 

control card is encountered. 



erenced by 

which in 

device.) A 

assignment 

device and its physical address. 

An arbitrary I/O configuration, under- 
stood by the compiler, exists for each 
installation. Unless specific changes are 
to be made to this configuration, the SET 
card does not have to be specified. Dif- 
ferent installations have different physi- 
cal addresses and therefore call for dif- 
ferent changes in the device assignment 
table. 

The SET option, requested by a control 
card at compile time, is performed only for 
that job. If permanent changes in the 
device assignment table are required, the 
EDIT option may be used. The EDIT option 
recognizes the same SET card; however, a 
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new system tape with an altered 
assignment table is generated. 



device 



OPERATION: 



The 



LOAD control card is 



Another SET card option, LINE NUMBER, is 
used to specify a line longer than 120 
characters. During compilation, a count is 
kept of the number of characters indicated 
in the FORMAT statement. If the count 
exceeds 120, a warning message is issued. 
If a printer with a 132-character line is 
being used, the LINE NUMBER option allows 
the normal 120-character line to extend to 
132 characters. 

OPERATION: The CCSET routine checks the 
first option field. If the field is blank, 
a return is made in the CCLASS routine to 
read the next card. If the field is not 
blank, a check is made for a line count. 
If the field contains a line count, the 
number is converted to binary and placed in 
the communications area. If the line count 
is not specified, the data set reference 
number on the card is stored, and the 
device assignment table in main storage is 
searched for that data set reference num- 
ber. If the number is not found, the new 
data set refernce number is invalid and an 
error message is produced. 

The next option field is examined. If 
this field is blank, the routine returns to 
the CCLASS routine to read another card. 
If the field is not blank, checks are made 
for a line number and/or data set reference 
number, and the information is processed as 
previously described. If the word LINE is 
misspelled, the routine assumes that the 
field contains a data set refernce number. 
If the assumed number is not found in the 
device assignment table, the misspelled 
word is treated as an invalid data set 
refernce number, and an error message is 
produced. 

EXIT: When a blank field is encountered, 
indicating that all specifications have 
been processed, the CCSET routine returns 
control to the CCLASS routine. 



CCLOAD Routine: Chart AX 



The CCLOAD (LOAD Control Card) routine 
interprets information on the LOAD control 
card ^nd transforms that information into 
directives for the CCLOAD routine. 

ENTRANCE : The CCLOAD routine receives con- 
trol form the CCLASS routine when a LOAD 
control card is encountered. 



CONSIDERATION: 



The information on the LOAD 
control card is scanned by the CCLOAD 
routine to determine certain object-time 
information. 



scanned by the CCLOAD routines to determine 
any specified option or options. Appropri- 
ate indicators are set in the communi- 
cations area to indicate the specifed 
object-time information. 

EXIT: The CCLOAD routine passes control to 
the FSD after any specified options have 
been processed. The FSD either terminates 
the job or calls the FORTRAN loader, 
depending upon the condition of the GO or 
NOGO flags. 



CCEDIT Routine: Chart AY 



The CCEDIT (EDIT Control Card) routine 
allows permanent changes in certain aspects 
of the system tape as contrasted to tem- 
porary alterations in system conditions 
caused by the CCSET routine. The CCEDIT 
routine accomplishes this by supplying user 
information on altered conditions to the 
editor. 

ENTRANCE : The CCEDIT routine receives con- 
trol from the CCLASS routine when an EDIT 
control card is encountered. 

OPERATION: The EDIT control card causes 
the FORTRAN System Director to search the 
existing system tape for the editor, load 
the editor into main storage, and then pass 
control to the editor. Other than its 
identification, the EDIT contrcl card is 
not examined in this routine. 

EXIT: The CCEDIT routine is terminated 
when control is passed to the editor. 



CCUNIT Routine: Chart AY 



The CCUNIT (UNITS Control Card) routine 
prints out a description of the device 
assignment table indicating the logical 
unit number and its associated address. 

ENTRANCE : The CCUNIT routine receives con- 
trol from the CdLASS routine when a UNITS 
control card is encountered. 

OPERATION: The UNIT control card indicates 
that a description of each of the 16 units 
used is to be printed with appropriate 
heading information. This printing occurs 
each time a UNIT control card is encoun- 
tered. 



EXIT: 



The CCUNIT routine returns control 



to the CCLASS routine. 



Control Card Routine 



59 



CCDATA Routine: Chart AZ 



The CCDATA (DATA Control Card) routine 
recognizes the end of the input data set 
for the compiler and determines if an 
execution is to be performed. It prepares 
directives for the CCLOAD routine or for 
the FORTRAN System Director job termina- 
tion f accordingly. 



ENTRANCE : The CCDATA routine receives con- 
trol from the CCLASS routine when a DATA 
control card is encountered. 



CONSIDERATIONS: 



The DATA control card 
there are no more cards to 

Furth- 



indicates that 

be processed by the CCLASS routine 
er, the DATA control card immediately pre- 
cedes any data cards the user may have 
accompanying his program. 
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***** 
*02 * 
* B3* 



*****B3 ********** 
*WHEN INDICATED * 

* SET UP INFO * 
*FROM CNTRL CRDS* 
*IN THE COMMUNI-* 

* CATIONS AREA * 
***************** 

i 
I 



C3 *. 
•* IS *. 
•* SYSTEM *. YES 

TO BE .* 

*. EDITED •* 



****C4********* 
♦FORTRAN SYSTEM * 
->*DRCTOR TO LOAD * 
* EDITOR * 

*************** 



,Ve 

D3 *. 

«* HAVE *• 
,ALL COMPILA- • NO 
*• TIONS BEEN • *— — 
*«, COMPLETED** 
*• • * 
*. „* 
* YES 



****D4 ********* 
♦FORTRAN SYSTEM * 
->*DRCTOR TO LOAD * 
*PH10 OF COMPLER* 

*************** 



• V. 

E3 ♦• 

.♦ IS *. 

* OBJECT ♦• YES 
PROGRAM TO .* 

♦ • BE EXE- .♦ 

*,CUTED.* 

*» »* 

* NO 
1 



****E4*** ****** 
♦FORTRAN SYSTEM * 
~>*DRCTOR TO LOAD * 
* LOADER * 

*************** 



****P3*** ****** 
♦FORTRAN SYSTEM * 
'* DRCTOR TO * 
* TERMINATE JOB * 

*************** 



Chart 02. Control Card Overall Logic Diagram 



Control Card Routine 



61 



Form Z28-6620-0 
Page Revised 1/11/66 
By TNL Z28-2117 



****A1******* 
INITIALIZE 



PRINT 

THE 
CARD 



• *IS THIS*. 

.*FIRST ENTRY* 

TO CCLASS 

*. ROUTINE .* 



* HAS 

TIMER BEEN 
*. STOPPED 



***B2**** 

READ 

A 
CARD 



***C2* ******* 

COMPUTE 

AND PRINT 

COMPILATION 

TIME 



IS THIS 

A SINGLE 

JOB 



** I 

**E1 *********** 

READ * 

A 
CARD * 



END 

OF DATA 

SET 



D3 *. 

.* WAS *. 

* LAST 

CARD DATA 
*. CONTROL . 

♦.CARD .* 

NO 



•— ] 



CARD TYPE 



FTC CONTROL CARD 




AVA1 


EDIT CONTROL CARD 


* 


AYB3 


LOAD CONTROL CARD 


* 


AXA2 


SET CONTROL CARD 


* 


AWB2 • 


JOB CONTROL CARD 


* 


AUA2 


DATA CONTROL CARD 


* 


AZB3 


UNITS CONTROL CARD 


* 


AYB5 


INVALID CONTROL CARD 


* 


E5 OF THIS CHART 



WRITE WARNING 

MESSAGE - 

DATA CONTROL 

♦CARD MISSING * 



***E5******** 
WRITE ERROR 
MESSAGE- 
INVALID 
CONTROL 
CARD 



CARD 

CONTROL 

CARD 



* IS CARD * 

OBJECT DECK 
*. CARD .* 





.* WAS * 


YES 


.* LAST 




CARD DATA 


1 


*. CONTROL 


1 


*.CARD .* 



WRITE WARNING 

MESSAGE - 

DATA CONTROL 

♦CARD MISSING * 



* IS CARD * 

OBJECT DECK 
*. CARD .* 



•— >*AB 



.♦PROGRAM TO *. 
->*BE EXECUTED IF 
*NO COMPILE * 
*. ERROR.* 



.♦PROGRAM TO ♦. 
♦BE EXECUTED IF 
♦NO COMPILE ♦ 
♦. ERROR. ♦ 



*****H3*** ****** 

WRITE CARD ON 

* GO TAPE 

AND MAKE 

* RECORD * 

OF IT 



I 



IN FORTRAN 

SYSTEM 

DIRECTOR 



WRITE 
CARD ON 
GO TAPE 



I Chart AT. CCLASS Routine 
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*****A2** ******** 

* EXAMINE * 

* FIRST OPTION * 

* FIELD * 

* * 
***************** 



*****B2** ******** 
*RESET ALL INDI-* 
*CATCRS, ASSOCI-* 

* ATED WITH JOE * 

* CONTROL CARD, * 
*TC ASSUMED COND* 
***************** 



***** 
*AT * 
* E2* 



ASSUMED 
CONDITIONS 
PREVAIL 



NOGO 

OPTION 

.SPECIFIE 



*****D3********** 

* * 

* SET INDICATOR * 
X* TO PREVENT *. 

* EXECUTION * 

* * 
***************** 



*****E 3**** ****** 

* * 

* SET INDICATOR * 
.X* FOR EXECUTION * . 

* IF NO COMPILE * 

* ERRORS * 
***************** 



.* GOGO 
OPTION 
*. SPECIFIED. 



*****P3* ********* 

* * 

* SET INDICATOR * 
•X*FOR UNQUALIFIED*. 

* EXECUTION * 

* * 
***************** 



*****G3********** 

* * 

* SET INDICATOR * 
X* FOR *. 

* SINGLE JOB * 

* * 
***************** 



*****H3 ********** 

* * 

* SET INDICATOR * 
•X* FOR MULTIPLE *. 

* JOB * 

* * 
***************** 



*****H4********** 

* * 

* ACCESS * 
X* NEXT OPTION * 

* FIELD * 

* * 
***************** 



****** J2*« ********* 

WRITE ERROR 

* MESSAGE- * 

INVALID 

* CONTROL * 

CARD 

************* 



J4 *. 

.* * v **** 

.* IS OPTION *. NO * * 
FIELD .*....X* D2 * 
*. BLANK .* * * 
*. a * **** 

*• •* 
. YES 



Chart AU. CCJOB Routine 



***** 

*AT * 
* B2* 
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EXAMINE 

FIRST OPTION 

FIELD 



•••••B l »»•*»«***« 
•RESET ALL INDI-« 
•CATORS, ASSOCI-* 
« ATED WITH FTC * 
* CONTROL CARD, * 
*TO ASSUMED COND* 



ASSUMED 

CONDITIONS 

PREVAIL 



* DECK 

OPTION 
♦.SPECIFIED. 



NODECK 

OPTION 

•SPECIFIED. 



MAP 

OPTION 

.SPECIFIED. 



NOMAP 

OPTION 

. SPECIFIED. i 



•***«D2** ******** 

* SET INDICATOR * 

.X* FOR PUNCHING *. 

•OF OBJECT DECK • 



*««««E2*« ******** 

* SET INDICATOR * 
X* TO PREVENT * 

* PUNCHING * 
•OF OBJECT DECK * 



•«*««F2*** **«••*■ 

• SET INDICATOR '■ 

.X» FOR PRINTING < 

*CF STORAGE MAP '■ 



•***«G2*« ««»«*•* 

* SET INDICATOR 
X* TO PREVENT 

* PRINTING OF 

* STORAGE MAP 



***«*H2** ******** 

* SET INDICATOR * 
X* TO PRODUCE *. 

•SOURCE PROGRAM * 

* LISTING * 



MACHINE 

SIZE 

.SPECIFIED.- 



* STORE MACHINE ' 
X* SIZE IN < 

•COMMUNICATIONS ; 

* AREA 



•••E4*********** 
WRITE ERROR 
MESSAGE- * 
INVALID 
CONTROL • 
CARD 



NOLIST 

OPTION 

.SPECIFIED. 



JOB 

NAME 

•SPECIFIED. 



» SET INDICATOR 

• TO PREVENT 

* LISTING OF 
•SOURCE PROGRAM ■ 



* ACCESS • 
X* NEXT OPTION *X. 

* FIELD * 



* STORE JOB 
X* NAME IN 
•COMMUNICATIONS 
» AREA 



Chart AV. CCFTC Routine 
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***** 

*AW * 
* B2* 



*****B2********** 

* * 

* EXAMINE * 

* FIRST OPTION * 

* FIELC * 

* * 
***************** 



.* *. 

.* IS *. YES 




*. BLANK .* 
*• •* 
*. .* 
* NO 


X 
***** 
*AT * 
* E2* 



**** 
it D2 * 



******F 1*********** 

WRITE ERROR 

* MESSAGE - * 

INVALID X« 
* CONTROL * 
CARD 
************* 



***** 
*AT * 
* B2* 



D2 *. 

.* *. 

LINE 

COUNT 

•SPECIFIED- 

*. .* 

*. .* 

* NO 



*****E2 ********** 

* * 
*ACCESS DATA SET* 

* REFERENCE * 

* NUMBER * 

* * 
***************** 



F2 *. 

.* NO. *• 

* IN DEVICE * 

ASSIGNMENT 

*. TABLE .* 

*• .* 

*• • * 

* YES 



*****G2********** 

* ENTER NUMBER, * 
*AND ASSOCIATED * 

* INFORMATION *. 

* CN SET CARD, * 

* IN TABLE * 
***************** 



*****D 3* ********* 

* * 

* STORE LINE * 
•X* COUNT IN * 

COMMUNICATIONS * 

* AREA * 
***************** 



*****G3********** 

* * 

* ACCESS * 
K* NEXT OPTION * 

* FIELD * 

* * 
***************** 



H3 *• 

.* *. **** 

.* IS *• NO * * 

•OPTION FIELD .*....X* D2 * 

*• ELANK .* * * 

*. .* **** 



* YES 



X 

***** 

*AT * 

* B2* 

* * 



Chart AW. CCSET Routine 
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***** 
*AX * 
* A2* 



*****A2* ********* 

* * 

* EXAMINE * 

* FIRST OPTION * 

* FIELC * 

* * 
***************** 



*****B2** ******** 
*RESET ALL INDI-* 
*CATCRS. ASSOCI-* 
*ATED WITH LOAD * 
* CONTROL CARC, * 
*TC ASSUMED CCNC* 
***************** 



.* IS *. YES 
*. OPTION FIELD 
*. BLANK 



X 
***** 


*AZ * 

* C3* 
* * 



.* DOES *. YES 
•X*. FIELD CONTAIN.*.... 
*. MAP • * 



*****D3*** ******* 

* SET INDICATOR * 

* FOR LOADER TO * 
•X*PRINT ADDRESSES*. 

*OF SUBROUTINES * 

* AS LOADED * 
***************** 



E2 



*. 



.* DOES *. YES 
*. FIELD CONTAIN.*.... 
*. NO MAP .* 
*. .* 
*. .* 
* NO 



*****E3********** 

* SET INDICATOR * 
*TO PREVENT LDR * 

<*FROM PRNTNG THE*. 

* ADDRESSES OF * 

* SUBROUTINES * 
***************** 



.* DOES *. YES 
*. FIELD CONTAIN.*.... 
*. TAPE .* 



*****F3********** 

* SET INDICATOR * 

* FOR LOADER TO * 
•X* GET OBJECT *. 

* PROGRAM FROM * 

* TAPE * 
***************** 



.* DOES *. YES 
*. FIELD CONTAIN.*.... 
*. CARD .* 



*****G3**** ****** 

* SET INDICATOR * 

* FOR LOADER TO * 
X* GET OBJECT *. 

* PROGRAM FROM * 

* CARD READER * 
***************** 



*****G4********** 

* * 

* ACCESS * 
•X* NEXT OPTION * 

* FIELD * 

* * 
***************** 



****** H2 *********** 

WRITE ERROR 

* MESSAGE- * 

INVALID 

* CONTROL * 

CARD 

************* 



H4 *. 
.* *. **** 

.* IS *. NO * * 
*. OPTION FIELD .*....X* D2 * 
*. BLANK .* * * 

*. „# **** 

*. .* 
* YES 



X 
***** 
*AZ * 
* C3* 



***** 

*AZ * 

* C3* 

* * 
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Form Z28-6620-0 
Page Revised 1/11/66 
By TNL Z28-2117 



***** 

*AY * 

* B3* 



***** 
*AY * 

* B5* 



*****B 3*** ******* 

* CALL FSD TO * 

* SEARCH SYSTEM * 

* TAPE FOR * 

* EDITOR * 

* * 
***************** 



V 

***** 

*AB * 

* 81* 

* * 



GIVE CONTROL TO 

FSD TO LOAD THE 

EDITOR 



*****B5********** 



PRINT 
HEADING 



***************** 



*****C5* ********* 

* EXAMINE * 

* UNIT TABLE * 

* FOR DEVICE * 

* AND ADDRESS * 

* * 
***************** 



I 
I 

V 

****** D5** ********* 

SET UP 

* PRINT BUFFER * 

AND PRINT 

* LINE * 

************* 



I 

.V. 

E5 *. 

.* HAVE *. 

NO .* ALL *. 

*. UNITS BEEN 

♦.PROCESSED.* 



.* 
YES 



I 

I 

V 

***** 

*AT * 

* B2* 

* * 
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***** 

*AZ * 

* B3* 

* * 

* 

I 



******B3* ********** 

PRINT THE 

* CONTENTS OF * 

THE DATA 

* CONTROL * 







CARD 


**** 






************* 

1 
1 


* * 

* C4 * 

* * 
**** 


***** 




1 
1 


1 
I 


*AZ * 




1 


1 


* C3* 




• V. 


V 


* * 




C3 *. 


******C4* ********** 


* 




.* *• 




1 




.* IS *. NO 


* REWIND * 


I 




r->r->/->/-r-.AH« T/-> ,.11- Jt 
















*.EAECUTED .* 


* TAPE * 



************* 



******D1 *********** 

WRITE MESSAGE- 

* EXECUTION * 

ABORTED DUE TO <- 

* ERROR(S) * 

************* 



COMPILE 

ERROR 
EXISTS 



.* GOGO *. 
OPTION .* 
*. SPECIFIED,* 



******D4 *********** 

*WRITE MESSAGE- * 

END OF 

* JOB * 

************* 



I 
I 

V 
**** 

* * 

* C4 * 

* * 
**** 



I 

V 

******E3 *********** 

WRITE END 

* OF DATA SET * 

ON GO TAPE, 

* IF * 

APPLICABLE 

************* 



******F 3* ********** 

REWIND 

* GO TAPE, * 

IF 

* APPLICABLE * 

************* 
I 



I 



******G 3* ********** 

ACCESS 

* LOADER * 

ON 

* SYSTEM * 

TAPE 
************* 

I 

I 

I 

I 

V 
******H3* ********** 

*WRITE MESSAGE- * 
BEGIN 

* EXECUTION * 

************* 

I 



V 
***** 
*AB * 
* Bl* 



GIVE CONTROL TO 

FSD TO LOAD THE 

LOADER 



I 

V 
***** 
*AB * 

* Bl * 
* * 



GIVE CONTROL TO 
FSD TO TERMIN- 
ATE THE JOB 
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PART 3: COMPILATION 



Source programs written in the IBM 
System/360 Basic Programming Support 
FORTRAN IV language are compiled by the 
segments on the system tape that constitute 
the Basic Programming Support FORTRAN com- 
piler. 

The FORTRAN compiler analyzes the source 
program statements and transforms them into 
an object program compatible to IBM 
System/360. In addition, if any source 
program errors exist, the FORTRAN compiler 
produces appropriate messages. At the 
user"s option, a complete listing of the 
source program is produced and/or an object 
deck is punched. 

The compiler segments consist of the two 
control segments discussed in Part 2 and 
the seven phases (10, 12, 14, 15, 20, 25, 
and 30) to be discussed in this part of the 
manual • 
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PHASE 10 



Phase 10 converts FORTRAN source state- 
ments into input for subsequent phases of 
the Basic Programming Support FORTRAN com- 
piler. This input consists of intermediate 
text, the dictionary , overflow table, 
COMMON text, and EQUIVALENCE text. 

Chart 03 , the Phase 10 Overall Logic 
Diagram, indicates the entrance to and exit 
from Phase 10 and is a guide to the overall 
functions of the phase. 

Intermediate text provides a format that 
can be easily converted to machine language 
instructions. This conversion requires 
coded information about variables, con- 
stants, arrays, statement numbers, in-line 
functions, and subscripts. This coded 
information, derived from the source state- 
ments, is contained in the dictionary and 
overflow table and referenced within the 
intermediate text. 

The COMMON text is a table of variables 
which are assigned to the COMMON area by 
the source program in COMMON statements. 
The EQUIVALENCE text is a table of 
EQUIVALENCE groups assigned by EQUIVALENCE 
statements. The COMMON and EQUIVALENCE 
text contain references to the dictionary. 

Each FORTRAN statement is classified as 
either a keyword statement, arithmetic 
statement function, or arithmetic state- 
ment. 

The first symbol in the FORTRAN state- 
ment is checked against a list of keywords 
contained in the dictionary. If this sym- 
bol is in the dictionary, control is passed 
to a subroutine whose address is in the 
dictionary with the keyword. The keyword 
subroutine makes entries to the intermedi- 
ate text to indicate that this statement 
requires special processing. 

After these entries have been made, 
control is passed to either an arithmetic 
subroutine which processes arithmetic 
expressions or a subroutine which gets the 
next source statement. 

If the FORTRAN statement does not begin 
with a keyword. Phase 10 determines whether 
the statement defines an arithmetic state- 
ment function. If it does, control passes 
to a subroutine which makes special entries 
to the intermediate text and dictionary for 
that statement function. Control is 
returned to the arithmetic subroutine which 
processes the arithmetic expression in the 
statement. 



If the FORTRAN statement neither begins 
with a keyword nor defines an arithmetic 
statement function, it is an arithmetic 
statement. Control is passed directly to 
the arithmetic subroutine that makes the 
necessary entries for an arithmetic state- 
ment to the intermediate text, dictionary, 
and overflow table. 

The errors checked in Phase 10 are only 
flagged in the intermediate text. No error 
messages are transmitted to the operator 
during Phase 10. 



CHAINING 



The technique used by the FORTRAN com- 
piler to arrange and retrieve items entered 
in the dictionary and overflow table is 
called chaining. Items are chained so less 
time is required to locate the necessary 
information. 

A chain is composed of a number of 
related entries. Each entry consists of an 
item and its related fields. One specific 
field within each entry points to some 
related entry, but not necessarily to the 
one that is physically adjacent in storage 
(See Figure 15) . 



ENTRY 


(D 


(2) 


(3) 


W 


(5) 


(6) 


(7) 


(8) 


(9) 


A 


AB 


C 


DC 


EFG 


HIJ 


NO 


POR 


X 


POINTER 


3 


4 


9 


7 


6 


8 









Figure 15. Example of Chaining 



The lower line in Figure 15 is a pointer 
to the next entry in the chain. For 
example, entries 1, 3, and 9; 2, 4, and 7; 
and 5, 6, and 8 form separate chains. The 
common characteristic of these chains is 
that each item in the specific chain is 
composed of the same number of characters. 
Items can be grouped and entered on a 
separate chain by any characteristic (e.g., 
alphabet, length, or number) that would 
divide the table. Division of a long chain 
into several smaller chains saves time that 
would be used to search one long chain. 

I The thumb index, which contains the 
|addresses of the first entry for each 
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f chain, is directly related to the charac- Operation 
fteristic that separates items into chains. 
I There is an entry in the thumb index for 
leach characteristic that defines a separate 
J chain. By first determining the charac- 
teristic of an item, that item is found or 
J placed in the proper chain by use of the 
I thumb index. 



DICTIONARY 



The dictionary contains names, con ~ 
statits, and data set reference numbers. A 
name is a string of alphabetic and numeric 
characters, the first of which must be 
alphabetic. A name can be any of the 
following z v w ^**» v 



1. 



2. 



3. 

4. 



Variable. In the statement: 

ALPHA=BETA+GAMMA-2 . 0-X1 23X 

the variables ALPHA, BETA, GAMMA, and 
X123X are names. 

Keyword. In the statement: 

DIMENSION A (10,5) 

the keyword DIMENSION is a name. 

Array. In the preceding statement, A 
xs the name of the array. 



In- 1 ine fun ct ion . 
statement: 



In the following 



A=ABS (B) 

the in-line function ABS is a name. 

In the statement: 

REWIND J 

J is entered into the dictionary as a 
variable name, not as a data set reference 
number. 

In the statement: 

REWIND 3 

3 is a data set reference number. The 
compiler distinguishes a data set reference 
number from an integer constant by the 
context in which it is used. For example, 
in the statement: 

I = 1-3 

3 is an integer constant because it is used 
in an arithmetic expression. 



| The dictionary is organized as a series 
|of 15 chains and a thumb index. Each 
faddress in the thumb index points to the 
^beginning of a different chain. There are 
|11 chains organized on the basis of name 
f length. For example, all names with a 
{length of one Binary Coded Decimal (BCD) 
j character are placed in the first chain, 
fall names with a length of two BCD charac- 
ters in the second chain, and so on. 

I Keywords and in-line functions are names 
land the dictionary includes them as perman- 
ent residents of their respective chains. 
I Keywords and in-line functions are present 
fwhen the dictionary is first established in 
-main storage. Names assigned by the user 
are placed in their respective dictionary 
chains as the source program is processed 
by Phase 10. 

Chains 7 through 11 are reserved for 
keywords that range in length from 7 
through 11 characters, (e.g., FUNCTION, 
DIMENSION, EQUIVALENCE, etc.) . No user 
name is placed in these chains. 

I The four remaining chains in the dic- 
tionary are used for real, integer, and 
| double precision constants and data set 
freference numbers; each has its own chain. 

The search for a constant or data set 
reference number entry in the dictionary is 
accomplished by determining what the symbol 
is. If the symbol is a constant. Phase 10 
•determines the mode (real, integer, or 
double precision) and finds the proper 
address in the thumb index. This address 
directs Phase 10 to the beginning of the 
correct chain. If the symbol is a data set 
reference number, the address in the thumb 
index takes the compiler to the data set 
reference number chain. After the correct 
chain is determined, the compiler can fol- 
low the chain addresses in the dictionary 
to search for the correct entry. 

DICTIONARY ENTRY: Each dictionary entry 

contains from five to seven fields. The 

address and size fields are optional (see 
Figure 16) . 



r T T T T T 1 

| Chain | Usage | Mode Type | Image | Address (Size | 

III II I I 
| 2 | 1 | 4 |4 | n | 2 | 2 | 
| bytes | byte | bits | bits | bytes | bytes | bytes | 
i j j. x x x J 

♦ 

In-line 
Function 
Code 

Figure 16. Dictionary Entry Format 
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Chain : During Phase 10 this field contains 
the address of the next entry in the chain. 
The value 0001 in this field indicates the 
last entry in the chain. By following the 
chain, a search is made to see if there is 
a dictionary entry f,or the current item. 
If no dictionary entry is made, one is 
assembled for this item and appended to the 
proper chain. 



words and in-line function names are the 
first entries in their respective chains 
and precede names assigned by the user. In 
the chain for length 2, the keywords IF, 
GO, and DO precede any entry of names 
assigned by the user. The thumb index for 
the length 2 chain points to the entry for 
IF. The chain address for the IF entry 
points to the entry for GO. 



An illustration of chaining in the die- 
tionary is shown in Figure 17. All key- 



THUMB INDEX 



DICTIONARY 



H address of X 



f 

| address of IF 

| address of END 
f 



I 

,. 

| address of 

| EQUIVALENCE 

| address of 
| 123.625 



r T T — T 1 

| address of | usage, mode, type | IF | address of | 

-HGO | for IF I I IF routine | 

l _ x j. j. J 



"T — T" 



address of | usage , mode, type | GO | address of | 
DO | for GO I I GO routine) 



r t t — t 1 

| address of | usage, mode, type | DO | address of| 
L ~~ > |XY | for DO | | DO routine | 



0001 | usage, mode, type [EQUIVALENCE | address of | 

j for EQUIVALENCE j | EQUIVALENCE | 

| | j routine j 

x x x J 



T T — 1 

| address of | usage, mode, type|XY| 
ZZ | for XY j j 






0001 (usage, mode, typejx j 
I for X | | 

x x J 



(address of jusage, mode, type j 123.625 j 
> | next real jfor 123.625 j | 



| constant | 



r T T T ' T 1 

I address of (usage, mode, type | ZZ | address of | | 

_>|next name jfor ZZ (array) | (subscript (size of| 

(of length 2 j j | information j array | 



Figure 17. Dictionary and Thumb Index Format 
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Usage ; The usage field indicates charac- 
teristics of the symbol. Usage is dis- 
cussed later in this section. 



Mode: The mode field contains a hexadeci- 
mal character denoting integer , real, or 
double precision mode. The codes for these 
modes are: 



5 : integer 

6 : double precision 

7 : real 



Type: The type field contains a hexadeci- 
mal character denoting a constant , array, 
function, or variable. Refer to Figure 25 
for the code for these items. The mode and 
type codes are contained in one byte and 
used together in most cases. 



Image : The image field is the BCD card 
image of the symbol. It ranges in length 
from 1 through 11 characters. 



Address: This optional field contains the 
address of a subroutine if the symbol is a 
keyword. It may also be a pointer to the 
dimension entry in the overflow table if 
the symbol is an array. If the symbol is 
an in-line function, the first byte of the 
address field contains the code for the 
particular in-line function. The second 
byte of the address field is not entered 
for in-line functions. 



Size: This optional field is used only for 
arrays and contains the size, in bytes, of I 
an array. This size is found by multiply- j 
ing the dimensions of the array by the| 
length, in bytes, of each item. The length 
is 4 for real or integer mode and 8 for 
double precision mode. i % 



The fields in a dictionary entry contain 
the mode/type, address, and size associated 
with a symbol, plus the symbol itself. 
Still, if the compiler is to produce 
machine language programs, other informa- 
tion is necessary. 

The usage field contains a bit code to 
indicate characteristics of each item to 
the compiler. (See Figure 18) . 



Usage 
Field 
Bits 





I- +- 



2 
\- 



3 
I" 

|. 

5 
I- 



Condition 



Mode not defined 
Mode has been defined 



Type not defined 

Type has been defined | 

Variable not in COMMON | 
Variable is in COMMON j 
+ . 

Variable not equated | 

Variable is equated j 

Not used in Phase 10 j 



j Bit 

j Status 

-+ 

I 
I 1 
-+- 




1 



1 



1 



Root Indicator for Equate j 

No Double Precision j 
Double Precision j 




1 



Punch ESD Card | 



-H 
— 1 

-H 
— ^ 

— ^ 



Figure 18. Format of Usage Field 

Bit indicates the mode of a symbol has 
been defined. The mode of a symbol is 
defined only when: 

1 . The name is mentioned in an explicit 
mode definition statement. 

2. The name is entered for the first time 
into the intermediate text. 

Any time a variable is used in a FORTRAN 



determined and a 

di c t ionary . If 

defined, it may 

be redefined if 

When the symbol 



statement, its mode is 

mode code inserted in the 

the mode has not been 

change. The mode cannot 

bit has been set to 1, 

is encountered again, its entry is found in 

the dictionary and the mode bit is checked. 

Assume the following statements occur in 

sequence: 

REAL A, B, C, 



INTEGER I, J, A 

In the first statement, A is explicitly 
defined as a real symbol. In its dictiona- 
ry entry, the mode field contains the code 
for real. Bit in the usage field is set 
to 1 , indicating that the mode has been 
defined. The second statement attempts to 
redefine A as an integer. The mode bit 
(bit 0) is again tested to determine if the 
mode has been defined previously. Because 
it has been defined, an error condition is 
noted. 

Bit 1 indicates whether the symbol type 
has been defined. Type is defined when: 
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1. An array is defined by a DIMENSION Operation 
statement* 

2. The names in COMMON or explicit speci- 
fication statements are dimensioned • 

3. A name is included in an EXTERNAL 
statement, 

4. A subprogram name is defined in a 
SUBROUTINE or FUNCTION statement; the 
type for dummy variables in these 
statements is not defined. 

5. A variable is entered for the first 
time in the intermediate text. 



statements occur in 



Assume the following 
sequence : 

X = A (I,B) 



XYZ = A 

In the first statement, A is defined as 
the name of a FUNCTION subprogram. If this 
is the first time A is encountered in the 
program, the code for a FUNCTION subprogram 
is inserted in the type field of its 
dictionary entry. At the same time, bit 1 
is set to 1 indicating that the type of A 
has been defined. The second statement 
indicates that A is a variable. Because 
bit 1 is set to 1 , Phase 1 does not 
attempt to redefine A, but merely uses the 
type code that was established in the first 
statement. An error condition does exist 
because the program attempts to use A as 
both a FUNCTION subprogram name and a 
variable. The error condition, however, 
will not be noted until Phase 15. 

Bit 2 indicates whether the variable is 
in the COMMON area. This bit is required 
for Phase 12 when storage is allocated. 

Bits 3, 5, and 6 are not set during 
Phase 10. They are set and used by Phase 
12 when EQUIVALENCE and COMMON statements 
are processed. Bit 6, the double precision 
bit, is set only for equated variables. 
The function and operation of these bits is 
explained in Phase 12. 

Bit 7 is set to 1 by Phase 10 for 
symbols used as in-line functions or exter- 
nal references. If bit 7 is set to 1 and 
the type code denotes an external symbol, 
an ESD card is punched in Phase 12. ESD 
cards are not punched for in-line func- 
tions . 



OVERFLOW TABLE 



The overflow table produced by Phase 10 
contains dimension, subscript, and state- 
ment number information. 



The overflow table is constructed with 
the same chaining technique as the dic- 
tionary. The overflow table is composed of 
11 chains. Three chains are reserved for 
array information; the first chain contains 
all arrays with one dimension, the second 
with two dimensions, and the third with 
three dimensions. Three additional chains 
are reserved for subscripted variables; the 
first chain contains information for all 
variables with one subscript, the second 
with two subscripts, and the third with 
three subscripts. 

The last five chains contain statement 
number information. All statement numbers 
ending in and 1 are contained in the 
first chain. The remaining chains contain 
statement numbers ending in 2 and 3, 4 and 
5, 6 and 7, and 8 and 9, respectively. 



Dimension Information 



The format for these entries, (see Fig- 
ure 19) is different from the dictionary 
format. The general form for defining 1-, 
2- and 3-dimensional arrays is: 

ARRAY (D1) 
ARRAY (D1,D2) 
ARRAY (D1,D2,D3) 

where D1, D2, and D3 are integer constants. 



The dimension information 
and 3-dimensional arrays is: 



Chain j 1 | Length j 



for 



2-, 



T T T 1 

Chain | 2 j Length |Dl*Length| 
j j. x J 



Chain | 3 | Length |Dl*Length|Dl*D2*Length| 



Figure 19. Format of Dimension Information 
in Overflow Table 

Every entry made in the overflow table 
for dimension information has a chain field 
with the same function as the chain field 
in the dictionary. It links the entries 
with the chain. The second field in a 
dimension entry contains the number of 
dimensions in that array. A 1 -dimensional 
array has the number 1 in this field. The 
third field contains the length of each 
element in the array. If the entries in an 
array are double precision, this field 
contains the number 8 because a double 
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precision number is exactly 8 bytes. If 
the array is real or integer, this field 
contains the number 4. These three fields 
are the only entries for 1 -dimensional 
arrays, but are entered for all arrays. 

For 2- and 3-dimensional arrays, another 
field is added. D1 represents the first 
dimension. The product, D1*Length, is an 
indexing factor used in the later phases of 
the compiler and in the object program. 
The use of this factor is explained in 
Appendix C. If a real array is defined 
with the statement: 

DIMENSION A (20,10) 

this field contains the product 
80 (4*20 = 80) . The length of a real number 
is 4; the first dimension is 20. 

If the array is 3-dimensional, an addi- 
tional field, Dl*D2*Length is added. This 
field is another indexing factor used in 
later compiler phases and the object pro- 



gram. If the array is A (20, 10, 5) and is 
again composed of real numbers, this field 
contains the number 800 since D2 represents 
the second dimension. 



When a DIMENSION or explicit specifi- 
cation statement that defines an array is 
read from the source deck. Phase 10 makes 
entries to both the dictionary and the 
overflow table. The name of the array is 
entered in the dictionary along with a 
pointer to an entry in the overflow table. 
The size of the array is entered and the 
type code is set to represent an array or a 
dummy array. 

Assume the name ARRAY is defined as real 
and the statement: 

DIMENSION ARRAY (4,3,2) 

is read. Phase 10 makes entries in the 
dictionary and overflow table, as illus- 
trated in Figure 20. 



Dictionary Entry for Array 



Chain 

2 
bytes 



Usage 

1 
byte 
OjljOjOjOPlOp 



type is 
fixed 



Mode/Type 
1 
byte 
real array 



Symbol 

5 
bytes 



Pointer 

2 
bytes 



Size 

2 

bytes 

96 



size of array 



address of dimension 
information in 
overflow table 



Dimension Entry in Overflow Table 



■I Chain | 


3 I 


4 | 


16 | 48 | 


number of 
dimensions 


k i 


k J 


k i 


< 


Length 






Dl*Length 






D1*D2*Length 







N2i§: jaglvfci.eJLa.in a DIMENSION 



Figure 20. Entries to Dictionary and Overflow Table 
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Subscript Information 



The second type of information entered 
in the overflow table is subscript entries 
for subscripted variables (see Figure 21) • 
Each field is two bytes in length. These 
subscript variables can be in any one of 
the following forms, for 1-, 2-, and 
3-dimensional variables , respectively • 



VAR(C1*V1+J1) 

VAR (C1*V1+J1 ,C2*V2+J2) 

VAR (C1*V1+J1,C2*V2+J2,C3*V3+J3) 



In the general form above , C1 , C2, C3, 
J1, J2, and J3 are integer constants; V1 , 
V2, and V3 are integer variables • VAR is 
any array defined either by a DIMENSION, 
COMMON, or explicit mode specification 
statement. 



The entries in the overflow table bear a 
resemblance to the format in a subscript. 



| Chain |C1 |p(V1) | 
l x x J 



| Chain |C1 |p(V1) |C2 |p(V2) | 

(Chain |C1 |p(V1) |C2 |p(V2) |C3 |p(V3) | 
Figure 21. Format of Subscript Information 



Chain 



± 



No variable in 
1st subscript 



Constant that multiplies 
variable in 2d subscript 



P(D 



A A 



Address of dictionary entry for 
integer variable in 2d subscript 



Constant that multiplies integer 
variables in 3d subscript 



P(J) 



Address of dictionary entry for 
integer variable in 3d subscript 



Figure 22. Overflow Table Entry 



Only subscripts that contain at least 
one integer variable in a subscript param- 
eter are entered in the overflow table. No 
integer variable is used to compute the 
first subscript parameter; consequently, 
the entries referring to the first sub- 
script parameter in the overflow table are 
both zero. Notice that the names for the 
integer variables in the second and third 
subscript parameters are not included, but 
the addresses of their dictionary entries 
are inserted in the entry. If the sub- 
scripted variable is ARRAY (2,1,1) , the 
indexing is completely taken care of by the 
offset and no entry is made to the overflow 
table. 



The symbols, p (V1) , p (V2) , and p (V3) 
represent pointers to the integer varia- 
bles, V1 , V2, and V3, which are entered in 
the dictionary. The offset, a constant 
indexing factor used to find the correct 
element in an array for a particular sub- 
script expression, is computed using the 
integer constants J1, J2, and J3 and is 
placed in text. (Refer to Appendix C for 
an understanding of Array Displacement Cal- 
culation.) These constants are not entered 
in the dictionary or the overflow table. 



Statement Number Information 



The third type of entry made to the 
overflow table is for statement numbers. 
Any statement number encountered in the 
source statements is entered in the over- 
flow table. The format of the entry is: 



r t t ■ 1 

| Chain | Usage (Packed Statement Number) 

| 2 bytes | 1 byte | 3 bytes | 



Assume the subscripted variable, ARRAY 
(2, 2* 1-1, J) is encountered in a source 
statement. Furthermore, assume that the 
names ARRAY, I, and J have already been 
entered in the dictionary, and ARRAY is 
defined as DIMENSION ARRAY (4,3,2) . For 
the subscripted variable ARRAY (2, 2*1-1, J) , 
the following entry (see Figure 22) is made 
to the overflow table in Phase 10. 



The statement number is obtained from 
the source statement and its Extended 
Binary Coded Decimal Interchange Code 
(EBCDIC) format is changed to the packed 
decimal format. A search is made of the 
proper chain. The first time the statement 
number is encountered, an entry is made in 
the overflow table and certain bits are set 
in the usage field (see Figure 23) . The 
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usage field is primarily used for error 
checking in Phases 12 and 14. 



10 CONTINUE 



h 



Usage 
Field 
Bits 



Condition 



Statement No. undefined 
Statement No. defined 



Statement No. not referenced 
Statement No. referenced 



End DO 



Statement No. of specifica- 
tion (e.g.; DIMENSION) 



Statement No. of FORMAT 



Statement No. denotes DO 
nesting errors 



Not used in Phase 10 



Bit | 
Status 



Not used in Phase 10 



1 I 



Figure 23. Statement Number Information 
Usage Field 



xn 



DO 10 1=1,1000 

The statement that defines the DO loop 
follows the statement that is supposed to 
end the loop. If Phase 10 tries to set bit 
2 to 1 (denoting an END DO) and bit is 
set to 1 (denoting that the statement 
number has been defined) an error exists. 

Bit 3 is set to 1 to indicate that this 
statement number defines a specification 
statement. 

Bit 4 indicates the statement number of 
a FORMAT statement. If the statement num- 
ber defines a FORMAT statement , bit 4 is 
set to 1. No statement except a FORMAT 
statement will set this bit to 1. 

Bit 5 is set by Phase 15 to indicate DO 
nesting errors. 

Bits 6 and 7 are not used. 



OFFSET CALCULATIONS 



Bits and 1 denote whether the state- 
ment number is defined by a statement, and 
if the statement number is referenced, 
respectively. The statement: 



112 A=B 



sets bit 
effect on bit 1. 



GO TO 112 

sets bit 1 to 1. 
bit 0. 



to 1 . It 

The statement: 



has 



no 



It has no effect on 



Bit 2 is the indicator set to define the 
end of a DO loop. This bit is set for 
error checking. GO TO, COMPUTED GO TO, 
PAUSE, RETURN, STOP, IF, FORMAT, and DO 
statements are not permitted to end a DO 
loop. This condition is checked in Phases 
10 and 14. Bit 2 is also used in later 
phases to check for proper nesting of DO 
loops . 

Another statement number error checked 
in Phase 10 is a "backward DO" (i.e., the 
statement ending the DO loop is sequential- 
ly in front of the statement that defines 
the DO) . The program would be written as 
follows : 



The offset, a constant, is computed by 
Phase 10 and used as an indexing factor by 
Phase 25. The offset is not entered in the 
dictionary or overflow table. It is com- 
puted using the following formulas: 

Of f set = [J1-1] *Length 
Offset = [(J1-1) ♦ (J2-1) *D1] *Length 
Offset = [(J1-1) + (J2-1) *D1+ (J3-1) *D1*D2] * 
Length 

for one, two, and three subscripts, respec- 
tively. 

Length is the length of each element in 
the array. If the elements of the array 
are integer or real. Length equals four. 
If they are double precision. Length equals 
eight. Assume ARRAY is dimensioned as 
ARRAY (4,3,2) and is real, therefore its 
Length is four. Then, the offset computa- 
tion for the subscripted variable ARRAY 
(2, 2*1-1, J) is: 

Offset = [(2-1) + (-1-1) *4+ (0-1) *4*3] *4 

Of f set = [1+((-2)*4) + ((-1) *12)] *4 

Offset = [1-8-12 *4] 

Offset = [-19] * 4 

Offset = -76 

In the example, ARRAY (2,1,1) with ARRAY 
composed of real numbers, the offset is 
different even though the two subscripts 
refer to the same array. 
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Offset = [ (2-1) + (1-1) *4+ (1-1) *4*3] *4 
Offset = [1 + 0+0] *4 
Offset = 4 



The offset is contained in the inter- 
mediate or EQUIVALENCE text. The offset is 
used then in the computation of an indexing 
factor to find the correct element in the 
array for a particular subscript expres- 
sion • 



Intermediate Text 



Intermediate text is written in Phase 10 
as input to the other phases of the Basic 
Programming Support FORTRAN compiler. The 
format for the intermediate text consists 
of three fields which contain an adjective 
code, a mode/type code, and a pointer to 
information in the dictionary or overflow 
table. 

The following example illustrates the 
intermediate text entry format: 



j Ad j e cti ve j Mode/ Type 

| Code j Code 

,. + 

j 1 byte j 1 byte 

i x 



"T 

I 

| Pointer 

-+ 

| 2 bytes 

.x 



The basic entry in the text is generally 
four bytes or one word long. This format 
is modified for the following special 
entries: 



1. 
2. 



3. 

4. 
5. 



Subscripted variables. 

FORMAT statements which do not conform 

to this basic entry and are discussed 

later in this phase. 

Array size. 

Number of arguments. 

STOP or PAUSE statements. 



The adjective code (see Figure 24) indi- 
cates the type of statement within the 
intermediate text. If the first symbol in 
a FORTRAN statement is a keyword, control 
is given to a subroutine which processes 
that statement. The keyword must be 
flagged so that subsequent phases can com- 
pile the correct machine language instruc- 
tions. The subroutine that processes the 
keyword statement moves the adjective code 
for this keyword to the intermediate text. 

If the first symbol does not indicate a 
keyword statement. Phase 10 determines 
whether this statement defines an arithmet- 
ic statement function or an ordinary 
FORTRAN arithmetic statement and moves the 
proper adjective code to the intermediate 
text. Figure 24 contains the adjective 
codes and their use. 

Adjective codes are also used to rep- 
resent delimiters in a FORTRAN statement. 
Delimiters such as: 



- / 



** 



( ) 



or 



are individually assigned a unique adjec- 
tive code which denotes the type of opera- 
tion to be performed. 

The second byte in an intermediate text 
entry is the same as the mode/type code 
inserted in the dictionary to describe a 
symbol. The mode/ type code (see Figure 25) 
denotes the mode of the symbol and the 
manner in which it is used. 
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I The third and fourth bytes in an inter- 
I mediate text entry constitute an address 
I which points to a symbol in the dictionary 
| or to a statement number entry in the 
I overflow table. These bytes may also con- 
tain an integer constant (less than 4096) 

of a DO statement and not the address of 

its dictionary entry. 



For example , a typical entry for a 
FORTRAN arithmetic statement is the inter- 
mediate text for this statements 

CIRCUM=2.0*3.14159*RADIUS 

Phase 10 would write the intermediate text 
shown in Figure 26. 



r -; " 

| Adjective 

| Code 

i 


"T 

| Mode/Type 
| Code 


-T""~ 

| Pointer 


i 


i i 

| arithmetic | real 

j statement j variable 

i (B5) | (7A) 
i i 


| p (CIRCUM) 

r ^ . , , , 


1 
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I (06) 

1 * 
1 (OC) 

L , _ ,,. . 
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(real 

j constant 

I (75) 

j real 

| constant 

I (75) 


t - 

|p(2.0) 

|p(3. 14159) 
-J. — 


1 
H 
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r 

1 * 

| (OC) 

jend mark 
I (16) 


| real 
(variable 

I (7A) 
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T 

| p (RADIUS) 


1 
J 


t 
| 00 


(internal statement 
j number 


1 



Figure 26. Format of Intermediate Text 
Entries 

In Figure 26, the numbers in parentheses 
from the first two columns refer to the 
actual adjective and mode/type codes that 
appear in the intermediate text. The end 
mark entry indicates to other phases that 
this is the end of the intermediate text 
entry for this FORTRAN statement. The 
hexadecimal characters 00 represent a blank 
text entry. The items in the pointer field 
point to the dictionary. An internal 
statement number is assigned to each 
FORTRAN statement before it is processed. 

If there are two delimiters together in 
a .FORTRAN statement, zeros are used to fill 
the entries in the intermediate text., For 
example, in the statement: 

A=-B 

the intermediate text entries are as shown 
in Figure 27. 



j Adjective (Mode/Type | 

j Code | Code j Pointer 

|. + + 



j arithmetic j real 

j statement j variable 

|= (00 
I- + 



I 



^ 



|P(A) 



I 

| unary - 



(real 
variable 



10000 



|P(B) 






-H 



(end mark 



100 



(internal statement 
| number 



Figure 27. Intermediate Text Entries for a 
Unary Operation 



Zeros are used to fill the second entry 
because no symbol follows the equal sign. 



Statement Number Entries 



Statement numbers are entered in inter- 
mediate text in a manner similar to entries 
for a variable in a statement (see Figure 
10.14) . When the statement is defined by a 
statement number, the statement number 
entry is entered in the intermediate text 
before any other entries are made for the 
statement itself. The statement: 

101 A=B 

is the data used to form the intermediate 
text shown in Figure 28. 



(Adjective 
j Code 

f 

| statement 
number 



j arithmetic 
statement 



I- 

I 

(end mark 



Mode/Type 
Code 



statement 
number 



real 
variable 






real 
variable 



00 



Pointer 



p(101) 
P(A) 



P(B) 



internal statement 
number 



Figure 28. Intermediate Text Entries for 
Statement Numbers 

If a statement number is used in a 
statement itself, such as: 

DO 101 I=M,N,3 

the text entries are as shown in Figure 29. 
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j Adjective 
| Code 
t 



+ 



| DO 

t 

I 

| blank 

f 



statement 
number j p (101) 

integer 
variable | p (I) 



I 

i* 
f — 



— + 



|end mark 

l 



Mode/ Type 
Code 



integer 
variable 



integer 
variable 

immediate 
constant 



00 



Pointer 



p(M) 



-I 



p(N) 



f- 



internal statement 
number 

Figure 29. Intermediate Text Entries for a 
DO Statement 



The third parameter in this DO statement 
is the .integer constant 3. The constant 3 
is not entered in the dictionary , but is 
inserted in the address field of the inter- 
mediate text as the number 3, This is done 
to save dictionary space and to optimize 
instructions in the object program* 



Subscripted Variable Entries 



When a subscripted variable is used, the 
format of the intermediate text entries 
changes; three pointers are needed instead 
of the usual one. The second pointer 
points to the subscript information for the 
variable; the third points to dimension 
information for the array. For example , in 
the statement: 

A(I,J,K)=B*2.0 

the entries shown in Figure 30 are made to 
the intermediate text. 

The first line contains the pointer to 
the dictionary entry for the subscripted 
variable A. In the second line SAOP is a 
special adjective code which is inserted in 
the intermediate text to indicate to other 
phases of the FORTRAN compiler that a 
subscript calculation is necessary. The 
pointer field in the second line contains 
the offset. 

The third line contains two pointers to 
entries in the overflow table. The first 
points to the subscript information for 
this subscripted variable A; the second 



points to the dimension information for the 
array A. This information is necessary for 
processing subscripts in other phases. 



j Ad j ective j Mode/Type | 

j Code | Code | Pointer 

j. + 



| |real 

j arithmetic j subscripted | 

| statement j variable j p (A) 



j SAOP 



I 00 



A I 



| p (subscript A) 



j Offset 



-H 



jreal 

| variable 



jp (dimension A) 
._ + 



lP(B) 
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jreal 

j constant 

-+- 



H 






jend mark j 00 



Figure 30. 



IP (2.0) 

-+ 

| internal statement 

j number 

Intermediate Text Entries for 
Subscripted Variables 



_x 



If the subscripts do not contain any 

variables , only the extra pointer to 

DIMENSION information is included. For 
example , the statement: 

B=A(2,1,1) 

where A is dimensioned as A (4,4, 4), would 
be entered in the intermediate text as 
shown in Figure 31 . 



(Adjective j Mode/Type | 

j Code |Code | Pointer 

I- -+ + 



j arithmetic j real 

| statement j variable | p (B) 
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(real | 
| subscripted | p (A) 
variable 
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| SAOP 

h 



I 00 



I 0000 



j Offset 
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h 



j p (dimension A) 



-H 

-H 

| | | internal statement 

jend mark | 00 | number 

Figure 31. Intermediate Text Entries for 
Constant Subscripts 

After the initial calculation of the 
offset, no additional information is neces- 
sary because the offset represents a con- 
stant indexing factor. No pointer to sub- 
script information is necessary because the 
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subscript information is used to calculate 
an indexing factor for variable subscripts. 



immediately after the keyword FORMAT 
through card column 72, are moved to inter- 
mediate text. 



Format Entries 



Errors 



Another change in the format of the 
intermediate text is caused by the FORMAT 
statement. Phase 10 makes little change to 
the FORTRAN card image of a FORMAT state- 
ment. Every FORMAT statement must have a 
statement number, which is converted to 
intermediate text and an entry for it must 
be made to the overflow table. The keyword 
FORMAT is then encountered and control is 
given to the keyword subroutine which proc- 
esses FORMAT statements for Phase 10. This 
subroutine: 

1. Inserts the adjective code for a 
FORMAT statement in the intermediate 
text. 

2. Gets the entire card image, excluding 
the statement number and identifi- 
cation field (columns 73 through 80) , 
and the EBCDIC image for that card in 
the intermediate text. 

3. Inserts the EBCDIC image for that card 
in the intermediate text. 

An end mark entry is then made with an 
internal statement number in the pointer 
field. 

The statement: 



Any errors or warnings detected in Phase 
10 are flagged in the intermediate text. 
The second byte in the end mark entry in 
the intermediate text is reserved for this 
action. If Phase 10 detects an error in a 
statement, the hexadecimal 01 is inserted 
in this byte. The next entry in the 
intermediate text contains an error/warning 
adjective code (see Figure 33) . An error 
number is placed in the mode/type field by 
a general error subroutine. The pointer 
field contains the same internal statement 
number as the end mark entry. 



r T T 

| Adjective | Mode/Type | 

(Code | Code j Pointer 

| | j internal statement 

j end mark j 1 j number 

j (error (internal statement 

error code number number 



JL- 



Figure 33. Intermediate Text Entries for 
an Error 



12 FORMAT (F2 0.5, 1 6) 

would then produce the intermediate text 
illustrated in Figure 32. 



j Adjective j Mode/Type j 

| Code | Code j Pointer 



h 



4- 



j statement | statement | 

j number j number j j p ( 1 2) 

,. + + 

(FORMAT |( |F 



|5 



"T — 

|2 



I) 



-+- 



11 i 6 

| ALL CARD COLUMNS TO COLUMN 72 
,. T 



blank 



^ 

^ 



H 



| | internal statement 

(end mark j 00 j number 

Figure 32. Intermediate Text Entries for a 
FORMAT Statement 



The FORMAT information is held in BCD 
characters for the intermediate text. All 
of the characters on the FORMAT card. 



Internal Statement Numbers 



Phase 10 assigns an internal statement 
number to each FORTRAN statement as it is 
read into main storage. This number, which 
differs from the user statement number, is 
assigned whether or not intermediate text 
is written for this statement. If the 
statement is DIMENSION, REAL, INTEGER, 
DOUBLE PRECISION, or EXTERNAL, no inter- 
mediate text is written. However, these 
statements are assigned an internal state- 
ment number, and gaps may exist in the 
internal statement numbers of the inter- 
mediate text. Similarly, if an error 
occurs, two successive entries in the 
intermediate text may have the same inter- 
nal statement number. 



Intermediate Text Output 



The intermediate text is written on a 
tape output data set and used as input to 
subsequent phases of the FORTRAN compiler. 
The buffer size is computed in the Control 
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Card routine. Both the dictionary and the 
overflow table remain in main storage for 
subsequent phases. The overflow table 
begins with the highest available location 
and extends down toward low addressed main 
storage. The dictionary origin depends on 
the size of the buffers and extends up 
toward the overflow table. 



COMMON and EQUIVALENCE Text 



is written in the area that would have been 
occupied by this Phase 10 subroutine. 

The EQUIVALENCE text is composed of 
three fields, each two bytes long. Every 
group of equated symbols is preceded by a 
header entry. The first field contains an 
adjective code representing an EQUIVALENCE 
statement. The second field contains 
binary zeros, and the third contains the 
number of equated variables. 

The format for the header entry is: 



J For COMMON and EQUIVALENCE statements, 
| Phase 10 writes another type of text which 
iremains in main storage to be processed by 
IPhase 12. The following COMMON text is 
|composed of two fields, each two bytes in 
flength for each variable entered in the 
^COMMON area at object time. 



|2 bytes 
(. 

| pointers 

l 



|2 bytes 
-+- 



j length 

-X 



J3^e f ir^t field contains the atjdres^s of 
the dictionary entry for that variable, and 
the second if ielct contains ^ the length of its 
name in EBCDIC characters. For example, 
the statement: 



|2 bytes 



|2 bytes 
-+ 



| 2 bytes 



(adjective | (number of | 

| code | 0000 (entries | 

A detail entry is made for each variable 
in an EQUIVALENCE group. The first field 
is a pointer to the dictionary entry for 
the variable. The second field holds the 
size of the variable in bytes, or the size 
of the array in bytes if the variable is 
dimensioned. The third field contains the 
offset, if this particular variable is 
subscripted, or zeros if it is not sub- 
scripted. 

The format for the detail entry is: 



COMMON A,B,CON4Z 

would cause this COMMON text: 



r T ,, 

| Pointer | Length | 

i. + ^ 

IP (A) | 1 i 

,. + — _ ^ 

|P(B) | 1 i 

|p(CON4Z) | 5 | 

L X J 

The length is needed to determine in 
what chain the variable is entered in the 
dictionary. 

A FUNCTION or SUBROUTINE subprogram name 
must be defined in the first card of a 
FORTRAN source program. The Phase 10 sub- 
routine for processing FUNCTION and SUBROU- 
TINE statements is not required after the 
first card is processed. The COMMON text 



r t t 1 

| 2 bytes |2 bytes |2 bytes | 

| pointer (size (offset or j 
I I 10000 | 

L - X X . J 



For example, the statements: 



EQUIVALENCE (A (2,1) ,B (1) ,C) , (M(3,2) ,1) 
EQUIVALENCE (XEM, Y , ZETA) 

where A, B, C, XEM, Y, and ZETA are real; M 
and I are integers; and the arrays are 
dimensioned as A (5,5) , B(10) , and M(10,5) 
to produce the EQUIVALENCE text shown in 
Figure 34. 

All arrays must be defined before they 
can be used in an EQUIVALENCE statement or 
any other statement. The DIMENSION routine 
is overlaid with the text for the 
EQUIVALENCE statements. 
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Entry 
99 



Entry 



Reason 



(header entry) 



Entry 



Reason 



(number of entries) 



P(A) 



100 



(detail entry array size in bytes) 



(offset) 



P(B) 



P(C) 



40 



(detail entry array size in bytes 



(offset) 



(detail entry size of a real) 



(no subscript) 



99 



(header entry) 



(number of entries) 



p(M) 



200 



(detail entry size of array) 



80 



(offset) 



Pd) 



(detail entry size of an integer) 



(no subscript) 



99 

p(XEM) 
k 

POO 

p (ZETA) 



(header entry) 



(number of entries) 



(detail entry size of real) 



(no subscript) 



(detail entry size of real) 



(no subscript) 



(detail entry size of real) 



(no subscript) 



Figure 34. EQUIVALENCE Text Entry for EQUIVALENCE Statements 



STORAGE MAP 



SUBROUTINES 



The storage map for Phase 10 is shown in 
Figure 35. 



The introduction to Phase 10 has dis- 
cussed the input and output in Phase 10. 



h 



h 



h 



COMMUNICATIONS REGION 



FORTRAN System Director 



I/O 



1 

PHASE 10 

COMMON/EQUIVALENCE TEXT 

OUTPUT BUFFERS 
(for intermediate text) 

,. ^ 

DICTIONARY 

^ 



—j 
I— L 



OVERFLOW TABLE 






Dimension/Header 
Routines 

Variable 






16 to 6UK 
K=1024 
Figure 35. Storage Map for Phase 10 



Five forms of data are developed from 
source statements: 

1 . Dictionary . 

2. Overflow table. 

3 . Intermediate text . 

4. COMMON text. 

5. EQUIVALENCE text. 

To develop this data, 3 types of subrou- 
tines (mainline, keyword, and utility) are 
used in Phase 10. 

The mainline subroutines divide state- 
ments into three classes: arithmetic state- 
ments, keyword statements, and arithmetic 
statement functions. The mainline subrou- 
tines also process arithmetic expressions 
and statements and define arithmetic state- 
ment functions. These are covered in 
charts BB through BF. 

The keyword subroutines supervise the 
processing of statements beginning with 
FORTRAN keywords. In fact they may process 
the entire keyword statement. These are 
covered in charts BJ through BW. 

The utility subroutines called by main- 
line or keyword statements enter symbols in 
the dictionary, overflow tables, and inter- 
mediate text; convert numbers; call 
input/output devices; process subscripts. 
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and end marks, etc. These subroutines 
covered in charts CB through CR. 



Subroutine CLASSIFICATION: Chart BB 



are EXIT; Subroutine CLASSIFICATION exits to: 

1. Any of the various keyword subroutines 
that process the statement under con- 
sideration, 

2. Subroutine ARITH. 

3. Subroutine ERROR if an error has been 
detected • 



Subroutine CLASSIFICATION 
fbllowing functions: 



performs the 



1* Initializes program switches to proc- 
ess another statement. 

2. Processes any statement number that 
may define this statement. 

3. Determines if this statement begins 
with a keyword. If it does, gives 
control to the correct keyword subrou- 
tine. 

4. Gives control to subroutine ARITH if 
the statement does not begin with a 
keyword. 



ENTRANCE : 



Subroutine 



CLASSIFICATION 



receives control from: 



1. Phase 10 HOUSEKEEPING subroutine. 

2. Subroutine ARITH after the entire 
FORTRAN statement has been processed. 

3. A keyword subroutine if it has proc- 
essed the entire statement. 

OPERATION: In initialization, the byte 
called FUNISW is set to binary zero, 1 is 
added to the internal statement number, and 
the parentheses count is set to zero. 

The bits in FUNISW represent the follow- 
ing: 

: READ/WRITE statement 

1 : Subscripted variable 

2 : Immediate DO parameter 

3 : Literal DO parameter 

4 : IF statement 

5 : Statement number 

6 : Arithmetic statement function 

7 : I/O unit 

Subroutine GETWD retrieves a new state- 
ment from the buffer area. If the first 
five columns contain a statement number, 
the overflow table is scanned and the 
address of statement number overflow table 
entry is returned to CLASSIFICATION. This 
address is entered in the intermediate text 
along with the statement number adjective 
and mode/type codes. 

If the first symbol (other than any 
possible statement number) is a keyword, 
control is passed to the subroutine which 
processes that particular keyword state- 
ment. If the statement does not begin with 
a keyword, control is passed to subroutine 
ARITH. 



SUBROUTINES CALLED: During execution, sub- 
routine CLASSIFICATION references subrou- 
tines GETWD, LABLU, CSORN, and WARNING. 



Subroutine ARITH: Charts BC, BD, BE 



Subroutine ARITH determines whether the 
statement defines an arithmetic statement 
function, and if a function is called with 
the statement. ARITH makes the entries for 
arithmetic expressions to the dictionary, 
intermediate text, and overflow table by 
calling other subroutines. 



ENTRANCE: 
from: 



Subroutine ARITH is entered 



1. Subroutine CLASSIFICATION if the 
statement does not begin with a key- 
word. 

2. Subroutine ASF after the delimiter = 
is encountered in an arithmetic state- 
ment function. 

3. Keyword subroutines if the keyword 
statement contains an arithmetic 
expression. 

4. Subroutine READ/WRITE to analyze the 
I/O list. 

CONSIDERATION: Subroutine ARITH is divided 
into three parts. ARITH Part 1 scans the 
statement for symbols and delimiters and 
enters the symbols in the dictionary. 
ARITH Part 2 determines if there are any 
subscripted variables or referenced func- 
tions on the right of the = sign. ARITH 
Part 3 makes the entries to the intermedi- 
ate text. ARITH Part 2 and Part 3 process 
the delimiters that are found by ARITH Part 
1. 

Each of the three flowcharts associated 
with subroutine ARITH represents the speci- 
fic functions performed by subroutine 
ARITH. 

EXIT: Subroutine ARITH exits to: 

1. Subroutine ASF. 

2. Subroutine GO TO. 

3. Subroutine END MARK CHECK. 

4 . Subroutine ERROR if an error is 
detected. 
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Subroutine ARITH Part 1 



Subroutine ARITH Part 1 prepares to 
insert the adjective code for an arithmetic 
statement in the intermediate text. It 
determines if this statement defines an 
arithmetic statement function or if a sub- 
scripted variable appears left of the equal 
sign. ARITH Part 1 scans the statement for 
symbols and delimiters. 



ENTRANCE : 



Subroutine ARITH Part 1 



is 



entered from: 



3. 



Subroutine CLASSIFICATION if the 
statement does not begin with a key- 
word. 

Subroutine ASF to process the arith- 
metic expression to the right of the = 
sign. 

Subroutine subroutines if this key- 
word statement contains an arithmetic 
expression or an I/O List. 
Subroutine ARITH Part 3 to fetch 
another symbol. 



OPERATION; The adjective code for an 
statement is moved to a buffer 

inter- 



arithmetic 

by subroutine PUTX, which fills the 

mediate text output buffers. 



An arithmetic statement function is 
defined by checking the following condi- 
tions : 



statement function is defined. 

2. Subroutine ERROR , if an error is 
detected. 

3. Subroutine ARITH Part 2 to begin proc- 
essing a delimiter. 



SUBROUTINES CALLED; During execution ARITH 
Part 1 calls subroutines: 

1 . SKPBLK to get a delimiter . 

2. SUBS to process a subscripted varia- 
ble. 

3. PUTX to make entries to the intermedi- 
ate text. 

4. GETWD to access a symbol. 

5. CSORN to make entries to the diction- 
ary. 



Subroutine ARITH Part 2 



ARITH Part 2 determines if any sub- 
scripted variables or referenced functions 
follow the = sign and calls the appropriate 
subroutine. ARITH Part 2 then gives con- 
trol to the correct routine in Part 3 to 
process the current delimiter. 



ENTRANCE: 



Subroutine ARITH Part 2 is 



entered from subroutine ARITH Part 1. 



1. The following delimiter is a left 
parenthesis. 

2. The name has not been dimensioned. 

3. No executable statements have been 
processed. If these conditions are 
satisfied, ARITH Part 1 calls subrou- 
tine ASF. 

The first entry for this statement, if 
it is not defining an arithmetic statement 
function, is entered in the intermediate 
text using subroutine PUTX in ARITH Part 1. 
ARITH Part 1 alternately scans the state- 
ment using a translate and test instruction 
issued by subroutines GETWD and SKPBLK. 
Any symbol in the arithmetic statement 
other than a delimiter is scanned by ARITH 
Part 1 and entered in the dictionary. If 
the symbol is a delimiter, control is 
passed to ARITH Part 2. 

CONSIDERATION: Phase 10 determines if any 
executable statements have been processed 
by checking the executable switch. The 
switch is set on when the first executable 
statement of the program is processed. It 
is not set off for the remainder of the 
phase. 

EXIT: Subroutine ARITH Part 1 exits to: 



1. Subroutine ASF, if 



an 



arithmetic 



OPERATION: If the delimiter following the 
symbol is a left parenthesis, the symbol 
must either be an array or function name. 
If the dictionary entry for the symbol 
indicates an array, the symbol is assumed 
to be a subscripted variable. Otherwise, 
it is assumed to be the name of a function. 

ARITH Part 2 uses the byte placed in 
register 2 by the translate and test 
instruction in Part 1 to index a branch 
list in order to get to the correct delimi- 
ter routine in ARITH Part 3. This same 
byte is inserted in the adjective code to 
represent the delimiter. 

CONSIDERATION: The first delimiter (not a 
blank) that appears after the first varia- 
ble is assumed to be the = sign. It is 
checked by subroutine ARITH. 

EXIT: ARITH Part 2 exits to: 

1 . Subroutine ARITH Part 3 to process a 
delimiter. 

2. Subroutine ERROR if an error is 
detected. 

SUBROUTINE CALLED: During execution ARITH 
Part 1 calls SUBS if a subscripted variable 
is recognized. 



Phase 10 



87 



Subroutine ARITH Part 3 



Subroutine ARITH Part 3 processes delim- 
iters and makes entries to intermediate 
text . 



E1SITRA1S1CE ; Subroutine ARITH Part 
entered by subroutine ARITH Part 2. 



is 



OPERATION; If a decimal point is used as a 
delimiter, the symbol must be a floating- 
point constant. This subroutine must then 
get and convert the number. 

A left parenthesis increments the 
parentheses count. 

An equal sign is usually found as the 
first delimiter in an arithmetic statement 
after a subscripted or nonsubscripted vari- 
able. An = sign used in this manner is 
merely inserted in the intermediate text in 
ARITH Part 2 and is never processed by 
ARITH Part 3. If the statement contains an 
= sign in any other position, it is the 
delimiter for an implied DO in a READ/WRITE 
statement. 

A right parenthesis decrements a paren- 
theses count, and checks whether the count 
has reached zero or become negative. 

An end mark gives control to subroutine 
END MARK CHECK. If the last symbol proc- 
essed was a subscripted variable, control 
is given directly to END MARK CHECK because 
the subroutine SUBS has made all entries to 
the intermediate text. 



makes all the intermediate text entries 
necessary for the subscripted variable. 

EXIT: Subroutine ARITH Part 3 exits to the 
following subroutines: 

1. ARITH Part 2 after all entries have 
been made. 

2. ERROR WARNING if an error is detected. 

3. GOTO after processing the arithmetic 
expression in an IF statement. 

4. DO after processing an implied DO in 
an I/O statement. 

5. END MARK CHECK if an end mark is 
detected. 

6. ARITH Part 1 to get another symbol. 

SUBROUTINES CALLED: During execution sub- 
routine ARITH Part 3 calls subroutines: 

1 . GETWD to access a number for a liter- 
al. 

2. CSORN to enter a decimal number in the 
dictionary . 

3. PUTX to make entries in the intermedi- 
ate text. 



Subroutine ASF: Chart BF 



Subroutine ASF processes the parameters 
of an arithmetic statement function defini- 
tion until the delimiter = is encountered. 
All symbols and delimiters which follow are 
processed by subroutine ARITH (see Figure 
36). 



ENTRANCE: 



Subroutine ASF is entered from: 



Asterisk checks whether an asterisk 
immediately preceded this asterisk to sup- 
ply the adjective code for exponentiation 
operation. 

A plus, minus checks if the + or - sign 
follows another delimiter. If it does, it 
is assumed to be a unary operation. 



CONSIDERATIONS: 



In 



ARITH Part 3, entries 

are made to the intermediate text through 
the logical block ARIT30. If the last 
variable is subscripted, no entries are 
made in the subroutine ARITH for the last 
variable. The subscript subroutine SUBS 



Subroutine ARITH Part 1 if it deter- 
mines that the current statement 
defines an arithmetic statement func- 
tion. 

Subroutine END MARK CHECK to complete 
processing an arithmetic statement 
function definition. 



CONSIDERATIONS: 



An 



arithmetic statement 

function must be defined in a user program 



before it 
ment. 



is called in an arithmetic state- 



The symbols used to define the paramet- 
ers in an arithmetic statement function may 



"T" 
I 



1 T 1 

SUM| (A,B,C) =| A+B+C+2.0|# 
+ . + 1_ 



Statement 



Subroutines 
that process 
the statement 



CLASSIFICATION 
ARITH 



ASF 



I 
ARITH J END MARK CHECK 

I 

| ASF (processes end 

| mark text entry) 

j 



Figure 36. Arithmetic Statement Function Processing 
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be used in the main program. They do not 
carry the same meaning as they do in the 
statement function definition. For exam- 
ple: 

DIMENSION A (20) 



entries in the dictionary are re- 
stored . 
3. ERROR if an error is detected. 

SUBROUTINES CALLED : During its execution 
subroutine ASF references subroutines: 



SUM(A) = (A+2.3) *3.14 

Both statements contain the name A. In 
the first statement A is defined as an 
array by use of a DIMENSION statement. In 
the second statement A is a dummy variable 
used to define the operations on the param- 
eter passed to the function SUM r when the 
user calls the function SUM in a normal 
arithmetic statement. For all other state- 
ments in the main program, A is an array 
with 20 elements. However , the mode can be 
set by a specification statement. 

OPERATION: Before subroutine ARITH deter- 
mines that a statement defines an arithmet- 
ic statement function, it sets an adjective 
code to represent an arithmetic statement. 
If ARITH determines that the statement is 
an arithmetic statement function defini- 
tion, subroutine ASF changes the adjective 
code to represent an arithmetic statement 
function. 

Subroutine ASF searches the dictionary 
for a symbol that defines a parameter to 
determine if that symbol has been defined 
previously. If it has, ASF defaces the 
previous entry so that it can not be 
recognized. The address of this previous 
entry is saved, and the name of the param- 
eter used to define the function is entered 
in the dictionary. 

If that symbol has not been defined 
previously, it is entered in the dictionary 
and the mode/type field is set to indicate 
that the symbol is a dummy variable. 

Subroutine END MARK CHECK returns to ASF 
if the switch indicating the processing of 
an arithmetic statement function definition 
is set on. The switch is then turned off. 
All defaced entries are restored to their 
original image using the previously stored 
addresses. The original entries are then 
recognized by subsequent searches of the 
dictionary. The entries made for defining 
the operations in the arithmetic statement 
function are then defaced so subsequent 
searches of the dictionary will not recog- 
nize the symbols used to define parameters. 



EXIT: 



Subroutine ASF exits to the follow- 



ing subroutines: 

1. ARITH Part 1 to process the 
to the right of the = sign. 

2. END MARK CHECK after the 



1. CSORN to search for and make entries 
in the dictionary. 

2. GETWD to access symbols. 

3. SKPBLK to access delimiters. 



Subroutine GOTO: Chart BJ 



Subroutine GOTO determines if the state- 
ment is an unconditional or computed GOTO 
statement. If the statement is an uncondi- 
tional GOTO, the statement number is 
entered in the intermediate text. If the 
statement is a computed GOTO, the list of 
statement numbers is scanned and entered in 
the intermediate text and overflow table. 

ENTRANCE: Subroutine GOTO receives control 
from the following subroutines : 



1 . CLASSIFICATION. 

2. ARITH Part 3 to process the 
number for IF statements . 



statement 



statement 



CONSIDERATION : A GOTO statement may begin 
with either the words GO TO, or the word 
GOTO. Subroutine CLASSIFICATION recognizes 
either form. 

OPERATION: After the keyword has been 
checked, subroutine GOTO determines whether 
this statement is a computed GOTO. If the 
delimiter following the letters TO is a 
left parenthesis, subroutine GOTO assumes 
the statement is computed GOTO. Any delim- 
iter, other than a blank, between the 
letters TO and the (first) statement number 
is not accepted. 

A library subroutine is used by the 
object program to execute a computed GOTO 
statement. The first intermediate text 
entry for a computed GOTO contains the 
adjective code for a computed GOTO, the 
type code for a library function, and the 
library identification number for the com- 
puted GOTO subroutine in the pointer field. 

Subroutine GOTO is entered after the 
arithmetic expression for the IF statement 
is processed by subroutine ARITH to process 
the list of statement numbers in the IF 
statement. The IF switch tells subroutine 
GOTO that the statement currently being 
processed is an IF statement. 

EXIT: Subroutine GOTO exits to the follow- 



original ing subroutines: 
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1. END MARK CHECK when the end mark is 
encountered, 

2. ERROR if an error is detected. 

SUBROUTINES CALLED; During execution sub- 
routine GOTO references subroutines: 



1. END MARK CHECK when the end mark is 
sensed. 

2. ARITH if subroutine DO is processing 
an implied DO of a READ/WRITE state- 
ment. 

3. ERROR if an error is detected. 



1. GETWD to access symbols in the source 
statement. 

2. LABLU to process statement numbers. 

3. PUTX to make entries to the intermedi- 
ate text. 

4. CSORN to make entries in the diction- 
ary. 

5. WARNING/ERRET if a warning is detect- 
ed. 



SUBROUTINES CALLED : During execution sub- 
routine DO references subroutines: 

1. GETWD to access symbols and delimi- 
ters . 

2. LABTLU to process overflow table 
entries for statement numbers. 

3. PUTX to make entries in the intermedi- 
ate text. 

4. CSORN to process dictionary entries. 

5. SKPBLK to access delimiters. 



Subroutine DO: Chart BK 



Subroutine SUBIF: Chart BL 



Subroutine DO scans the DO statement and 
makes entries to the intermediate text, 
dictionary, and overflow table. Subroutine 
DO also processes the parameters for an 
implied DO in a READ/WRITE statement. 



ENTRANCE: 



Subroutine DO receives control 



from subroutines: 

1. CLASSIFICATION. 

2. ARITH Part 3 to process an implied 
in an I/O list. 



OPERATION; An error, a backward DO, occurs 
if the statement number definition for the 
end of the DO loop precedes the DO state- 
ment. If statements occurred in the 
FORTRAN program in the following sequence, 
this condition would exist. 

20 A=B 



Subroutine SUBIF enters the IF adjective 
code in the intermediate text and gives 
control to other subroutines to process the 
arithmetic expression and the list of 
statement numbers following the expression. 

ENTRANCE: Subroutine SUBIF is entered from 
subroutine CLASSIFICATION. 



DO OPERATION: 



Subroutine SUBIF sets the IF 

switch to control the processing of other 
subroutines which process portions of the 
IF statement. The IF switch is contained 
along with other switches in the byte 
called FUNISW (see CLASSIFICATION) . 

Subroutine ARITH processes the arithmet- 
ic expression, and subroutine GOTO process- 
es the list of statement numbers. 

EXIT: Subroutine SUBIF exits to: 



DO 20 1=1,10 

The switches for an immediate DO param- 
eter are set on and off when subroutine DO 
calls CSORN (see description of subroutine 
CSORN, Chart CG) . 

Subroutine DO is also entered when sub- 
routine ARITH is processing a READ/WRITE 
statement. If an implied DO is found in a 
READ/WRITE statement, subroutine DO will 
process the parameters. An implied DO is 
formed when a program attempts to perform 
an I/O operation on a number of elements 
from an array without listing all of them 
in an I/O list. For example, the statement 
READ (3,1), (A (I) , 1=1 , 1 00) contains an 
implied DO. The elements of the array A 
are to be read with this I/O statement. 

EXIT: Subroutine DO exits to the following 
subroutines : 



1. Subroutine ARITH to process the arith- 
metic expression in an IF statement. 

2. ERROR, if an error is detected. 

SUBROUTINES CALLED: During execution sub- 
routine SUBIF calls: 

1 . Subroutine SKPBLK to access a delimi- 
ter. 

2. Subroutine PUTX to make entries in the 
intermediate text. 



Subroutines CALL, FUNCTION/SUBRTN: Chart BM 



Subroutine CALL 



Subroutine CALL gets the name of the 
subprogram and passes control to subroutine 
ARITH to process the arguments. 
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ENTRANCE : Subroutine CALL is entered from 
subroutine CLASSIFICATION. 

OPERATION; Since the arguments in a CALL 
statement may be arithmetic expressions, 
subroutine CALL uses subroutine ARITH to 
process the parameters that are passed to 
the user SUBROUTINE during the execution of 
the object program. 

EXIT: Subroutine CALL exits to: 



1. Subroutine ARITH Part 2 to process the 
arguments of a CALL statement. 

2. Subroutine ERROR, 
detected. 



if an error 



is 



SUBROUTINES CALLED: During execution sub- 
routine CALL references the following sub- 
routines : 

1. PUTX to enter the CALL adjective code 
in the intermediate text. 

2. GETWD to access the subprogram name. 

3. CSORN to enter the name in the 
dictionary. 



Subroutine FUNCTION/SUBRTN 



Subroutine FUNCTION/SUBRTN processes the 
header cards for FUNCTION and SUBROUTINE 
subprograms. It makes entries to the 
intermediate text and dictionary for the 
subprogram name and the parameters passed 
to the subprogram. 

ENTRANCE: Subroutine FUNCTION/SUBRTN is 
entered from subroutines: 

1. CLASSIFICATION. 

2. INTEGER/REAL/DOUBLE if a statement 
such as REAL FUNCTION A(B,C) is used. 

OPERATION: Subroutine FUNCTION/SUBRTN is 
entered at two points. The first entry 
point is used if the program defines a 
SUBROUTINE. If FUNCTION/SUBRTN is entered 
at this point a switch is set to indicate 
that the statement is the header card for a 
user SUBROUTINE. The logic flow for FUNC- 
TION and a SUBROUTINE at this time become 
the same. The second entry point is used 
if the subprogram is FUNCTION. 

A test is made to check whether this is 
the first card of the source program. If 
not, an error condition exists. The inter- 
nal statement number must equal 1 if this 
is the first card processed. TINE 

The switch for a SUBROUTINE is tested in 
order to enter the correct adjective code. 
If the switch indicates that this is a 
SUBROUTINE subprogram definition, the deli- 
miter following the subprogram name is 



tested. If it is an end mark, the subpro- 
gram definition is valid, because a SUBROU- 
TINE subprogram may have no parameters. A 
FUNCTION subprogram definition is not valid 
if it has no parameters. 

Subroutine FUNCTION/SUBRTN scans the 
list of arguments and enters them into the 
dictionary and intermediate text. It uses 
subroutines GETWD and CSORN. The only 
valid delimiters are a comma to separate 
the arguments and a right parenthesis to 
conclude the scan. The type codes for 
arguments in the subprogram are not entered 
here; they are defined implicitly or expli- 
citly in the subprogram. Since arguments 
can be arrays, space is reserved in the 
dictionary entries for array information. 

EXIT: Subroutine FUNCTION/SUBRTN exits to 
the following subroutines: 

1. END MARK CHECK if an end mark is 
encountered • 

2. ERROR if an error is detected. 

SUBROUTINES CALLED: During execution sub- 
routine FUNCTION/SUBRTN references subrou- 
tines : 

1 • GETWD to access symbols in the state- 
ment. 

2. CSORN to make entries in the diction- 
ary. 

3. SKPBLK to access delimiters in the 
statement . 

4. PUTX to make entries in the intermedi- 
ate text. 



Subroutine READ/WRITE: Chart BN 



Subroutine READ/WRITE analyzes the sym- 
bol representing the data set reference 
number and the FORMAT statement number in a 
READ/WRITE statement, and enters them in 
the intermediate text, dictionary, and 
overflow table. Subroutine ARITH then 
processes the list in the READ/WRITE state- 
ment. 



ENTRANCE: 



Subroutine READ/WRITE receives 



control from subroutine CLASSIFICATION. 

OPERATION: When subroutine READ/WRITE is 
entered, it assumes the read/write opera- 
tion will be in BCD mode. It enters the 
BCD adjective code into ADJ, and later it 
determines if the operation is in BCD or 
binary. 

Subroutine READ/WRITE sets a switch to 
indicate that this is a READ/WRITE state- 
ment. This switch is tested in subroutine 
ARITH Part 3 when subroutine ARITH process- 
es the READ/WRITE list. It is used in 
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connection with the 
READ/WRITE statement. 



implied DO for the 



ENTRANCE: 



Subroutine CONTINUE/RETURN is 



entered by subroutine CLASSIFICATION. 



Subroutine READ/WRITE does not check the 
validity of the data set reference number 
specified in the READ/WRITE statement. It 
blindly enters it into the dictionary if it 
has not already been entered , and enters 
its dictionary address into the intermedi- 
ate text. 

Subroutine READ/WRITE determines if the 
operation is BCD or binary by the manner in 
which the statement is formed. The state- 
ment: 



OPERATION: The entrance to subroutine 
CONTINUE/RETURN for a CONTINUE statement 
checks for a statement number. If there 
was no statement number , a warning is 
issued. 

A RETURN statement is used to return 
control to the main program from a FUNCTION 
or a SUBROUTINE subprogram. If this state- 
ment is in a main prog ram , an error condi- 
tion exists. 



READ (3,1) HOG ,TOAD, SHARK, LUNCH 

is a statement instructing the object pro- 
gram to read in the BCD mode, while the 
statement: 



Neither the CONTINUE nor the RETURN 
statement enters a pointer in intermediate 
text. Both the pointer and mode/ type 
fields for their intermediate text entries 
are set to 0. 



READ (3) PAUL, CHUCK, F00 

directs that the read be in the binary 
mode. 

When the subroutine READ/WRITE deter- 
mines that the second delimiter is a right 
parenthesis instead of a comma, it changes 
the BCD adjective code entered in ADJ to a 
binary adjective code. 



EXIT: Subroutine CONTINUE/RETURN exits to 
subroutine END MARK CHECK. 

SUBROUTINES CALLED : During execution sub- 
routine CONTINUE/RETURN references subrou- 
tines GETWD, WARNING, PUTX, and SKTEM. 



EXIT: Subroutine READ/WRITE exits to sub- 
routines : 

1. ERROR if an error has been detected. 

2. ARITH Part 1 to begin processing the 
READ/WRITE variable list. 

SUBROUTI NES CALLED : During execution sub- 
routine READ/WRITE references the following 
subroutines: 

1. SKPBLK to access delimiters. 

2. GETWD to access symbols in the state- 
ment. 

3. CSORN to enter symbols in the diction- 
ary. 

4. PUTX to make entries in the intermedi- 
ate text. 

5. LABLU to process the FORMAT statement 
number. 



Subroutine STOP/PAUSE 



Subroutine STOP/PAUSE enters the adjec- 
tive code and any number used to identify 
the halt into the intermediate text. This 
number is not entered in the dictionary. 

ENTRANCE: Subroutine STOP/PAUSE is entered 
from subroutine CLASSIFICATION. 

There are two intermediate text entries 
made for STOP and PAUSE statements. The 
first entry contains the STOP or PAUSE 
adjective code with zero in the entries for 
the mode/ type and pointer fields. If there 
is a halt number , it is entered in the 
pointer field of the second intermediate 
text entry. If there is no halt number the 
second entry will contain zeros. 



EXIT: 
routines : 



Subroutine STOP/PAUSE exits to sub- 



Subroutine CONTINUE/RETURN, STOP /PAUSE: 
Chart BO 



Subroutine CONTINUE/RETURN 



Subroutine CONTINUE/RETURN makes the 
single intermediate text entry for the 
CONTINUE and RETURN statements. 



1. END MARK CHECK. 

2. ERROR if an error is detected. 

SUBROUTINES CALLED: Subroutine STOP/PAUSE 
calls subroutine: 

1. GETWD to access symbols and delimiter. 

2. PAKNUM to pack the halt number. 

3. PUTX to make entries to the intermedi- 
ate text. 

4. SKPBLK to get the end mark. 
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Subroutine BKSP/REWIND/END/ENDFILE; Chart 
BP 



Subroutine DIMENSION: Chart BQ 



Subroutine BKSP/REWIND/END/ENDFILE makes 
the intermediate text and dictionary 
entries for the REWIND , BACKSPACE, END r and 
ENDFILE statements. 



ENTRANCE: BKSP/REWIND/END/ENDFILE receives 



control from subroutines: 



if the keywords BACK- 
END, or ENDFILE are 



CLASSIFICATION 

SPACE, REWIND, 

recognized. 

END MARK CHECK if the end of data set 

in the card reader is sensed and the 

END card has not been read. 



OPERATION: 



The 



intermediate text entries 

for the BACKSPACE, REWIND, END FILE, and 
ENDFILE statements are the same except for 
the adjective codes. The END FILE and 
ENDFILE keywords mean the same. The com- 
piler accepts either form. The subroutine 
enters either the address of the dictionary 
entry for a data set reference number or 
the address of a name symbolizing the data 
set reference number in the intermediate 
text for the I/O statements. 

When subroutine CLASSIFICATION recog- 
nizes the keyword END, it is not determined 
whether this statement is an END or END 
FILE statement. When CLASSIFICATION passes 
control to this subroutine after recog- 
nizing the word END, subroutine 
BKSP/REWIND/END/ENDFILE checks if the next 
symbol is the word FILE. 

If this was an END statement signifying 
end of the program, subroutine 
BKSP/REWIND/END/ENDFILE sets a switch to 
indicate to subroutine END MARK CHECK that 
the END card has been read. When END MARK 
CHECK senses an end of data set at the 
input device, it gives control to 
BKSP/REWIND/END/ENDFILE to set a switch 
simulating that an END card has been read. 



EXIT: 



Subroutine BKSP/REWIND/END/ENDFILE 



exits to subroutines: 

1. END MARK CHECK. 

2. ERROR if an error is detected. 

SUBROUTI NES CALLED : During execution sub- 
routine BKSP/REWIND/END/ENDFILE references 
subroutines : 



entries in 



the 



1. CSORN to process 
dictionary. 

2. GETWD to access symbols and delimiter. 

3. PUTX to make entries to the intermedi- 
ate text. 



Subroutine DIMENSION scans the list of 
symbols for DIMENSION, COMMON, INTEGER, 
REAL, and DOUBLE PRECISION statements. It 
determines if variables are subscripted, 
calls subroutines to process the subscript, 
and changes the mode in the dictionary when 
an explicit mode defines the mode of a 
variable. In any one of the above state- 
ments, an array may be defined and subrou- 
tine DIMENSION makes entries in the over- 
flow table and dictionary for the array. 



Subroutine DIMENSION is entered 



of varia- 



ENTRANCE: 

by subroutines: 

1 . CLASSIFICATION. 

2. COMMON to process the list 
bles placed in COMMON. 

3. INTEGER/REAL/DOUBLE PRECISION to proc- 
ess the list of variables. 

OPERATION: A sequence error occurs if an 
executable or EQUIVALENCE statement is 
processed before the DIMENSION statement is 
read. 

The scan is similar to the scan used in 
subroutine ARITH, but it is much simpler 
because there are only three legal delimi- 
ters, the comma and the left and right 
parentheses. 

A multiple switch is set to determine 
the type of statement being processed. It 
is set in the subroutines COMMON and 
INTEGER/REAL/DOUBLE which transfer control 
to subroutine DIMENSION. 



Subroutine DIMENSION exits to 



EXIT TO: 
subroutines : 



1. END MARK CHECK. 

2 . COMMON in order that entries 
made in the COMMON text. 

3. ERROR if an error is detected. 



may be 



SUBROUTINES CALLED: During execution sub- 
routine DIMENSION references subroutines: 

1 . GETWD to access symbols and delimi- 
ters . 

2. RCOMMA to skip redundant commas. 

3. SKPBLK to access delimiters. 

4. CSORN to process dictionary entries. 

5. DIMSUB to calculate array sizes. 

6. WARNING/ERRET to process warnings. 



Subroutine EQUIVALENCE: Charts BR, BS 



Subroutine EQUIVALENCE creates the 
EQUIVALENCE text. The two flow charts 
associated with subroutine EQUIVALENCE rep- 
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resent specific functions performed by sub- 
routine EQUIVALENCE • Each is discussed 
separately. 

ENTRANCE : Subroutine EQUIVALENCE receives 
control from subroutine CLASSIFICATION. 

EXIT: Subroutine EQUIVALENCE exits to sub- 
routines : 

1. END MARK CHECK. 

2. ERROR if an error is detected. 



Subroutine EQUIVALENCE Part 2 



EQUIVALENCE Part 2 processes the sub- 
script information for any subscripted 
variable which is a member of an 
EQUIVALENCE group. 



ENTRANCE; Subroutine EQUIVALENCE Part 2 is 
entered from subroutine EQUIVALENCE Part 1 
to process a subscripted variable. 



Subroutine EQUIVALENCE Part 1 



This part of subroutine EQUIVALENCE 
scans the EQUIVALENCE statement , getting 
the variable names and delimiters. It also 
makes both header and detail entries for 
the EQUIVALENCE text. 

ENTRANCE; Subroutine EQUIVALENCE Part 1 is 
entered by subroutines; 

1 . CLASSIF ICATI ON . 

2. EQUIVALENCE Part 2 
subscripted. 



when a name is 



OPERATION: The EQUIVALENCE text is written 
in the area that orginally contained sub- 
routine DIMENSION. When an EQUIVALENCE 
statement is processed, a switch is set to 
forego the processing of any DIMENSION 
statements that follow the EQUIVALENCE 
statement. Subroutine DIMENSION is over- 
laid by EQUIVALENCE text. This switch is 
never reset during Phase 10. 

The EQUIVALENCE text contains a header 
entry and a detail entry for each element 
in the EQUIVALENCE group. The entire group 
must be scanned before the header entry is 
made because it contains a count equal to 
the number of variables in the EQUIVALENCE 
group. After the right parenthesis defin- 
ing the end of this group is encountered, 
the element count is inserted in the header 
entry. 

EXIT: Subroutine EQUIVALENCE J>art 1 exits 
to subroutines: 

1. END MARK CHECK. 

2. ERROR if an error is detected. 

3. EQUIVALENCE Part 2 to process a sub- 
scripted variable. 

SUBROUTINES CALLED: During execution sub- 
routine EQUIVALENCE Part 1 references sub- 
routines: 

1. SKPBLK to access delimiters 

2. GETWD to access symbols and delimiters 

3. CSORN to process dictionary entries 

4. WARNING/ERRET to process warnings. 



OPERATION: The offset is computed using 
the numbers in the subscripted variable in 
the EQUIVALENCE statement and the informa- 
tion for the array entered in the overflow 
table by subroutine DIMENSION. 

The offset for 3-dimensional variables 
is computed using the following formula: 

Of fset= [ (J1-1) + (J2-1) D1+ (J3-1) D1*D2] *Length 

where: J1, J2, and J3 are constants in the 
subscripted variable A (J1, J2, J3) entered 
in the EQUIVALENCE group. The constants 
Length, D1*Length, and D1*D2*Length, are 
computed when the DIMENSION statement is 
processed by subroutine DIMENSION and 
stored in the overflow table. When 
EQUIVALENCE Part 2 collects each subscript, 
it subtracts 1 from each and multiplies it 
by the appropriate constant in the overflow 
table. The products of this multiplication 
are added into an accumulator until all 
subscripts for this variable are exhausted. 

Valid subscripts for variables in an 
EQUIVALENCE group contain no variables. 
Subscripted variables may have one sub- 
script for 1-, 2-, and 3-dimensioned varia- 
bles, or the same number of subscripts as 
there are dimensions in its DIMENSION 
statement. For example, in the array 
A(5,5,5), A(2,2,2) and A (32) represent the 
same element. 



EXIT: Subroutine EQUIVALENCE Part 2 exits 
to subroutines: 

1. EQUIVALENCE Part 1 to enter the sub- 
scripted variable into the EQUIVALENCE 
text. 

2. ERROR if an error is detected. 



SUBROUTINES CALLED: During execution sub- 
routine EQUIVALENCE Part 2 references sub- 
routines : 

1 . GETWD to access symbols and delimi- 
ters. 

2. INTCON to convert EBCDIC numbers to 
binary numbers. 

3. SKPBLK to access delimiters. 
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Subroutine COMMON: Chart BT 



The function of subroutine COMMON is to 
direct the processing of COMMON statements 
and to enter names in the COMMON text. 

ENTRANCE : Subroutine COMMON receives con- 
trol from subroutines CLASSIFICATION or 
DIMENSION, 

CONSIDERATION: Subroutine COMMON uses sub- 
routine DIMENSION to do the bulk of the 
processing for the COMMON statements. It 
sets a program switch to indicate to sub- 
routine DIMENSION that this is a COMMON 
statement. After subroutine DIMENSION col- 
lects the symbols, COMMON enters them in 
the COMMON text. COMMON statements may be 
used in place of a dimension statement to 
define an array. 



OPERATION: 



The 



executable 



switch 



is 



checked to see if any executable statement 
or EQUIVALENCE statement is processed. If 
there has been an executable or EQUIVALENCE 
statement processed, a sequence error is 
detected. 

After subroutine DIMENSION retrieves 
each name in the COMMON statement from the 
dictionary, control returns to subroutine 
COMMON. The address of the entry in the 
dictionary along with the length of the 
name are entered in the COMMON text. The 
length of the name is entered in order to 
search the chain in the dictionary for the 
name. 

EXIT: Control is passed from subroutine 
COMMON to subroutines: 

1. DIMENSION to process entries in the 
COMMON statement. 

2. ERROR if an error is detected. 



subroutine FORMAT moves all the characters 
beyond the word FORMAT through column 72 to 
the intermediate text, the end mark set by 
GETWD is blanked, and an end mark is placed 
in column 73 by subroutine FORMAT. 

Subroutine CLASSIFICATION has made an 
entry in the overflow table for the state- 
ment number that refers to the FORMAT 
statement, but it did not adjust the usage 
field to indicate that this was the state- 
ment number for a FORMAT statement. Sub- 
routine FORMAT, using the pointer that was 
supplied when the statement number was 
found or entered in the overflow table, 
adjusts the usage field to indicate that 
this statement number refers to a FORMAT 
statement . 

Subroutine FORMAT then moves the image 
of the FORMAT card, byte by byte, to the 
intermediate text. It moves the characters 
up to and including the end mark which is 
placed in column 73. When the end mark is 
encountered, it is moved to the intermedi- 
ate text. But the output pointer is not 
updated, so that if . a continuation card 
were required to complete this statement, 
the character in column 7 would overlay the 
end mark. If there are no continuation 
cards or if this is the last one, the end 
mark remains in the intermediate text to 
signal to other phases that it is the end 
of the image of the FORMAT statement. 

If there are no more continuation cards 
(or if none exist) , the end of the FORMAT 
statement has been reached. When entries 
are made byte by byte, as in subroutine 
FORMAT, there is a good possibility that 
the entries did not stop on a full word 
boundary. All other intermediate text 
entries must begin on a full word boundary. 
The output pointer is then adjusted to a 
full word boundary to satisfy the format 
for the intermediate text and the end 
statement entry is made. 



Subroutine FORMAT: Chart BU 



Subroutine FORMAT enters the adjective 
code for a FORMAT statement in the inter- 
mediate text. Then the card image immedi- 
ately beyond the word FORMAT, extending 
through column 72, is moved in one byte BCD 
characters to the intermediate text. If a 
continuation card is required to complete 
the FORMAT statement, the image from column 
7 of the continuation card through column 
72 is moved to the intermediate text. 



EXIT: Subroutine FORMAT exits to subrou- 
tine END MARK CHECK, where the entry for 
the end statement is made. 

SUBROUTINE CALLED: During execution, sub- 
routine FORMAT references subroutines 

1 . PUTX to make entries to the intermedi- 
ate text. 

2. GET to read cards. 

3. WARNING/ERRET if a warning is detect- 
ed. 



ENTRANCE : Subroutine FORMAT receives con- 
trol from subroutine CLASSIFICATION. 



Subroutine EXTERNAL: Chart BV 



OPERATION: Subroutine GETWD sets an end 
mark in the first column beyond the last 
non-blank character in the card. Because 



Subroutine EXTERNAL scans the card, 
placing each name on the card in the 
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dictionary and typing it as an external 
symbol. It sets the appropriate bit in the 
usage field of the dictionary, indicating 
that an eSD card must be punched for this 
symbol. 



Subroutine INTEGER/REAL/DOUBLE may exit 
to one of two subroutines. If the next 
symbol is the word FUNCTION, it exits to 
subroutine FUNCTION/SUBRTN to define the 
function that follows the word FUNCTION. 
For example: 



ENTRANCE: 



Subroutine EXTERNAL receives REAL FUNCTION RAF (A,B,I) 



control from subroutine CLASSIFICATION. 

OPERATION: All external symbols must be 
defined before any executable statements 
are encountered. If the executable switch 
is on, subroutine EXTERNAL cannot define 
external symbols. All symbols entered as 
external symbols must be names, otherwise 
subroutine EXTERNAL detects an error. A 
constant cannot be an external symbol. 

EXIT: Subroutine EXTERNAL exits to subrou- 
tines : 

1. END MARK CHECK when the end mark is 
encountered. 

2. ERROR if an error is detected. 

SUBROUTINES CALLED: During execution sub- 
routine EXTERNAL references subroutines 

1. GETWD to access symbols and delimi- 
ters. 

2. CSORN to enter names in the diction- 
ary. 

3. RCOMA to bypass redundant commas. 



defines the function RAF as a real func- 
tion. The mode and type of the parameters 
are not defined until they are used in a 
statement other then the header card. If 
the next symbol is not the word FUNCTION, 
control is passed to subroutine DIMENSION, 
because an array may be defined explicit 
mode statement. For example: 

DOUBLE PRECISION A, TOAD, HERBIE (20) 



defines a double precision 
composed of 20 elements. 



array HERBIE 



EXIT: Subroutine INTEGER/REAL/DOUBLE exits 
to the following subroutines: 



1. 
2. 



3. 



DIMENSION. 

FUNCTION/SUBRTN if the name after the 

specification keyword is the keyword 

FUNCTION. 

ERROR if an error is detected. 



SUBROUTINES CALLED: During execution sub- 
routine INTEGER/REAL/DOUBLE references sub- 
routines: 



Subroutines INTEGER/REAL/DOUBLE: Chart BW 



1. GETWD to access symbols and delimi- 
ters. 

2. WARNING/ERRET to process warnings. 



Subroutine INTEGER/REAL/DOUBLE sets the 
mode for the statement and exits to subrou- 
tines DIMENSION or FUNCTION/SUBRTN. 



Subroutine HOUSEKEEPING: Chart CB 



ENTRANCE: 

receives 

CATION. 



Subroutine INTEGER/REAL/DOUBLE 
control from subroutine CLASS IFI- 



OPERATION: The mode for this statement is 
inserted in a work area. Any variable that 
appears later in the statement being proc- 
essed is assigned the mode explicitly stat- 
ed in the first name in this statement. 
The first name always is REAL, INTEGER, or 
DOUBLE. 

The first of two switches set in subrou- 
tine INTEGER/REAL/DOUBLE indicates to sub- 
routine FUNCTION/SUBRTN that it was entered 
from INTEGER/REAL/DOUBLE and the mode is 
explicitly defined. Wiien subroutine 
FUNCTION/SUBRTN enters the mode of the 
subprogram it checks this switch to see if 
an explicit mode has been defined. The 
second switch is set for subroutine 
DIMENSION, indicating that it was entered 
from subroutine INTEGER/REAL/DOUBLE. 



Subroutine HOUSEKEEPING enters informa- 
tion into the communication area, primes 
input buffers, and sets the beginning 
addresses for the dictionary and overflow 
table. 

ENTRANCE: Subroutine HOUSEKEEPING is 
entered from the FORTRAN System Director 
after the FSD has loaded Phase 10. 

OPERATION: Subroutine HOUSEKEEPING enters 
the following information: 

1. Indication to FSD that Phase 10 is in 
Control. 

2. Address of output buffer, COMMON text 
area, EQUIVALENCE text area, and thumb 
index. 

The dictionary is located initially at 
the end of the Phase 10 subroutines. Sub- 
routine HOUSEKEEPING must move it to allow 
storage for the intermediate text output 
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buffers. The size of the output buffers is 
calculated from information in the communi- 
cations area (supplied by the Control Card 
routine) ; then, the beginning address of 
the dictionary is calculated. 

The resident dictionary is moved to this 
location, and the addresses in the thumb 
index are modified to reflect the new 
location of the dictionary. 

Subroutine HOUSEKEEPING sets the address 
of the dictionary and overflow table in 
registers. It primes the input buffer by 
calling the FORTRAN System Director to read 
in the first two cards in the card reader 
while the communications area is being 
initialized. 

EXIT; Subroutine HOUSEKEEPING exits to 
subroutine CLASSIFICATION to process the 
first source statement. 

SUBROUTI NES CALLED : Subroutine HOUSEKEEP- 
ING references the FORTRAN System Director 
to read the first two source cards. 



Subroutine GETWD: Chart CC 



Subroutine GETWD scans the card for 
names, constants , data set reference num- 
bers, and delimiters. If the end mark for 
a card is sensed, GETWD reads a new card, 
prints it, sees if the card is a continua- 
tion card, and adjusts the pointers and 
register to process the continuation card. 

ENTRANCE: The utility subroutine GETWD is 
referenced by subroutines EXTERNAL, 
REAL/INTEGER/DOUBLE, CLASSFI CATION, ARITH, 
GOTO, CONTINUE/RETURN, STOP/PAUSE, 
BKSP/REWIND/END/END FILE, SUBS, 
EQUIVALENCE, DO, ASF, READ/WRITE, CALL, 
FUNCTION/ SUBRTN, DIMENSION, DIM9 , END MARK 
CHECK, SKPBLK, SKTEM, FORMAT 



OPERATION: 



When 



subroutine 



GETWD is 

entered, it assumes that Phase 10 has 
already started processing a card. A poin- 
ter, set for the card, checks for a blank 
card position. If it is blank, the pointer 
is advanced. If the position is not blank, 
it saves the pointer for a length calcula- 
tion. 

After the first non-blank character is 
found, the compiler executes a translate 
and test instruction. The table for this 
instruction is set so the instruction stops 
on any special character (including blanks) 
except $. The translate and test instruc- 
tion inserts the address at which it 
stopped in general register 1 , and the 
non-zero byte in the table which caused it 
to stop in general register 2. The address 



in general register 1 is used to calculate 
the length of the symbol, and initialize 
GETWD the next time it is entered. The 
byte in general register 2 is the adjective 
code for the delimiter and it is also used 
to index the branch table in ARITH Part 2. 



Subroutine GETWD has two return points. 
The normal return is used if the length of 
the symbol just scanned is greater than 
zero. This implies that the symbol scanned 
is a name, constant, or data set reference 
number. The second return is the zero 
return which is used if the symbol has 
length of zero (i.e., the translate and 
test instruction stopped at the same posi- 
tion at which it began) . A delimiter is at 
the position that the translate and test 
instruction began and ended its scan. 

If an end mark is encountered as a 
delimiter, subroutine GETWD calls subrou- 
tine GET to read another card. The read 
area is double buffered (i.e., it can 
process a card in one buffer, while a card 
is being read into the second buffer) . If 
an end mark is encountered in buffer 1, 
GETWD calls subroutine GET to read a card 
into buffer 1, and prepare the pointers to 
process the card in buffer 2. At the same 
time the card is being read into buffer 1, 
the card in buffer 2 is printed. If this 
card was a comments card, subroutine GETWD 
calls subroutine GET to read a card into 
buffer 2 when the card reader is available. 

While the card that is about to be 
processed is being printed, it is scanned 
four bytes at a time for the first signifi- 
cant (non-blank) character from column 73 
toward column 1 . The end mark is placed in 
the column immediately to the right of that 
significant character. 

Subroutine GETWD checks the card being 
processed. If it is a continuation card, 
subroutine GETWD sets the pointers and 
registers so the calling subroutines never 
know a continuation card has been read. 
Register 2, which receives the function 
bytes of the translate and test instruc- 
tion, is set to blank and the pointer that 
is stored after each translate and test 
instruction is set to point to column 6 of 
the card. The card is then processed from 
the point at which GETWD was entered. 



EXIT: Subroutine GETWD exits to the sub- 
routine that called it. 



SUBROUTINES CALLED : During execution sub- 
routine GETWD references subroutines: 

1. GET to read a card. 

2. PRINT to print a card image. 
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Subroutines SKPBLK, SKTEM: Chart CD 



Subroutine SKPBLK 



When a subroutine expects to find a 
delimiter, it calls subroutine SKPBLK to 
skip blanks until it finds another delimi- 
ter. If a name, constant, or data set 
reference number is encountered before a 
delimiter, an error message is entered in 
the intermediate text, 

ENTRANCE ; The utility subroutine SKPBLK is 
referenced by subroutines ARITH Part 1 , 
SUBS, EQUIVALENCE, DO, SUBIF, READ/WRITE, 
FUNCTION/SUBRTN, DIMENSION, 

EXIT: Subroutine SKPBLK exits to: 



1. The subroutine that called it. 

2. Subroutine ERROR if a symbol that 
not a delimiter is encountered. 



is 



SUBROUTINES CALLED: During execution sub- 
routine SKPBLK references subroutine GETWD. 



Subroutine SKTEM 



When a subroutine expects to find an end 
mark, it calls subroutine SKTEM, which 
skips the remaining symbols of the card 
until it finds an end mark. An error has 
already been noted when this subroutine is 
called. 



OPERATION: If the symbol is a name, the 
name length determines the proper chain. 
The length of the symbol is determined by 
subroutine GETWD and used by subroutine 
SYMTLU to find the proper address in the 
thumb index, so that the correct dictionary 
chain may be searched. The symbol is 
entered in the chain with a chain address, 
mode, type, possibly an address, and possi- 
bly an array size. The usage field is set 
by the subroutine that referenced CSORN. 

If the symbol is not a name, it is 
entered on one of the chains for real 
constants, integer constants, double preci- 
sion constants, or data set reference num- 
bers. If it is a constant, its mode is 
determined by subroutine LITCON. Phase 10 
distinguishes a data set reference number 
from a constant by the context in which the 
number is used. 

If the symbol has already been entered, 
SYMTLU makes no changes in the entry. The 
subroutine which has called SYMTLU adjusts 
the mode, type and usage fields of the 
entry if necessary. 

RESTRICTION: Subroutine SYMTLU will reject 
any attempt made to enter any name greater 
than six characters. The chains for 
lengths 7 through 11 are reserved strictly 
for FORTRAN key words. No user name can be 
entered in these chains. 

EXIT: Subroutine SYMTLU exits to subrou- 
tines : 

1. CSORN the subroutine that called it. 

2. ERROR if an error is detected. 



ENTRANCE : The utility subroutine SKTEM is 
referenced by subroutines END MARK CHECK, 
ERROR, and CONTINUE/RETURN. 



Subroutines LABLU, PAKNUM, LABTLU: Chart CF 



EXIT: Subroutine SKTEM exits to the sub- Subroutine LABLU 
routine that called it. 



SUBROUTI NES CALLED : During execution sub- 
routine SKTEM references subroutines GETWD. 



Subroutine SYMTLU: Chart CE 



Subroutine SYMTLU determines if the sym- 
bol has been entered on a chain in the 
dictionary. If the symbol has not been 
entered, subroutine SYMTLU enters it in the 
dictionary and returns the address of the 
entry to the calling subroutine (CSORN) . 
If the symbol has been entered, it returns 
the address of the entry to the calling 
subroutine. 

ENTRANCE : The utility subroutine SYMTLU is 
referenced by subroutine CSORN. 



Subroutine LABLU is entered only if the 
calling subroutine expects the symbol, it 
receives from subroutine GETWD to be a 
statement number. It calls other subrou- 
tines to pack the statement number and 
enter it into the overflow table. Subrou- 
tine LABLU selects the correct chain for 
the statement number to be entered in the 
overflow table. 

ENTRANCE: Subroutine LABLU is referenced 
by subroutines CLASSIFICATION, GOTO, and 
DO. 

OPERATION: Subroutine LABLU sets a switch 
indicating to other subroutines that the 
symbol they are processing is a statement 
number. The switch is reset by LABLU 
before control returns to the subroutine 
which called LABLU. 
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EXIT; The utility subroutine LABLU exits 
to the subroutine that called it. 

SUBROUTI NES CALLED ; During execution sub- 
routine LABLU references subroutines: 

1. PAKNUM to pack the statement number. 

2. LABTLU to process the overflow table. 



tested so that the correct compare instruc- 
tions can be used while LABTLU is searching 
the table. It is also tested in order that 
the correct move instructions are executed 
in moving the entry into the overflow 
table. 



EXIT: Subroutine LABTLU exits to: 



Subroutine PAKNUM 



Subroutine PAKNUM either packs a state- 
ment number prior to the search of the 
overflow table or packs the number used to 
identify a PAUSE or a STOP. PAKNUM also 
checks for errors. 



1 . The subroutine that called subroutine 
LABTLU. 

2. Subroutine ERROR if an error is 
detected. 



Subroutines CSORN, INTCON: Chart CG 



ENTRANCE: 

erenced 

PAUSE/STOP. 



The subroutine 
by subroutines 



PAKNUM is ref- 
LABLU and 



Subroutine CSORN 



RESTRICTIONS : Any statement number or halt 
number is illegal if it is greater than 
five characters or contains any alphabetic 
characters. Subroutine PAKNUM checks both 
of these conditions. 

EXIT: The utility subroutine PAKNUM exits 
to: 



1. The subroutine that called it. 

2. Subroutine ERROR if an error 
detected. 



Subroutine LABTLU 



is 



The functions of subroutine CSORN are: 

1. To determine if the symbol is a name, 
constant or a data set reference num- 
ber and to call the proper subroutines 
to process the symbol. 

2. To determine how to enter the paramet- 
er in the intermediate text if a 
constant is a DO parameter. 

ENTRANCE: Subroutine CSORN receives con- 
trol from subroutines CLASSIFICATION, ARITH 
Part 1, BKSP/REWIND/END/ENDFILE, 
STOP/PAUSE, GOTO, ARITH Part 3, SUBS, 
EQUIVALENCE, DO, ASF, READ/WRITE, CALL, 
FUNCTION/ SUBRTN, DIMENSION. 



Subroutine LABTLU enters all information 
into the overflow table. It searches for 
and enters, if necessary, all statement 
numbers, subscript information, and 
dimension information. 

ENTRANCE : The utility subroutine LABTLU is 
referenced by subroutines SUBS, DIMSUB, and 
LABLU. 



CONSIDERATIO N 
tine LABLU 
to LABTLU. 



_ A switch is set in subr on- 
to indicate a statement number 



OPERATION: Subroutine LABTLU first gets 
the correct address for the beginning of a 
chain in the overflow table. Then it 
searches the contents of each entry in the 
overflow table, comparing the assembled 
entry against each entry in the chain for 
that type of entry until it finds the entry 
for that symbol or the chain ends. 

If an entry is not found, it attaches 
the entry to the end of the chain. The 
switch indicating a statement number is 



OPERATION: Subroutine CSORN first deter- 
mines if the symbol is a name or a constant 
by checking the first character. If the 
symbol is an integer constant, subroutine 
CSORN checks a switch for the context in 
which the symbol is used. It may be a data 
set reference number. 

By checking another switch CSORN deter- 
mines if an integer constant is a DO 
parameter and determines the magnitude of 
the constant. If the constant is less then 
4096, it can be carried in the displacement 
field of an instruction and directly in the 
pointer field of an intermediate text 
entry. It will not be entered on a chain 
in the dictionary. A constant greater than 
4096 cannot be entered in the intermediate 
text or the displacement field of an 
instruction, and must be entered on a chain 
in the dictionary. 

CONSIDERATI ONS : DO parameters less than 
4096 are entered in the object program in 
the displacement field of a load address 
instruction. Otherwise, storage has to be 
allocated for the constant. 
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EXIT: Control is passed from subroutine Subroutine LITCON Part 1 
CSORN to the subroutine that referenced it. 



SUBROUTINES CALLED; During execution , sub- 
routine CSORN references the following sub- 
routines : 

1. LITCON to convert EBCDIC numbers to a 
format that can be used internally. 

2. SYMTLU to make entries in the diction- 
ary. 



Subroutine LITCON Part 1 is entered only 
if the first character of a symbol is a 
number or a decimal point. LITCON Part 1 
scans the constant, examining each charac- 
ter. If the character is numeric, it is 
added to a binary accumulator to form the 
number. If the character is a delimiter, 
control is passed to LITCON Part 2 and 
appropriate action is taken. 



Subroutine INTCON 



ENTRANCE: 



Subroutine 



LITCON 



Part 



receives control from CSORN, INTCON, LITCON 
Part 2. 



Subroutine INTCON calls a subroutine to 
convert integers in subscript expressions 
to binary numbers. 

ENTRANCE : Subroutine INTCON receives con- 
trol from subroutines SUBS, DIM90. 

OPERATION: INTCON checks whether integer 
constants are properly located within the 
subscript expression and calls LITCON to 
convert a decimal number to a binary con- 
stant . 

EXIT: Control is passed from subroutine 
INTCON to: 

1. The subroutine that referenced it. 

2. ERROR if an error is detected. 



CONSIDERATION: Subroutine GETWD maintains 
two pointers. The first points to the 
first character of the symbol. The second 
points to the delimiter which stopped the 
translate and test instruction. 

For example, 

123.456 236E7 
ft ft 

123.456E+3 236E7+ 
t t t ♦ 

If the number is an integer, the pointers 
refer to the first digit of the constant 
and the delimiter which defines the end of 
the constant. For example: 



SUBROUTINES CALLED: During execution, sub- 
routine INTCON references subroutine LITCON 
to convert numbers to an internal format. 



123456 
t t 

14589+ 
t t 



Subroutine LITCON: Charts CH, CI, CJ 



The functions of subroutine LITCON are: 

1. To convert any numeric constants to a 
format that can be used internally. 

2. To convert double precision and real 
constants to double-precision 
floating-point numbers. 

3. To convert integer constants to binary 
full word numbers. 



ENTRANCE : 



Subroutine LITCON receives con- 



trol from CSORN, INTCON 

OPERATION: Subroutine LITCON is divided 
into three parts, each with its own func- 
tions and objectives. Each part is dis- 
cussed separately. 

EXIT: Control is passed from subroutine 
LITCON to the subroutine that referenced 
it. 



OPERATION: When subroutine LITCON Part 1 
is entered, a register is cleared. It is 
used to build a binary constant. The first 
pointer furnished by subroutine GETWD is 
used to scan the constant. This pointer 
will be incremented by 1 each time LITCON 
Part 1 must examine another character. If 
the character is not a digit, control is 
given to LITCON Part 2 to process that 
character. 

If the character is a digit the contents 
of the register are multiplied by 10 and 
the digit is added to the register. If a 
decimal point is encountered in the scan, 
control is given to LITCON Part 2 which 
sets a decimal indicator on and returns to 
Part 1. Using this indicator as a program 
switch, a count is maintained to indicate 
the number of decimal places to the right 
of the decimal point. This number is used 
in LITCON Part 3 to normalize the constant. 

If an E or D is encountered in the scan, 
the register is saved and cleared by LITCON 
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Part 2. The same register is used by 
LITCON Part 1 to build the exponent. 



EXIT: Control is passed from 
LITCON Part 1 to LITCON Part 2. 



I Subroutine LITCON Part 2 



subroutines 



double-precision, floating-point numbers. 
When LITCON Part 3 was entered, one part of 
LITCON converted the mantissa to a binary 
number and stored it in main storage. The 
second part of LITCON converted the expo- 
nent to a binary number and placed it in a 
register. A count of the number of decimal 
places had also been kept. 



Subroutine LITCON Part 2 processes any 
character not a digit, that is encountered 
by LITCON Part 1 while it is scanning the 
symbol. 

ENTRANCE ; Subroutine LITCON Part 2 
receives control from LITCON Part 1 and 
LITCON Part 3. 

OPERATION: LITCON Part 2 sets indicators 
used as program switches for the three 
parts of LITCON. It sets one indicator if 
a decimal point is encountered in the scan 
of a symbol. Another indicator is set if 
the characters D or E are encountered in 
the scan. Either of these characters indi- 
cates that this constant is exponentiated. 

When a D or E is recognized, LITCON Part 
2 stores the binary number that was in the 
register used by Part 1, and clears the 
register so the LITCON Part 1 may accumu- 
late the exponent. 

Subroutine LITCON exits through Part 2 
when the entire number is converted to a 
fixed- or floating-point number. The poin- 
ters used by GETWD to scan the remainder of 
the statement must be updated so that both 
are fixed on the character immediately 
following the last character of the con- 
stant. 

EXIT: Control is passed from subroutine 
LITCON Part 2 to subroutines: 

1. LITCON Part 1. 

2. LITCON Part 3. 

3. The subroutine that referenced subrou- 
tine LITCON. 



I Subroutine LITCON Part 3 



Subroutine LITCON Part 3 is entered only 
if the constant is a real or double preci- 
sion number. It converts the mantissa and 
characteristic generated from Parts 1 and 2 
to an internal double precision number. 



OPERATION: LITCON Part 3 uses these three 
binary numbers to form a double-precision 
normalized floating-point constant. For 
the constant, 23.456+06, Parts 1 and 2 
would place the binary expression of the 
decimal integer 23456 in a storage loca- 
tion, the binary integer 6 in a register, 
and a count 3 in another location. 

The mantissa must be handled as an 
integer because the computer cannct place a 
physical decimal point in a field. The 
number 23.456 takes the form of 23456 with 
a count of 3 decimal places. 

The hexadecimal equivalent of 23456 is 
I 5BA0. 

If the mantissa is treated as an inte- 
ger, some adjustment must be made to the 
exponent. The decimal count is subtracted 
from the original exponent. In our example 
the exponent is changed to 3 and the 
decimal count is cleared. 

23. 456*10 6 =23456*10 3 

23. 456E+06=23456E+03 

The exponent is changed from +6 to +3. 
If the result of the subtraction is nega- 
tive, a switch is set to indicate a nega- 
tive result, and the result is set to its 
absolute value. 

Up to this point, then, we have a 
| hexadecimal mantissa 5BA0 and a decimal 
exponent, 3. A double word is then esta- 
blished in storage; the first byte contains 
the hexadecimal number 4E, and the rest of 
the bytes contain hexadecimal zeros. That 
double word is: 

4E00000OOOOO0000 

The sign bit is set to zero. The 

hexadecimal mantissa is then "ored" to the 

second word of this double word. Our 
double word then becomes 

4E00000000005EA0) „ fi 



ENTRANCE : 
receives 
Part 2. 



Subroutine 
control from 



LITCON Part 3 
subroutine LITCON 



CONSIDERATION 



All 



precision 



real or double- 
constants are converted into 



In hexadecimal notation this means 

.00000000005BA0) 16 * 16" 

| Actually, the double word is an unncr- 
roalized System/360 floating-point constant. 
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Characteristic 4E, is the exponent 14 in 
excess 64 notation. This is explained in 
the System Reference Library publication, 
IBM System/360 Principles of Operation , 
Appendix C. 

To normalize the constant, the double 
word is added to a double floating-point 
register, which contains floating-point 
zero. The result of this operation is: 

I 445BA00000000000 



or 



.5BA0 * 16* 

Finally, the decimal exponent must be 
used to adjust this double word. A switch 
is set to indicate a positive or negative 
exponent, and the exponent is set to its 
absolute value. If the exponent is nega- 
tive, the double word is divided by the 
value 10 ** exponent. If it was positive, 
the double word is multiplied by the value, 
10 ** exponent. 

LITCON Part 3 uses a table with 
floating-point values for various exponents 
of 10. In our example the exponent 3 
indicates a value of 1000 in the decimal 
number system. Using the table, Part 3 
finds that 1000 is 3E8 in the hexadecimal 
system. This hexadecimal number is con- 
verted to a floating-point constant and 
used to multiply the number that is cur- 
rently in the double floating-point reg- 
ister, 445BA00000000000. The result of 
this multiplication would be: 

47165E90000000000 



making the necessary entries to the dic- 
tionary, overflow table, and the intermedi- 
ate text. 

ENTRANCE : Subroutine SUBS is referenced by 
subroutines ARITH Part 1 and ARITH Part 2. 

OPERATION: Subroutine SUBS processes vari- 
ables with one, two, or three subscripts. 
The subscripts must conform to the general 
FORTRAN subscript expression: 

C1*V1+J1 



where CI and Jl are unsigned integer 
stants, and VI is an integer variable. 



ccn- 



The overflow table entry for a sub- 
scripted variable is assembled in the over- 
flow buffer. Just before control is 
returned to the calling routine, the con- 
tents of the overflow buffer are inserted 
in the overflow table by use of subroutine 
LABLTU. 

Constants of the form Jl are stored in 
main storage until control is about to be 
given to the calling subroutine. The off- 
set is then computed using these constants 
and the dimension information entered for 
this array in the overflow table, when the 
array was defined by a DIMENSION statement. 
The offset is then entered in the inter- 
mediate text. 

EXIT: The utility subroutine SUBS exits 
to: 

1. The subroutine which has called it. 

2. Subroutine ERROR if an error is 
detected. 



or 

.165E900 * 16" 7 

Then, 

23. 456E+06=47165E9 00 00000000, 

and the floating-point number is converted 
to an internal machine constant. 



SUBROUTINES CALLED : During execution sub- 
routine SUBS references subroutines: 

1. GETWD to access symbols and delimi- 
ters. 

2. INTCON to process integer constants. 

3. SKPBLK to access delimiters. 

4. CSORN to process dictionary entries. 

5. LABTLU to process overflew table 
entries. 



EXIT: Control is passed from subroutine 
LITCON Part 3 to: 



1. The subroutine that called subroutine 
LITCON if an error is detected. 

2. Subroutine LITCON Part 2 to exit from 
subroutine LITCON. 



Subroutines DIMSUB, DIM90: Chart CM 



Subroutine DIMSUB 



Subroutine SUBS: Chart CL 



Subroutine SUBS processes all subscript- 
ed variables in arithmetic expressions. 



Subroutine DIMSUB scans the subscript 
portion of a statement that is dimensioning 
an array. It also inserts the dimension 
information into the overflow table entry 
and the size of the array in the dictionar- 
Y- 
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ENTRANCE ; The utility subroutine DIMSUB is 
referenced by subroutine DIMENSION, 

OPERATION: The type code is set to rep- 
resent an array because Phase 10 has now 
determined that this statement defines an 
array. 

Subroutine DIMSUB uses another subrou- 
tine, DIM90, to actually compute the con- 
stants entered in the overflow table. 

EXIT: Subroutine DIMSUB exits to: 

1. The subroutine that called it. 

2. ERROR if an error has occurred. 

SUBROUTINES CALLED: During execution sub- 
routine DIMSUB references subroutines: 

1. DIMGO to compute constant. 

2. WARNING/ERRET if an error is detected. 



Subroutine DIM90 



Subroutine DIM90 computes the constants, 
D1*L and D1*D2*L, which are inserted in the 
overflow table, and the size of the array 
(D3*D2*D1*L) which is inserted in the size 
field of the dictionary where the general 
form for the array is: 

ARRAY (D1,D2,D3) 

ENTRANCE : The utility subroutine DIM90 is 
referenced by subroutine DIMSUB. 

OPERATION: Subroutine DIM90 uses GETWD and 
INTCON to get the integer and convert it. 
Then for the first subscript it computes 
the product D1*L and saves the result. If 
the array has only one dimension, this 
product is the size of the array. If there 
is more than one dimension for this array, 
the product D2*D1*L is computed. If the 
array has only two dimensions, that is the 
size of the array. If there is another 
dimension for the array, the product 
D3*D2*D1*L is computed. This product is 
the size in bytes of a 3-dimensional array. 
For information concerning the format of 
these entries in the overflow table, see 
the introduction to Phase 10. 

EXIT: Subroutine DIM90 exits to: 

1. The subroutine that called it. 

2. Subroutine ERROR if an error is 
detected. 

SUBROUTINES CALLED: During execution sub- 
routine DIM90 references subroutines: 

1. GETWD to access symbols and delimi- 
ters. 



2. SKPBLK to access delimiter. 

3. INTCON to process integers. 



Subroutine END MARK CHECK: Chart CN 



Subroutine END MARK CHECK calls subrou- 
tine PUTX to write the end mark entry for 
the majority of FORTRAN statements. It 
also tests for the card reader end of data 
set or if the END card has been read. Part 
of END MARK CHECK is used to find redundant 
commas. 

ENTRANCE: Subroutine END MARK CHECK 
receives control from subroutines EXTERNAL, 
CONTINUE/RETURN, STOP/PAUSE, GOTO, ARITH 
Part 3, EQUIVALENCE, DO, ASF, CALL, 
FUNCTION/SUBRTN, DIMENSION. 

OPERATION: Subroutine END MARK CHECK is 
composed of two distinct sections. One 
section with entry points RCOMA, RCOMA1 , 
RCOMA2, and RCOMA3 is entered if no inter- 
mediate text is written for this statement. 
It is entered by subroutines processing 
COMMON, EQUIVALENCE, DIMENSION, REAL, INTE- 
GER, DOUBLE PRECISION, and EXTERNAL state- 
ments. It enters the second portion from 
the first portion of subroutine END MARK 
CHECK, only if a warning message must be 
issued. 

A portion of the first section issues 
warning messages when used as a subroutine 
to skip redundant commas. The return to 
the subroutine that called it returns to a 
program step above the call instruction. 
The compiler then stays in a loop until all 
redundant commas have been skipped. 

The first section of END MARK CHECK sets 
off all type switches used to direct Phase 
10 through explicit specification state- 
ments. 

The second portion of subroutine END 
MARK CHECK has entry points EOSR, EOSR1, 
E0SR2, EOSR2A, and EOSR3. This section is 
entered if intermediate text is written for 
this statement. 

This portion of subroutine END MARK 
CHECK calls subroutine ASF if the arithmet- 
ic statement function switch is set. Sub- 
routine ASF then resets dictionary entries 
and defaces those made to define the state- 
ment function arguments. 

EXIT: Subroutine END MARK CHECK exits to: 

1 . Subroutine CLASSIFICATION to process 
another source card entry. 

2 . The subroutine that called it if entry 
was made at block RCOMA. 

3. Subroutine ASF to finish processing an 
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arithmetic statement function. 

4. FORTRAN System Director to load Phase 
12. 

5. Subroutine BKSP/REWIND/END/ENDFILE to 
simulate an end card being read. 

SUBROUTINES CALLED: During execution sub- 
routine END MARK CHECK references subrou- 
tines : 

1. GETWD to access symbols and delimi- 
ters. 

2. SKTEM to skip to the end mark. 

3. PUTX to make entries to the intermedi- 
ate text. 

4. WARNING/ERRET if a warning is detect- 
ed. 



Subroutine PUTX, PUTBUF, PUTRET: Chart CO 



Subroutine PUTX makes entires to the 
intermediate text buffer area, consisting 
of an adjective code, type code, and an 
address pointing to an entry either in the 
dictionary or the overflow table. If a 
buffer area is full, PUTX gives control to 
the FORTRAN System Director in order to 
write a tape record and free the buffer. 

Subroutines PUTBUF and PUTRET are parts 
of PUTX which are used for specific func- 
tions in some Phase 10 subroutines. PUTBUF 
is called by subroutine END MARK CHECK to 
output the buffers at the end of Phase 10 
execution. 

PUTRET is called by subroutines not 
making standard text entries (e.g., FORMAT 
statements) to the intermediate text buf- 
fers to check if a buffer area is full. 

ENTR NCE: The utility subroutine PUTX is 

referenced by 

ARITH Part 1, 

BKSP/REWIND/END/END FILE, GOTO, ARITH Part 

3, DO, SUBIF, 

READ/WRITE, CALL, FUNCTION/SUBRTN, 

CONTINUE/RETURN, STOP/PAUSE, FORMAT, END 

MARK CHECK 

OPERATION; When the translate and test 
instruction senses the first delimiter in 
the statement under consideration, that 
delimiter is placed in DELIM. PUTX then 
moves the contents of ADJ to the intermedi- 
ate text buffer area, and then moves the 
contents of DELIM to ADJ. Subroutine ARITH 
Part 1, subroutine ASF, or a keyword sub- 
routine uses a special adjective code for 
the first intermediate text entry for that 
statement. These codes are moved directly 
to ADJ. 

Subroutine PUTX is entered at different 
points depending on the information the 



calling subroutine has to enter in the 
intermediate text. One entry point exists 
in PUTX for a subroutine that has a state- 
ment number to be entered in text, a 
separate entry point exists for a subrou- 
tine that has an adjective code to be 
entered, etc. 

Subroutines SYMTLU and LABTLU place the 
address of the dictionary or overflow table 
entry in a general register. PUTX moves 
that pointer from the general register to 
the intermediate text. 

The type code is moved directly to the 
intermediate text from the mode/type field 
in the dictionary of overflow table. 

EXIT: Subroutine PUTX exits to the subrou- 
tine that called it. 

SUBROUTINES CALLED: The utility subroutine 
PUTX will reference the FORTRAN System 
Director to write the output buffers on 
tape. 



Subroutines ERROR, WARNING/ERRET: Chart CP 



Subroutine ERROR 



Subroutine ERROR creates the intermedi- 
ate text entry for an error message. 
Errors are not printed in Phase 10. 
Entries which indicate to Phase 30 that an 
error message should be printed are made to 
the intermediate text. The remainder of 
the statement in which the error occurred 
is not processed. An indicator is set in 
the Communications area so that the other 
phases of the compiler know an error has 
occurred. 

ENTRANCE: The utility subroutine ERROR is 
referenced by subroutines EXTERNAL, 
INTEGER/REAL/DOUBLE, CLASSIFICATION, ARITH 
Part 1, ARITH Part 2, ARITH Part 3, 
CONTINUE/RETURN, STOP/PAUSE , 
BKSP/REWIND/END/ENDFILE, GOTO, SUBS, SYM- 
TLU, EQUIVALENCE Part 1, EQUIVALENCE Part 
2, DO, PAKNUM, LABTLU, ASF, SUBIF, INTCON, 
READ/WRITE, FUNCTION/SUBRTN, COMMON, 
DIMENSION, DIMSUB, DIM90, END MARK CHECK, 

OPERATION: The intermediate text entry for 
an error message is the error adjective 
code, an error number which is inserted in 
the position normally occupied by a 
mode/ type code, and the internal statement 
number of the statement in which the error 
was detected. 

The error number is retrieved in an 
unusual manner. When an error condition is 
found in any of the statements processed by 
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Phase 10, a branch is taken to an instruc- 
tion in a table of branch instructions. 
Each of these branch instructions rep- 
resents a particular error message. All of 
the instructions are branch and link 
instructions to the subroutine ERROR. Sub- 
routine ERROR makes use of an address 
constant which is the address of the begin- 
ning of the branch table. 



The branch table list in Phase 
appears as follows: 

ERR1 BAL 13, ERROR 
ERR2 BAL 13, ERROR 
ERR3 BAL 13, ERROR 
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SUBROUTINES CALLED; During execution sub- 
routine ERROR references subroutine PUTRET 
to see if the intermediate text output 
buffers are full. 



Subroutine WARNING/ERRET 



Subroutine WARNING/ERRET enters a warn- 
ing or an error message in the intermediate 
text. Subroutine WARNING/ERRET attempts so 
recover and continue processing the state- 
ment, whereas subroutine ERROR goes direct- 
ly to subroutine END MARK CHECK and aborts 
the rest of the statement from the compila- 
tion. 



ERR27 BAL 13, ERROR 



The subroutine which branches to a point 
in the branch table determines the nature 
of the error, and which error message is to 
be generated. If the calling subroutine 
has determined that this is error #27, it 
will issue this instructions 

BC 15,ERR27 

When the computer executes the instruc- 
tion located at ERR27 it branches to sub- 
routine ERROR and saves the address from 
which it branched to ERROR in register 13. 
Each instruction in the branch table places 
its address in register 13, and each branch 
instruction has a particular error message 
associated with it. 

If the beginning address of the branch 
table (the address of the instruction 
labeled ERR1) is loaded as an address 
constant in subroutine ERROR, the error 
message number can be computed by subtract- 
ing the beginning address from the address 
loaded into the register by the branch and 
link instruction, and then dividing by 4. 
The length of a branch and link instruction 
is one word or 4 bytes. 

A program switch is set any time subrou- 
tine ERROR is entered. If an error has 
occurred in statements of the program writ- 
ten by the user, the compiler knows that it 
cannot compile the program properly. It 
does not generate the machine language 
coding necessary to run the object program. 
Instead, if the GOGO option is not on, 
after Phase 20 is completed, it enters 
Phase 30 which will use the error entries 
in the intermediate text to print error 
message. 

EXIT: Subroutine ERROR exits to subroutine 
END MARK CHECK. 



ENTRANCE: Subroutine WARNING/ERRET is 
entered to generate a warning message by 
subroutines CLASSIFICATION, CONTINUE/RETURN 
BKSP/REWIND/END/ENDFILE, GOTO ARITH Part 3, 
EQUIVALENCE Part 1, DIMENSION, DIMSUB, END 
MARK CHECK. Subroutine WARNING/ERRET is 
entered to generate an error message by 
subroutine DIMSUB. 

OPERATION: A warning does not force the 
compilation to be ended at Phase 20 as an 
error does. The compiler generates the 
object coding for the FORTRAN source pro- 
gram, and then calls Phase 30 to process 
the warning messages that were entered in 
the intermediate text during Phase 10. A 
warning would occur if a statement such ass 

DIMENSION , A (2 0) , B (2 , 2 , 2) 

were processed by Phase 10. The comma 
between the names DIMENSION and A is redun- 
dant. 

The same problem for error and warning 
messages processed by subroutine 
WARNING/ERRET does not develop as it did in 
subroutine ERROR. The error or warning 
message number is inserted in a register. 
The contents of the register are then 
stored in the intermediate text entry for 
that error or warning message. 

Every time subroutine WARNING/ERRET is 
entered when a warning has occurred, a bit 
is set on in the Communications area to 
indicate that at least one of the source 
statements has a condition which merits a 
warning message. If this switch is on. 
Phase 30 is called after Phase 25 has been 
completed to process any warning messages 
placed in the intermediate text. 

If subroutine WARNING/ERRET is called 
because an error has occurred, the same 
switch set by subroutine ERROR is set. 
This switch indicates to the compiler not 
to call Phase 25 to assemble the machine 
language instructions. Instead, Phase 30 



Phase 10 
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is called at the end of Phase 20 to process 
the errors. 

When an attempt is made to re-enter the 
subroutine that called WARNING/ ERRET, the 
intermediate text messages normally entered 
for errors must be saved until the state- 
ment has been completely process ed. A bit 
is set in the communications area to indi- 
cate that entries for warnings and errors 
must be made to the text. When the end of 
statement is reached, subroutine END MARK 
CHECK tests this bit and enters the entries 
for warnings and errors to the intermediate 
text after the end statement entry has been 
made to the intermediate text. 



System Director to print a line. The FSD 
will then call the I/O routine that com- 
mands the printer. 



EXIT: 



Subroutine PRINT exits to the sub- 



routine that called it. 



SUBROUTINES CALLED; During execution sub- 
routine PRINT references the FORTRAN System 
Director to print a source card. 



Subroutine GET: Chart CR 



EXIT: 



Subroutine WARNING/ERRET exits to 



the subroutine that called it. 



Subroutine PRINT: Chart CQ 



Subroutine PRINT assembles a line to be 
printed and calls the FORTRAN System Direc- 
tor to print the line. 

ENTRANCE : The utility subroutine PRINT is 
referenced by subroutine GETWD. 

OPERATION; Subroutine PRINT always prints 
the card image of the card, and the inter- 
nal statement number that has been assigned 
to this statement by subroutine CLASSIFICA- 
TION. The internal statement number has 
been assigned to this statement before it 
is processed. 

Subroutine PRINT through use of a Super- 
visor Call instruction calls the FORTRAN 



Subroutine GET reads a new card image 
and switches the buffers in the double 
buffering scheme. 



ENTRANCE: 



Utility subroutine GET is ref- 



erenced by subroutine GETWD. 

OPERATION: Subroutine GET calls the 
FORTRAN System Director to read cards. 
Control may be returned to subroutine GET 
by two exits. The first is for normal 
processing. The second exit is used if the 
last card has been read from the card 
reader. A switch is turned on signifying 
the end of file for the card reader. 



EXIT: 



Subroutine GET exits to the subrou- 



tine that call subroutine GET. 

SUBROUTINES CALLED: During execution sub- 
routine GET references the FORTRAN System 
Director to print a source card. Text is 
written for this statement. 
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***** 
*03 * 
* B3* 



*****B 3* ********* 
*GET SOURCE STMT* 

* AND PRINT * 
•X* STATEMENT * 

* VIA FORTRAN * 

* SYST DIRECTOR * 
***************** 



*****C 3 ********** 

* CLASSIFY STMT * 

* AS KEY WORD * 

* OR ARITHMETIC * 
♦STMT, OR ARITH * 

* STMT FUNCTION * 
***************** 



*****D 3* ********* 

* CONVERT STMT * 

* TO USABLE * 

* INPUT FOR * 

* SUBSEQUENT * 

* PHASES * 
***************** 



NO .* END 
,..*. STATEMENT 



*. .* 

* YES 



****F3********* 

* PHASE 12 VJA * 
♦FORTRAN SYSTEM * 

* DIRECTOR * 
*************** 



Chart 03. Phase 10 Overall Logic Diagram 
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***** 
*BB * 
* Al* 



CLASS X 

*****A 1 ********** 
*UPDATE INTERNAL* 

* STATEMENT * 
..X* NUMBER AND *. 
. * ZERO PAREN * 

* COUNT * 
4 ***************** 

**** 



*****A2******* 

* RESET * 

* SWITCHES * 
.X*TC PROCESS NEW 

* STATEMENT * 

* * 
************** 



*****D1***« ****** 
*WARNING CNA3* 
*-*—*—*—*—*—*—*—* 

* INACCESSIBLE *X. 

* STATEMENT * 

* * 
***************** 



CLAS01 X 

*****B2**** ****** 
*CETWD CCA1* 
*_*;_* _*_*_*_*_*_* ZERO 

* GET WORD OR * 

* DELIMITER * 

* * 
***************** 

• NCN 



C2 *. 
.* END *. 
OF SYMBOL *. YES 
LESS THAN .*.... 
. COLUMN .* 
*. 7 .* 
*. .* 
* NO 



D2 *. 
.* WAS *. 
YES .* LAST STMT * 
••••*GC TO. RETURN, 
*. STOP .* 



CLAS03 X 

*****E2 ********** 
*CSORN CGH1* 
*_#_*_*_*_#—#_*_» 

*CCLLECT SYMBOL *X . 



CLAS06 

*****C 3* ********* 

*LABLU CFA1* 

*-*-*-*-*-*-*-*-* 

• «.X*VERIFY STMT NO * 

* IN OVERLOW .* 

* TAELE * 
***************** 



CLAS04 X 

*****D 3** ******** 

* ENTER STMT NO * 

* POINTER IN * 

* INTERNAL TEXT * 



***************** 



CLAS05 X 

*****E3********** 

*GETWD CCA1* 

NCN*-*-*-*-*-*-*— *-*ZERO 

.....* GET WORD OR * 

ZERO* DELIMITER * 



***************** 



***************** 



X 
***** 
*CN * 
* A2* 



ERROR- 
ILLEGAL 
STATEMENT 



YES .* IS *. 
....*SYMBOL NUMERIC * 



*****G 3* ********* 

* * 

* BRANCH * 
•X* ACCORDING TO * 

* KEY WORD * 

* * 
***************** 



***** 
*BC * 
* A2* 



• * IS 


*• 


NO 




X*,DELIMITER El 


<JD. 
* 


*• • • 




*. MARK 




X 


*. •* 






***** 


*. •* 






*CN * 


* YES 






* A2* 
* * 
* 
ERROR- 
STATEMENT 
FORMATION 



*****C4 ********** 
*WARNING CNA5* 
*—*—*-*—*—*—*—*—* 

* * 

* BLANK CARD * 

* * 
***************** 



• KEYWORD CHART • 
.*** ********* *********. 

• BACKSPACE • BPA5 



* 


CALL 


". 


*BMA1* 


'• 


• 


COMMON 


• 


BTA2 


• 


• 


CONTINUE 


• 


BOA1 


• 


• 


DIMENSION 


• 


BQA3 


-• 


• 


DO 


• 


BKA3 


• 


• 


DOUBLE 


• 


BWC1 


• 


• 


END 


• 


BPA1 


• 


• 


ENDFILE 


• 


BPA3 


• 


• 


EQUIVALENCE 


• 


BRA1 


• 


• 


EXTERNAL 


• 


BVA3 


• 


• 


FORMAT 


• 


BUA2 


• 


• 


FUNCTION 


• 


BMA3 


• 


•••••••• x« 


GO 


• 


BJA1 


• 




GOTO 


• 


BJA3 


• 


• 


IF 


• 


BLB2 


• 


• 


INTEGER 


• 


BWA1 


• 


• 


PAUSE 


• 


B0A5 


• 


• 


READ 


• 


BNA1 


• 


• 


REAL 


• 


BWB1 


• 


• 


RETURN 


• 


E0A3 


• 


• 


REWIND 


• 


BPA4 


• 


• 


STOP 


• 


B0A4 


• 


• 


SUBROUTINE 


• 


BMA2 


• 


• 


WRITE 


• 


BNA2 


• 



Chart BB. Subroutine CLASS IFICATION 
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***** 
*BC * 
* A2* 



*****A2* ********* 

* SET * 

* ARITHMETIC * 

* ADJECTIVE * 

* CODE * 

* * 
***************** 



_*_*_*_*_*_*_* 



***************** 



DELIMITER 



C4 *. 

.* HAS *. 

.♦EXECUTABLE 

STATEMENT 

*.BEEN PRO-. 

*CESSED * 

*• .* 

* NO 





ARIT03 


.X. 

D2 *. 

.* *. 




NO .* 


IS *. 








X 




. EQUAL .* 


***** 




*.SIGN .* 


*CP * 




*. .* 


* A2* 




* YES 


* * 














ERROR - 








STATEMENT 








FORMATIOh 










ARITC2 


X 




*** 


**E2** ******** 




*PUTX C0A3* 




* 


PUT * 




*ARITH ADJECTIVE* 




* 


CODE * 




*** 


*****4 


t ******** 



SUBSCRIPT 



*—*—*—*—*—*—*—*—* 



***************** 



ARTT04 X 

*****F2******* 

* INDICATE * 

* AN EXECU- 

* TABLE STMT 

* HAS BE EH 

* FROCESSED * 
************** 

**** 

* * 
*EC * 

* G2* 
**** 

ARITIO X 

*****G2** ******** 
*GETWD CCA1* 
*-*-*-*-*-*-*-*-* ZERO 

* GET * 

* SYMBOL * 



***** 
*CP * 
* A2* 



ERROR- 
STATEMENT 
FORMATION 



****** 

**** 

* * 
*EC * 

* H2* 
**** 



r********** 

.NCN 
.ZERO 



*-*-*-*-*-*-*-*-* 

* COLLECT * 

* SYMBOL OR * 

* NUMBER * 
***************** 



*_*-*_*_*_ 



************ 



***** 

*BD * 
* A2* 



Chart BC. Subroutine ARITH Part 1 
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***** 
*BD * 
* A2* 



VARIAELE 
DIMEN- 
• SIONEC 



DELIMITER 



*****A4********** 

* CHANGE ( * 

* ADJ CODE * 
X* TO FUNCTION ( * 

* ADJECTIVE * 

* CODE * 
***************** 



ARIT13 ARIT11 .X. . .X. 

*****B 1 ********** B2 *• • 64 *• 

*SLBS CLA1* .* *. . .* *. 

*-*-*-*-*-*-*-*-* YES •* *• • .* HAS 

* PROCESS *X *. DELIMITER .* . *. TYPE BEEN 

* SUBSCRIPTS **.(.* . *. CHANGED . 

* * *. .* . *• •* 
***************** .,*..* . *. ,* 

* NO . * YES 

I. «.x! x!x '. 

ARIT20 .X. 

C3 *. 
.* * . 

.* BRANCH *. 
..X*. ON .* 
*.DELIMETER.« 



*****B5********** 

* * 

* SET TYPE * 
X* TO * 

* FUNCTION * 

***************** 



*****C5********* 

* CHECK 

* FOR IMPLIED 

* D.P. MODE AND 

* SET MODE 



**** 



******* 



DELIMITER 
# *********************************** 
DECIMAL PCINT 


CHART 
****************. 
BEAl 


PLUS 


BEG1 


MINUS 


BEG1 


LEFT PARENTHESIS 


BEA3 


RIGHT PARENTHESIS 


BED2 


ASTERISK 


BEC5 


EQUALS 


BEA4 


DIVIDE 


BEG4 


CONMA 


BEG4 


END MARK 


BEC4 


OTHER 


CPA2 



(ERROR-ILLEGAL DELIMETER) 



Chart BD. Subroutine ARITH Part 2 



110 



***** 

*BE * 

* A3* 

* * 



Form Z28-6620-0 
Page Revised 1/11/66 
By TNL Z28-2117 



* * 


* GET NUMBER * 

* * 


V 

***** 


***************** 


*CP * 






* A3* 
* * 








\ 
*****B1*H 


/ 

********* 


ERROR - 
ILLEGAL 
DELIMITER 


*CSORN CGA2* 
*—*—*—*—*—*—*—*-* 




* CON\ 

* NUMt 


/ERT * 
3ER * 





********* 



* INCREMENT * 

* PARENTHESIS * 

* COUNT * 

***************** 



* THIS A 

READ/WRITE 
♦.STATEMENT. 



*_*_*_*_*_*_ 



->* ENTER = SIGN * 

* INTO INTER- * 

* MEDIATE TEXT * 
***************** 



***** 
*BK * 
* C4* 



***** 
*BE * 
* C5* 



***** 
*BD * 
* C3* 



***** 
*BE * 
* D2* 



********* 

DECREMENT * 

PARENTHESES * 

COUNT * 



.* LAST *. 
SYMBOL *. 
SUBSCRIPTED. 
•VARIABLE .* 



r 



* LENGTH OF * 

LAST SYSBOL 
*. ZERO .* 



****** 
I 



_*_*_ 



* EXCESS NO. 

* OF RIGHT 

* PARENTHESES 
*************** 

I 
I 
I 



* TEST *. GT 

PAREN COUNT .* 

*.FOR ZERO .* 



***** 
*3C * 
* G2* 



IF SWITCH 



**** 

* * 

* 64 * 



*****E5********** 

* * 

* SET ADJ CODE * 



*********** 



*****<— 

*BC *' 
* G2* 



***** 

*3J * GO TO 

* A4* 



->*. ENTER ITEM 



*****Hl******* 





SET 


* 


I J IS 


ARY ADJECTIVE* 




CODE 


* 
* 


** 


********** 

1 

1 

V 
**** 

* * 

* G4 * 

* * 
**** 


**** 



*************** 



I Chart BE, ARITH Part 3 
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*****A2* ****** 

* INDICATE * 

* THAT ASF 
>* STATEMENT 

* IS BEING 

* PROCESSED * 
************** 



***** A3** ******** 

* * 

* SET TYPE * 
>* OF SYMBOL * 

* TO ASF * 

* * 
***************** 



**** 






ASF04 V 




*****B3 ********** 




*GETWD CCA1* 












* GET PAF 


> a mtt r~r* -w- 








* * 


V 


* * 


***** 


***************** 


*CP *, 




NON 


* A2* 




ZERO 


* * 
* 
ERROR- 
NO PARAMETER 


V 




*****C3*** ******* 




*CSORN CGA2* 




*—*—*—*—*—*—*-*—* 




* SEARCH THE * 




* DICTIONARY * 




* FOR SYMBOL * 




4--3t-'X"tt--X-'X"X--X-*3f--tt-4f--X--tt--X-'K--tt"& 





****B5******* 
INDICATE * 
ASF STATEMENT* 
PROCESSING IS 
COMPLETE * 
* 
************* 



ASF22 V 

*****C5********** 

* RESTORE * 

* NAMES THAT * 

* WERE DEFACED * 



*****D1 ********** 



********** 



*****E1 ********** 
*SAVE ADDRESS OF* 
*NAME AND DEFACE* 

* PREVIOUS * 

* DICTIONARY * 

* ENTRY * 
***************** 



*—*—*—*—*—*—*—*— 

* ENTER 
♦PARAMETER INTO 

* DICTIONARY 



IS THE 

PARAMETER 

. A NAME . 



*********** 



* DEFACE NAME * 

* OF PARAMETER * 

* IN DICTIONARY * 

***************** 



ERROR- 
ILLEGAL 
PARAMETER 



ASF05 

*****F3********** 

*SKPBLK CDA2* 

*—*—*—*—*—*—*—*—* 

>* GET DELIMITER * 



COMMA G3 *. 

• * *• 
.* WHAT IS *. OTHER 


*• •* 
*. .* 


V 
***** 


*• 


• * 

' ) 




*CP * 

* A2* 

* * 


ASF 11 \ 
*****H3*-s 


/ 
********* 


ERROR- 
ILLEGAL 
DELIMITER 


*SKPBLK 


CDA2* 





GET DELIMITER 



************** 



***** 
*CP * 
* A2* 



ERROR- 
ILLEGAL 
DELIMITER 



Chart BF. Subroutine ASF 
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_*—*_*_*—* 
GET WORD 



*. STATEMENT END. 



ERROR- 
STATEMENT 
FORMATION 



ERROR- 
STATEMENT 
FORMATION 



ERRCR- 
ILLEGAL 
END DO 



ERROR- 
ILLEGAL 
DELIMITER 



G0T02 X 

*****A4********** 
♦GETWD CCA1* 



***** 
*CP * 
* A2* 



*****C3* ********* 
*PLACE COMPUTED * 

* GO TO IN ADJ * 
X* AND LIBRARY * 

* ROUTINE ID * 

* IN POINTER * 
***************** 



* PUT IN * 

* INTERMEDIATE * 

* TEXT * 
***************** 



*****£ 3* ********* 

* * 
♦PLACE CONTENTS * 

* OF REGISTER *X 

* 2 IN ADJ * 

* * 
***************** 





# ^" c 




* STATEMENT 


* 


X 


* NUMBER 


* 


***** 


***************** 


*CP * 


.NON 




* A2* 


.ZERO 




ERROR- 










DELIMITER 






FOLLOWING 


X 




DELIMITER 


*****B4********** 




*LABLU CFA: 


* 











* LOOK UP * 

* STATEMENT * 

* NUMBER * 
***************** 



*—*—*—*—*—*—*-*-* 

* PLACE IN * 

* INTERMEDIATE * 

* TEXT * 
***************** 



***************** 



-*-*—*—* 



* LOOK UP * 

* STATEMENT * 

* NUMBER * 
***************** 



*****G 1 ********** 

* SET UP * 

* UNCONDITIONAL * 

* GO TO BYTE * 

* FOR ADJECTIVE * 

* CODE * 
***************** 



* PUT ADJECTIVE * 
*CCDE IN INTER- * 

* MEDIATE TEXT * 
***************** 



ERROR- 
STATEMENT 
FORMATION 



IF SWITCH 





NO .* INTEGER *. 


X 

***** 


*• •* 
*• •* 


*CP * 

* A2* 

* * 


*. .* 
* YES 


* 




ERROR- 
MODE MUST 
BE INTEGER 


GOTO 5 X 

*****H3********** 




*PUTX C0A3* 
*—*—*—*—*—*—*—*—* 




* PLACE IN * 

* INTERMEDIATE * 

* TEXT * 
***************** 



***** 
*CN * 
* D3* 



***** 
*CN * 
* A3* 



DELIMITER 



G0T03 X 

***** J4*« ******** 
♦GETWD CCA1* 



***** 

*CN * END MARK CHECK 

* B3* 



***** ERROR- 
*CP * IMPROPER 
* A2* DELIMITER 



G0T06 

*****H5* ********* 
♦WARNING CPA3* 



ENTER * 

VARIABLE IN * 

DICTIONARY * 

**************** 



_*_*_*_*_*—*_*_* 



***************** 









* VARIABLE 


* 


X 




* 


***** 


***************** 


*CP * 


• NON 




* A2* 


.ZERO 




* * 
* 
ERROR- 
STATEMENT 
FORMATION 


G0T04 X 






*****K4* ********* 




*CSORN CGA2* 











Chart BJ. Subroutine GOTO 
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PUT DO 
ADJECTIVE 
CODE IN AOJ 



GET 
STATEMENT 
NUMBER 



*ENTER STMNT NO.« 

* IN OVERFLOW * 

* TABLE * 







YE 


S 


* STMT • . 
NO. ALREADY . 
«. DEFINED .• 

*#*NO 




*CP * 
* A2* 




B 


ERROR- 
\CKWARD 


DO 


• 1 


X 

m**E2** ******* 
»UTX C0A3 


ERROR-ILLEGAL 
DELIMETER 

*CP * 
* A2* 

X 


PUT ENTRY IN 

INTERMEDIATE 

TEXT 

•••*••*••••«•« 


. NO 
Fl* **. 

** IS *• 

DELIMITER 


"•X.... 


NO 


, 


F2* *». 

IS "*. 

DELIMITER . 



DOIO 

•••••G2** 
•GETWD 



«*A4******* 
SET i 
IMMEDIATE 
INDICATOR 

FOR DO 
STATEMENT < 



ERROR- 
ILLEGAL 
DELIMETER 



* ENTER DO 

* PARAMETER IN 

DICTIONARY 



> PUT ENTRY IN 

> INTERMEDIATE 

TEXT 



•♦•F4***»**« 

RESET « 

00 AND 

IMMEDIATE 

INDICATORS 



* THREE 

PARAMETERS 
•.PROCESSED. 



READ/ 
WRITE 
STMNT 



ENTER DO 
VARIABLE IN 
DICTIONARY 



DELIMITER *. 
RIGHT .*: 
. PAREN .* 



DELIMITER 

END 

. MARK •■ 



* TWO 
PARAMETERS 

•.PROCESSED.- 



ERROR- 
IMPROPER 
STATEMENT 



•PUT DO VARIABLE* 
•IN INTERMEDIATE* 
TEXT • 
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***** 
*BL * 
* B2« 



*****B2* ********* 
*SKPELK DCA2* 
*_*_*_*-*_*_*_*-* 

* GET * 

* DELIMITER * 

* * 
***************** 



IS *. NO 
DELIMITER .*.. 

C .* 
*• • * 


X 

***** 


*• •* 

* YES 




*CP * 

* A2* 

* * 

* 


X 




ERROR- 
STATEMENT 
FORMATION 



*****D2******* 

* * 

* SET 

* IF 

* SWITCH 

* * 
************** 



*****E2******* 

* * 

* SET 

* GO TO 

* SWITCH 

* * 
************** 



*****F2** ******** 
*PUTX C0A3* 
*-*—*—*—*—*—*-*-* 

* PUT IF * 

* ADJECTIVE * 

* CODE IN TEXT * 
***************** 



X 
***** 
*BD * 
* C3* 
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CALL X 


SUBRUT X 


FUNCT .X. 








SUBR30 .X. 


•****A 1 ***• *•***• 




*****A2******* 


A3 *. 








A5 •. 


*PUTX C0A3* 






INDICATE * 












* PUT CALL » 
•ADJECTIVE CODE * 




* SUBROUTINE * 


.•* IS ** 

.....X*. THIS FIRST 


. NO 






NO .** IS **. 

»..«.•« DELIMITER .* 






BEING * 


•.STATEMENT.* 




X 


X 


• . ( .» 








COMPILED « 








• •••• 




***************** 








'•'yes 




*CP * 
* A2* 

ERROR- 


• CP * 

• A2» 

ERROR- 


*»*YES 
LLEGAL * 














HEADER CARD 


DELIMtTER 














NOT FIRST 














FUN04 X 








SUBR03 X 










*»*»«B3*»***»*»»* 






*****B5********** 


•GETWD CCA1* 








•GETWD CCA 


I* 






•PUTX C0A3* 
















» ENTER • 


» GET NAME OF *... 


..... 






• GET 






« SUBPROGRAM * 








• SUBPROGRAM 




X 




• SUBPROGRAM * 








» NAME 




*••** 




• NAME IN TEXT • 


***************** 


*CP 










• CP • 






.NON 


* A2* 




.NON 




• A 2* 






• ZERO 






.ZERO 






























ERROR- 








ERROR- 








ILLEGAL 








ILLEGAL 








SUBPROGRAM 






SUBPROGRAM 






X 


NAME 






X 




NAME 






•****C I »♦«»*•»•** 








*»«»»C3««»#»*«»*» 






•••••C5 ••**»•*••* 


•CSORN CGA2« 








•CSORN CGA2* 






•GETWD CCA1* 


* ENTER NAME • 
















ZERO«-«-«-*-*-*-»-*-» 








• ENTER NAME 

* IN DICTIONARY 


"* 






* IN DICTIONARY » 


X 


* PARAMETER • 




























*«**»***•**•***** 




•CP • 


















• A2« 


.NON 
















ERROR- 


.ZERO 
































ILLEGAL 


















PARAMETER 


X 








• X. 






NAME 


SUBR06 X 


*»#»*D1 ♦»*»**•»•* 








D3 *. 








«»««*D5«*»**»»*«« 










.• IS *. 








•CSORN CGA2* 


» SET TYPE * 
» TO * 
» SUBPROGRAM « 








.« THIS « 
*. SUBPROGRAM 
*. NAME .« 


NO 






» ENTER » 
• PARAMETER IN * 










..... 












•.VALID.* 




#»•*« 




• DICTIONARY * 


***************** 








* YES 




• CP • 
« A2* 




***************** 


X 












ERROR- 
ILLEGAL 






*BD * 












SUBPROGRAM 






* C3* 












NAME 




X 










*****E3********1 


















• INSERT 

• IMPLICIT OR 

• EXPLICIT MODE 

• IN DICTIONARY 


* 






•SKBLK CDA2« 

* GET • 

• DELIMITER • 



*****F 3**** *****■. 

• INSERT NAME * 

• INTO < 
•COMMUNICATIONS < 

• REGION i 



ERROR- 
DELIMITER 
ERROR 

SUBR09 X 

•••••G5*«»«- 
•GETWD 
ZERO»-»-« -•-»-• 

• GET 

X • END 
•*••* * MARK 
•CN • •••-■- 
« B3* .NON 

« • .ZERO 

END MARK CHECK 



FUNIO X 

**«**J2*«***«* 

• INSERT 

• FUNCTION 
« ADJECTIVE 

• CODE 



SUBR20 X 

*«***J3««*****< 
» INSERT 

• SUBROUTINE 

* ADJECTIVE 
« CODE 
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* SET UP READ 

* ADJECTIVE 
« CODE 

* 
*************** 



SET UP WRITE * 

ADJECTIVE * 

CODE * 

* 

**************** 



****B 1 ******* 
INDICATE * 
READ/WRITE * 
STMT IS BEING 
PROCESSED * 
FOR ARITH * 
************* 



*_*-*_*- 



-*-*-*-* 



DELIMITER 



***E i********** 
ETWD CCA1* 
*-*-*-*-*-*-*-* 2 ERO 

GET DATA * 

SET REFERENCE * X 

NUMBER * ***** 

*************** *CP * 

.NON * A2* 

.ZERO * * 



ERROR- 
LEFT PAREN 
MISSING AFTER 
READ/WRITE 



ERROR- 
ILLEGAL 
DELIMITER 



* ENTER DATA * 

* SET REF NO. * 

* IN DICTIONARY * 
***************** 



DELIMITER 



YES 


*****H2********** 

* CHANGE * 

* ADJ CODE * 
...X* FROM BCD *.... 

* TO * 

* BINARY * 
***************** 


*****H3********** 
*PUTX C0A3* 
*-*-*-* -*-*^*-#-* 






* CODE * 

* * 
***************** 


X 
***** 
*BC * 
* G2* 



IS 
ELIMITER 
COMMA . 



***** 
*CP * 
* A2* 



ERROR- 
ILLEGAL 
DELIMITER 



READ1 

*****J2«* ******** 
*PUTX CCA3* 



-*-*-*-*- 





. ..* PUT FORMAT * 


X 


* STMT NO. * 


***** 


* IN TEXT * 


*BC * 


***************** 


* G2* 


X 



***** 
*CP * 
* A2* 



X* PUT ADJ * 

* CODE, TYPE * 

* AND POINTER * 
***************** 



*****K2** ******** 

*GETWD CCA1* 

ZERO*-*-*-*-*-*-«-*-*NCN 

.....* GET * 

* FORMAT *ZERO 

* STATEMENT NG. * 
***************** 



* ENTER FORMAT *. 

* STMT NO. IN * 
♦OVERFLOW TABLE * 
***************** 



*_#_*_*_*_*_*_*_# 
X* *. 

* GET * 

* DELIMITER * 
***************** 



DELIMITER 



***** 
*CP * 
* A2* 



ERROR- 
ILLEGAL 
DELIMITER 



* ERROR-ILLEGAL DELIMITER 
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***** 
*B0 * 
* A4* 



***** 
*B0 * 
* A5* 



CONT X 

*****A l********** 

* SET UP * 

* CONTINUE * 

* ADJECTIVE * 

* CODE IN ADJ * 

* * 
***************** 



RETURN X 

*****A 3*** ******* 

* SET UP * 

* RETURN * 

* ADJECTIVE * 

* CODE IN ADJ * 

* * 
***************** 



STOP X 

*****A4********** 

* SET UP * 

* STOP * 

* ADJECTIVE * 

* CODE IN ADJ * 

* * 
***************** 



PAUSE X 

*****A5 ********** 

* SET UP * 

* PAUSE * 

* ADJECTIVE * 

* CODE IN * 

* ADJ * 
***************** 



.* DID *. 
.♦THIS STMNT * 
♦.HAVE A STMNT 



*-*-*-*-*-*-*-*-* 
X* NO STMT NO. * 

* FOR CONTINUE * 

* STATEMENT * 
***************** 



CONT1 X 

*****C l********** 
*GETI*D CCAl^ 
*_*_*-*-*_*-*-#-*IMON 

* GET *.... 

* END ♦ZERO 

* MARK ♦ 
***************** 

.ZERO 



*-*-*-*-*-*-*-*-* 



***************** 



X PAUSEA 
*****C4********** 
♦GETWD CCA1* 
*-*-*-*-*-*-*-*-* ZERO 

♦ GET NUMBER, ♦ 

♦ IF PRESENT ♦ 

♦ * 
***************** 

• NON 
.ZERO 



***** 
*CN * 
* B3^ 



_*_*_*_*_ 



_#_*_*_* 



*************** 



***************** 



*****E1 ********** 

* SET POINTER ♦ 

* AND ♦ 

* TYPE TO ♦ 

* ZERO ♦ 

* * 
************* 



*** 



*-*-*—*-*-*-*-*-* 

* PACK * 

* NUMBER * 

* INTO POINTER * 
***************** 



*-*-*-*-*-*-*-*-* 

* PUT * 

* ADJECTIVE * 

* CODE ♦ 
***************** 



PAUSE1 X 

*****P4********** 
*PUTX C0A3^ 
*-*-*-*-*-*-*-*-* 

♦ PUT ADJECTIVE ♦ 

♦ CODE IN ♦ 

♦ TEXT ♦ 
***************** 



***** 
*CN * 
♦ D3^ 



***** 
*CN * 
♦ A3^ 
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***** 
*BP * 
♦ Al* 



***** 
*BP * 
* A3* 



***** 
*BP * 
* A4* 



***** 
*BP * 
* A5* 



*-*-*-*-*-*-*- 



ENDFIL X 

***** A3 ********** 

* SET UP * 

* END FILE * 
...X* ADJECTIVE * 

* CODE IN ADJ * 

* * 
***************** 



REWIND X 

*****A4** ******** 

* SET UP * 

* REWIND * 

* ADJECTIVE * 

* CODE IN ADJ * 

* * 
***************** 



*****A5 ********** 

* SET UP * 

* BACKSPACE * 

* ADJECTIVE * 

* CODE IN ADJ * 

* * 
***************** 



X.X 

ENDFL1 X 

*****B4********** 
*GETWD CCA1* 
*-*-*-*-*-*-*-*-* ZERO 

* GET DATA *........ 

* SET REF * X 

* NUMBER * ***** 
***************** *CP * 

.NON * A2* 

. * * 



*****C1 ******* 

* INDICATE * 

* END OF PROG 

* IS REACHED 



************** 



DANGLE X 

*****C2********** 
♦WARNING CPA3* 



it*************** 



ERROR- 
IMPROPER 
STATEMENT 
FORMATION 



* ENTER DATA * 

* SET REF NO. * 

* INDICTIONARY * 
***************** 



END1 X 

*****D1 ********** 

* SET ADJ CORE * 

* TO END. * 
*ZERO MODE/TYPE * 

* AND * 

* POINTER * 
***************** 



* PUT ADJ CODE * 

* AND DICT ADDR * 
*OF UNIT IN TEXT* 
***************** 



*—*—*—*—*—*—*—*—* 

* PUT END * 

* ADJECTIVE * 

* CODE IN TEXT * 
***************** 



***** 
*CN * 
* B3* 
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***** 
*BQ * 
* A2* 



***** 
*CP * 
* A2* 



ERROR- 
SEQUENCE 
ERROR 



IM01 X 

*****A3********** 
*GETWD CCA1* 
*-*-*-*-*-*-*-*-* 2 ERO 

* GET VARIABLE * 



***************** 




NON 


**** 


ZERO 






*BS *.X 




* E3* 




**** 




DIM31 X 


*****B3********** 


*CSORN 


CGA2* 



* ENTER * 

* VARIAELE IN * 

* DICTIONARY * 
***************** 



DIM34 X 

*****C3********** 
*SKPBLK CDA2* 



X* CHECK * 

* REDUNDANT * 

* COMMA * 
***************** 



* GET DELIMITER * 

* * 
***************** 



DIM32 X 

*****D2** ******** 
*DIMSUB CMB2* 
*-*-*-*-*-*-*-*-*OIMENS ION 

* PROCESS *X * 

* CIMENSION * 

* INFORMATION * 
***************** 



D3 *. 

.*DIMEN- *. 
.* SION EX- 
PLICIT SPEC. 
*. COMMON 
*.STMT .* 



EXPLICIT 
* X 

SPEC 



HAS 

MODE BEEN 

. DEFINED . 



***** ERROR- 
*CP * MULTIPLE 
* A2* DEFINITION 



***************** 



NCN*- 
•••••* 

ZERO* 



• • •*• 


DELIMITER 


*. COMMA 




*• •* 


X 


*• •* 


**** 


* NO 




. 


A3 * 


. 


* 


X 


**** 


***** 




*CN * 




* Bl* 




* * 



CHANGE SIZE 

OF ARRAY 

IN DICTIONARY 



********** 



h****** 



*****F4******* 

* SET MODE 

* DEFINED 

* BIT IN 

*' DICTIONARY 

************** 



*****G4******** 

* ENTER NEW 

* MODE IN 

* DICTIONARY 

* ENTRY 
* 
*************** 

**** . 



*****F5********** 

* CHANGE * 

* DIMENSION * 
.* INFORMATION * 

* IN OVERFLOW * 

* TABLE * 
***************** 



*BQ * 
* H4* 
**** 
DIM33 



DELIMITER 
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* A4 * 

* * 
**** 



.X. 
Al *. 

.* HAS *. 
♦EXECUTABLE 

STATEMENT 
*.BEEN PRO-. 

*CESSED * 

\*"yes 



*****A2* ****** 

* INDICATE NC* 

* SUBSEQUENT * 
•X*DIMENSION STMTS* 

* ARE TO BE « 

* PROCESSED * 
************** 



EQU09 X 

*****A4 ********** 

* PUT * 

* INFORMATION * 
...X* INTO * 

* EQUIVALENCE * 

* TEXT * 
***************** 



_*_*_*_*_ 



***************** 



*****C2********** 

* INITIALIZE * 

* REGISTERS * 
X* AND * 

* COUNTERS * 

* * 
***************** 



DELIMITER 



EGU05 X 

*****E2********** 
*GETI»D CCAl* 
*-*-*-*-* -*-*-*-* ZERO 



* GET VARIABLE 

* 

**************** 
• NCN 
.ZERO 



CHECK *X 
REDUNDANT * 
COMMA * 
************** 



IS 


*« 


YES 


* 




DELIMITER 




*• ■ • « 


X* 


E2 


COMMA 


* 




* 




* • • * 








**** 



*****D4** ******** 

* PUT ELEMENT * 

* COUNT INTO * 

* EQUIVALENCE * 

* TEXT AND * 
♦ADJUST POINTER * 
***************** 



_*_*_*_*_*_*_ 



^NCN 
'ZERO 



*****F2********** 

* INCREMENT * 

* ELEMENT * 

* COUNT FOR * 

* THIS GROUP * 

* * 
***************** 


F3 *. 
• * *• 
NO .* *. 
...*. ( .* 

• *• .* 

• *• •* 
X *. .* 




***** 


* 




*CN * 

* CI* 

* * 




X 
*****G2* ********* 


RC0MA2 X 

*****G3*** ******* 


*CSORN CGA2* 


♦WARNING CPA3* 


* ENTER * 

* VARIABLE IN * 

* DICTIONARY * 
***************** 


* MISSING * 

* COMMA * 

* * 
***************** 







X 
*****G4** ******** 
*GETWD CCAl* 
*-*-*-*-*-*-*-*-*NON 




* *ZER( 

* * 
***************** 


) X 
***** 
*CP * 


.ZERO 


* A2* 
* * 


X 
**** i 

* * 


* 

ERROR - 

)ELIMITER 

ERROR 



*-*-*-*-*-*-*-*-* 
* GET DELIMITER * 



************* 



EQUC3 X 

*****J2** ******** 

* INSERT SIZE * 

* OF ARRAY OR * 

* SIZE CF * 

* VARIABLE * 

* IN TEXT * 
***************** 



EGU10 
YES . * 



***** 

*BS * 
* A3* 



VARIAELE .*....X* A4 * 
*DIMENSICNED* * * 
*. .* **** 
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***** 
*BS * 
* A3* 



***** 
*CP * 
* A2* 



EQU20 X 
*****B 3* ********* 
*GETWD CCAL* 
*_*_*_*_*_*_*_#_* 2 ERO 
.X* GET *.... 

* PARAMETER * 

* * 
***************** 

• NON 
.ZERO 



ERROR- 

DELIMETER 

ERROR 



ERROR- 

DELIMETER 

ERROR 



-*—*-*—*—* 



*********** 



*****D3*** 



***************** 



*****E3********** 

* * 

* INCREMENT * 

* SUESCRIPT * 

* COUNT * 

* * 
***************** 



_*_*_*_* 



***************** 



***** 
*CP * 
* A2* 



ERROR- 
ILLEGAL 
DELIMETER 





YES .* SUESCRIPT 




....*. COUNT 


X 


*. =1 


***** 


*. .* 


*ER * 


*. .* 


* A4* 


* NO 





YES 


.* SUBSCRIPT *. 


NO 








. COUNT EQUAL . 
*NO. OF DIM * 






X 






X 


***** 




*• •* 




***** 


*BR * 




*• •* 




*CP * 


* A4* 




* 




* A2* ERROR- 


* * 








♦ ^SUBSCRIPT 


* 








* ERROR 
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Form Z28-6620-0 
Page Revised 1/11/66 
By TNL Z28-2117 



.STATEMENT IN .* — 
♦.SEQUENCE .* 
*. .* 


1 

V 
***** 


*. .* 
* YES 
| 


*CP * 

* A2* 

* * 




* 


1 

I 


ERROR- 
SEQUENCE 
ERROR 



I 

V 
***** 


-*. DELIMITER 
*. BLANK 
* m .* 


*CP * 

* A2* 

* * 


*• 
i 


.* 
* YES 


* 






ERROR- 
DELIMITER 
ERROR 







*****C2* ****** 

* INDICATE TO* 

* SUBR DIMENSIN* 

* THAT THIS IS * 

* A COMMON * 

* STATEMENT * 
************** 



*****TO SUBROUTINE 
*BQ * DIMENSION 
* A3* 



*****FROM SUBROUTINE 
*BT * DIMENSION 
* F2* 



ERROR 
COMMON 
TEXT FULL 



VARIABLE 
RESERVED 
WORD « 
*. •* 


*. 

* 


YES 

* 


V 
***** 


*. 


• * 

*■ NO 






*CP * 
* A2* 
* * 
* 
ERROR INVALID USE 
OF RESERVED 
WORD 



*****H 2*** ******* 

* ENTER * 

* DICTIONARY * 

* POINTER AND * 
*NAME LENGTH IN * 

* COMMON TEXT * 
***************** 



* H4* 

* * 

* 

DIMENSION 
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***** 
*BU * 
* A2* 



FORMAT V 

*****A2* ********* 

* OVERLAY END * 

* MARK SET BY * 

* GETWD SET * 

* END MARK IN * 

* COLUMN 72 * 
***************** 



B2 *. 

.* DID *• 
* STATEMENT *. NO 

HAVE A STMT .* 

*. NUMBER .* 



FMTWRN 

*****B3 ********** 

♦WARNING CPA3* 

*-*-*-*-*-*-*-*-* 

>* NO STMT NO. * 

* ON FORMAT * 

* STATEMENT * 
***************** 



*****C2* ********* 

* TYPE * 

* STATEMENT * 

* NUMBER * 

* AS FORMAT * 

* * 
***************** 



FMT1 V 

*****D2* ********* 
*PUTX C0A3* 
*—*—*—*-*—*—*—*—* 

* PUT FORMAT *< 

* ADJ CODE IN * 

* INTERMED TEXT * 
***************** 



FMT2 V 

*****E2* ********* 
*PUTX C0A3* 
*—*—*-*—*—*—*—*—* 
>* PUT NEXT *<- 

* CHARACTER * 

* IN TEXT * 
***************** 



*****E 3*** ******* 

* ADJUST INPUT * 

* POINTER TO * 
-* COLUMN 7 OF *< 

* THE CARD * 

* * 
***************** 



REPEM 

*****E4* ********* 

* OVERLAY END * 

* MARK SET BY * 
* GETWD. SET * 

* END MARK IN * 

* COLUMN 73 * 
***************** 

A 



I 

I 

*****F 1********** 

* UPDATE * 

* INPUT AND * 

* OUTPUT *< 

* POINTERS * 

* * 
***************** 



F2 *. 

NO .** ' WAS 

*. CHARACTER 

*.END MARK . 

*• .* 

*. .* 



FMT3 

*****F 3*** ******* 
*GET CRA3* 
*—*—*—*—*—*—*—*—* 
>* GET NEXT *- 

* CARD * 

* * 
***************** 



YES 
.*. 
F4 *. 
.* IS *. 
.* THIS A *. 
->*. CONTINUATION .* 
*. CARD .* 
*. .* 
*. .* 
* NO 



*****G4* ********* 

* ADJUST * 

* OUTPUT * 

* POINTER TO A * 

* FULL WORD * 

* BOUNDARY * 
***************** 



***** 
*CN * 

* D3* 
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***** 
*BV * 
* A3* 



EXTERN .X. 

A3 *. 

.* HAS *. 

.♦EXECUTABLE *. 

♦STATEMENT BEEN 

♦.PROCESSED.* 

♦. .* 

*. .* 

* NO 



*****ERROR- 
*CP *SEQUENCE 
♦ A2*ERR0R 



EXTOl X 

*****B3********** * 
*GETWD CCA1* 
*-*-*-*-*-*-*-*-* ZERO 

..X* GET NEXT * 

* SYMBOL ♦ 

* * 
***************** 

• NON 

• ZERO 



EXT1 X 

*****C 3* ********* 
*CSORN CGA2* 
*—*—*—*—*—*—*—*—* 

* ENTER SYMBOL * 

* IN DICTIONARY * 

* * 
***************** 



*****B4********** 

*RCOMA CNA1* 

*-*-*-*-*-*-*-*-* 

X* CHECK ♦ 

* REDUNDANT * 

* COMMA * 
***************** 



D3 *. 
.* IS * 
* SYMBOL 
A CONSTANT 


'*. 

.* 


YES 
* • • • 




♦ . 

*. .* 




X 
***** 


* • •* 
* NO 






*CP * 
* A2* 
* * 
* 
ERROR- 
IMPROPER 
SYMBOL 



E3 *. 

.* HAS * 
.* TYPE 
*. BEEN 
*. DEFINED 
*. .* 


*. 

.* 


YES 
* • . . 






X 
***** 


* • •* 

* NO 






*CP * 
* A2* 
* * 
* 
ERROR- 
MULTI-DEFINED 
SYMBOL 



*****F 3*** ******* 

* SET TYPE TO * 

* EXTERNAL NAME * 

* AND SET BIT * 

* INDICATING AN * 

* ESD CARD * 
***************** 



*****G3* ********* 

*SKPBLK CDA2* 
•*_*_*_*_-*_#_*_*_# 

* GET * 

* DELIMITER * 

* * 
***************** 



EXT2 
YES . 



IS *. 

DELIMITER .* 
. COMMA .* 



X 
***** 
*CN ♦ 
* D2^ 
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**** 



*BW ♦... 

* Al* 
**** . 

INTGER X 

*****A1 ********** 

* INDICATE * 

* INTEGER MODE * 

* FOR THIS *. 

* STATEMENT * 

* * 
***************** 

**** 

* * 

*Bto *••• 

* EI* • 
**** . 

REAL X 

*****B1 ********** 

* INDICATE * 

* REAL MODE * 

* FOR THIS *. 

* STATEMENT * 

* * 
***************** 

**** 

* * 
*BM *••• 

* CI* 
**** . 

DOUBLE X 

*****C 1 ********** 

* INDICATE * 

* DOUBLE * 
♦PRECISION MODE * 

* FOR THIS * 

* STATEMENT * 
***************** 



*****D1 ********** 

* GETVKD CCA1* 
ZERO*-*-*-*-*-*-*-*-* 

* GET * 

* NEXT * 

* SYMBOL * 
***************** 

NON 
ZERO 



IS IT 
PRECISION 



REAL1 .*. 

B2 *• 

.* DOES *. 
.* STATEMENT 
..X*. HAVE STMT 
*. NO. 



*****B 3 ******* 

* SET UP TYPE* 
t. NO * INDICATION * 

.* X*FOR SUBROUTINE 

*■ X * FUNCTION/ * 

* SUBRTN * 
************** 



*****C2**** ****** 
♦WARNING CPA3* 
*-*-*-*-*-*-*-*-* 

* STMT NO ON *• 
*A SPECIFICATION* 

* STATEMENT * 
***************** 



B4 


*• 






.* HAS *• 






.♦EXECUTABLE *. 


YES 




•••••••• X*STATEMENT BEEN 


*• • • 




*. PROCESSED.* 




X 


*• •* 




***** 


*. .* 




*CP ♦ 


* NO 




♦ A2* 
♦ * 








* 








ERROR- 








SEQUENCE 








ERROR 


X 






*****C4** ******** 




*GETWD CCA1 


♦ 




*-*-*-*-*-*-*-*- 


■♦ZERO 


* GET NEXT 


♦ • • • 




* SYMBOL 


* 


X 


* 


* 


***** 


***************** 


*CP * 


• NON 




* A2* 




• ZERO 




* * 
* 
ERROR- 
ILLEGAL 
DELIMITER 


• X. 






D4 *. 






.* IS *. 






•*THIS SYMBOL*. 


YES 




*• THE WORD « 


♦ • • • i 




♦•FUNCTION* * 




X 


*• •* 




***** 


*. .* 




*BM * 


* NO 




* A3* 



TO SUBROUTINE 
FUNCTION/SUBRTN 



X 

***** 
*CP * 
* A2* 



*****E4 ******* 

♦ INDICATE TO^ 

♦ SUBR DIM. ♦ 

♦ THE TYPE OF 

♦ STMT BEING ♦ 

♦ PROCESSED ♦ 
************** 



X 
***** 
♦BS ♦ 
* B3^ 



ERROR- 
STATEMENT 
FORMATION 



TO SUBROUTINE 
DIMENSION 
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INDICATE 
PHASE 10 IS 
IN CONTROL 



******B 3 *********** 

* REWIND * 

WORK 

* TAPES * 

************* 



*****C 3*** ******* 

* * 

* SETUP I/O * 

* BUFFER * 

* CONSTANTS * 

* * 
***************** 



*****03********** 

* MOVE * 
♦ENTIRE RESIDENT* 

* DICTIONARY * 

* ABOVE BUFFERS * 

* * 
***************** 



*****E3********** 

* RELOCATE * 

* POINTERS IN * 
X*DICTIONARY AND * 

* THUMB INDEX * 

* * 
***************** 



.* ARE *. 

. ALL CHAINS 
♦•RELOCATED,* 



*****G3 ********** 

♦ SET UP * 
•COMMUNICATIONS * 
♦AREA INDICATORS* 

♦ AND ADDRESS ♦ 

♦ CONSTANTS * 
***************** 



• ♦•♦•^♦♦♦♦♦♦♦**» 

* SET UP ♦ 

♦ REGISTERS ♦ 

* FOR I/O AND * 

♦ TABLE ♦ 

♦ POINTERS ♦ 
***************** 



*****J3********** 



************** 



***** 

*BB ♦ 

♦ Al* 

* * 
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***** 




*cc * 




* Al* 




**** * * 




* * * 




* Al *.X. 




* * • 




**** . 




GETWD .X. 




Al * , 








• * 




..X*. CHARACTER 


*. BLANK 





*****B l ********** 



**** ****** 



****A2** ******** 

SAVE POINTER * 

FCR LENGTH * 

CALCULATION * 

* 

**************** 



*****B2********** 

* TRANSLATE * 

* AND * 

* TEST * 

* * 
***************** 



************* 



****E1 ********* 

* MORMAL * 

* RETURN * 

* * 
*************** 



.X. 




READ 


02 *. 




*****D3********* 


.* IS * 




*GET CRA3 


.* DELIMITER 


*. YES 


*—*—*—*—*—*—*—*— 


AN END 


•*.... 


....X* FETCH 


*. MARK 


* 


X * NEXT CARD 


*. .* 




• * 


*• •* 




. **************** 


* NO 






**** . 






* . 






E2 *.X. 






* • 






**** . 






.X. 




Itstsw .X. 


E2 *. 




E3 *. 


.* * 




.* *. 


.* WAS 


*• 


.* LIST *. 


LENGTH 


.* 


*. REQUESTED 



****F2********* 
* 

* ZERO RETURN 
* 

*************** 



*****E4********** 

*PRINT CQA3* 

*—*—*-*-*—*—*—*-* 

X* PRINT SOURCE * 

* CARD AND ISN * 

* * 
***************** 



NCRMCC 

*****H2********** 

* SET COLUMN 6 * 

* TO BLANK * 

* AND POINTER *X 

* TC COLUMN 1 * 

* * 
***************** 



SETEM X 

*****G3********** 

* PLACE END * 

* MARK AFTER * 

* STATEMENT * 

* TEXT * 

***************** 



*****J3********** 

* * 

* SET REGISTER * 

* 2 TO BLANK * 

* (DELIMETER) * 

* * 
***************** 



*****K3 ********** 

* SET COLUMN 6 * 

* TO BLANK AND * 

* POINTER TO *. 

* COLUMN 6 * 

* * 
***************** 



**** 

* * 

* Al * 

**** 



****K5 ********* 

* NORMAL * 

* RETURN * 

* * 
*************** 
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***** 

*CD * 

* A2* 

* * 



.* IS *. NO 

..X*. DELIMITER A .*... 

*. BLANK .* 

*. .* 

*. .* 

* YES 



*****B2**** ****** 
*GETWD CCA1* 

.* * 

ZERO* GET DELIMITER * 

* * 

***************** 

• NCN 

• ZERO 



X 
***** 
*CP * 
* A2* 



ERROR- 
DELIMITER 
ERROR 



****A3********* 

* * 
•X* RETURN * 

* * 
*************** 



***** 
*CD * 
* B4* 



SKPTEM X 

*****B 4* ********* 
*GETWD CCA1* 
*—*-*-*-*-*-*-*-* NCN 

• • X* * • • • 

* GET SYMBOL *ZERO 

* * 
***************** 

• ZERO 



NO .* IS *. 
...*. DELIMITER END.* 
*. MARK .* 



****04********* 

* * 

* RETURN * 

* * 
*************** 
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***** 
*CE * 
* A2* 



SYMTLU .X. 

A2 *. 
.* IS *. 
.* LENGTH OF *. YES 




*. GT 11 .* 
*. .* 


X 
***** 


*. .* 
* NO 
#*** . 


*CP * 

* A2* 

* * 


* * , 


* 


*CE *.X. 
* E2* 
**** . 
SYM11 X 

*****B2** ******** 


ERROR- 
ILLEGAL 

NAME 


* GET * 

* PROPER CHAIN * 

* IN THUMB « 

* INDEX * 





***************** 



SYM2 
YES . 



THIS THE 
END OF 
. CHAIN 



*****0 3**** ****** 

* * 

* LOCATE * 

* NEXT ENTRY * 

* IN CHAIN * 

* * 
***************** 



***** 
*CP * 

* A2*ERR0R- 
* * TOO MANY 
* SYMBOLS AND 
STMT. NOS. 



SYM4 X 

«****F2** ******** 

* ENTER * 

* SYMBOL * 

* INTO THE * 

* DICTIONARY * 

* * 
***************** 



*CP * 

* A2*ERR0R- 
* * ILLEGAL 

* NAME 



*****H2** ******** 

* * 

* MAKE ADDRESS * 

* CF ENTRY * 

* AVAILABLE TO * 

* CALL ROUTINE * 
***************** 



#***J2* ******** 

* * 

* RETURN * 

* * 
*************** 
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***** 
*CF * 
* A4* 



LABLU X 

*****A1********** 
♦PAKNUM CFA4* 
*_*_*_*_*_*_*_*_* 

* PUT STATEMENT * 

* NUMBER INTO * 

* PACKED FCRM * 



*****B 1 ******* 

* INDICATE * 

* STATEMENT 

* NUMBER IS 

* BEING 

* PROCESSED * 
************** 



*****C l********** 

* SELECT * 

* CORRECT * 

* CHAIN IN * 

* OVERFLOW * 

* TABLE * 
***************** 



*_*_*_*_*_*_*_*_* 

* VERIFY STMT * 

* NO IS IN * 
♦OVERFLOW TABLE * 
***************** 



*****E i ******* 

* RESET * 

* STATEMENT 

* NUMBER 

* INDICATION 

* * 
************** 



****F 1********* 

* RETURN * 

* * 
*************** 



PAt 


CN 


UM 


.X. 
A4 *. 
* IS 






• * 


LENGTH 




* 




GREATER 






*. 


THAN 5 



.♦ ARE *.YES 
*ANY CHARACTERS .... 
♦ALPHABETIC * 



***** 
*CP * 
* A2* 



ERROR - 

ILLEGAL 
STATEMENT NUMBER 
OR HALT NUMBER 



*****D3********** 

* * 

* GET PROPER * 

* CHAIN IN * 

* THUMB INDEX * 

* * 
***************** 



* PACK * 

* THE * 

* NUMBER * 

* * 
***************** 



****D4 ********* 

* * 

* RETURN * 

* * 
*************** 



LAB2 
YES . 



THE END 

OF 

CHAIN 



* LOCATE * 
X* NEXT ENTRY * 

* IN CHAIN * 

* * 
***************** 



TABLES .*... 
OVERLAP .♦ 
• .♦ 


X 
***** 




*• • ♦ 

* NO 




*CP * 

* A2* 

* * 










* 




> 


< 


ERROR - 
TOO MANY ENTR 
IN DICTIONARY 
AND OVERFLOW 


IES 
TABLE 



LAB4 

*****H3********** 
*ENTER STMT NO, * 

* SUBSCRIPT, OR * 
♦DIMENSION INFO * 

* INTO OVERFLOW * 

* TABLE * 
***************** 



*****j 3*** ******* 

* MAKE ADDRESS * 

* OF ENTRY * 

* AVAILABLE TO * 

* CALLING * 

* ROUTINE * 
***************** 



****K 3* ******** 

* * 

* RETURN ♦ 

* * 
*************** 
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***** 
*CG * 
* A2* 



.* WHAT 
IS FIRST 
*. CHARACTER. 



SCRN1 

*****A3********** 

♦LITCON CHA2* 

IC *-*-*_*_*-*-#_*-* 



********** 



.* IS THIS * 
.X*.OATA SET REF 
*. NUMBER .* 



X* ENTER INTO 

* DATA SET REF 

* NO. CHAIN 
*************** 



INSERT * 

IMPLIED * 

MODE * 

* 

**************** 



*****B2 ********** 
*SYMTLU CEA2* 
*-*-*-*-*-*_*-*_# 

* ENTER SYMBOL * 

* INTO * 

* DICTIONARY * 
***************** 



THIS 

NEW 

ENTRY 



THIS 

DO 
PARAM 



*****C3******* 

* INDICATE * 

* IMMEDIATE DO 

* PARAMETER IS 

* BEING 

* PROCESSED * 
************** 



****B5 ********* 

* * 

* RETURN * 

* * 
*************** 

**** 

* * 

* C5 «... 

* * . 
**** . 

.S0RN6 X 

*****C5********** 

*SYMTLU CEA2* 

*—*—*-*—*—*—*—*—* 

X* ENTER * 

* CONSTANT IN- * 

* DICTIONARY * 
***************** 



*****02** ******** 

* GET * 

* DICTIONARY * 

* POINTER *. 

* OF THE * 

* SYMBOL * 
***************** 



****03* ******** 

* * 

* RETURN * 

* * 
*************** 



*****-D5 ********** 

* INSERT MODE * 

* OF CONSTANT * 

* IN DICTIONARY * 

* ENTRY * 

* * 
***************** 



***** 
*CG * 
* F2* 



*****E5 ******* 

* * 

* SET * 

* MODE AND TYPE 

* CHANGED * 

* BITS * 
************** 



***** 
*CP * 
* A2* 



*-*-*-*-*-*-*-*-* 
X* CONVERT *. 

* THE * 

* NUMBER * 
***************** 



NUMBER 

AN 
INTEGER 



****F5 ********* 

* RETURN * 

* * 
*************** 



***** 
*CP * 
* A2* 
* ERROR - 
PARAMETER 
NOT AN 
INTEGER 



ERROR - 

PARAMETER 

NOT A NUMBER 





YES 


• * 

*« 


NUMBER *. 


X 
***** 




ZERO .* 
*• •* 


*CP * 
* A2* 

* * 






*• •* 
* NO 


* 








ERROR - 

ZERO 
UBSCRIPT 










* 


X 
****H4 ********* 




* 

* 




RETURN 




*************** 
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***** 
*CH * 
* A2* 



***** 
*CH * 
* A3* 



LITCCN X 

*****A2* ********* 

* INITIALIZE * 

* REGISTERS * 

* AND * 

* SWITCHES * 

* * 
***************** 



NXTBYT X 

***** A3*** ******* 

* * 

* INCREMENT * 

* SCAN *X 

* POINTER * 

* * 
***************** 



CKDIGT 


• X. 




B2 *• 


• 


* IS 


.* 


THIS 


*• 


A LEGAL 


*. 


DIGIT 



X 

***** 

*CI * 

* Al* 

* * 



C2 *. 

.* *• 
.* IS *. YES 
*. OVERFLOW FLAG.*.... 
*. SET .* 
*. .* 
*. .* 
* NO 



MFYADD X 

*****D2** ******** 

* MULTIPLY * 

* PREVIOUS * 

* NUMBER BY * 

* 10 AND * 

* ADD DIGIT * 
***************** 



E2 *. 
.* *. 

IS *. YES 
NO. GT .*.... 

.<2**56)-l.* 
*• •* 



*****C3* ********* 

* INCREMENT * 
♦OVERFLOW COUNT * 

•X* IF E OR D * 

* INDICATOR * 

* NOT SET * 
***************** 



**** 

K « 

* A3 * 



NO 



*****E3**** ****** 

* * 

* SET * 
<* OVERFLOW * 

* FLAG * 

* * 
***************** 





CKDCPT .X. 




X 




F2 *. 




*****F 3* ********* 




.* *. 




*WARN CPA3* 




.* *. 


NO 


*-*-*-*-*-*-*-*-* 




*• DECIMAL .*.... 


* TOO MANY * 




*. INDICATOR.* 


# 


* DIGITS IN * 




*. SET .* 


• 


* NUMBER * 




*. .* 


X 


***************** 




* YES 


**** 


. 






* * 


. 






* A3 * 


. 






* * 


X 






**** 


**** 
* * 




• X. 




* C3 * 




G2 *. 




* * 


**** 


• * *• 




**** 


*'. 


YES .* E OR D *. 






A3 *X 


....*. INDICATOR .* 




* 


*. SET .* 






**** 


*. .* 







*****H2** ******** 

* * 

* INCREMENT * 

* DECIMAL * 

* COUNT * 

* * 
***************** 



X 
**** 



* A3 * 

* * 
**** 
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***** 
*ci * 

* Al* 
* * 



CKCHAR .X. 

Al *. 



.* 
*. .* 
* NO 



• X. 
Bl *. 



NO .* 

...*. E OR D 



A2 # **. 

.* IS *. 

.* DECIMAL *. NO 

INDICATOR .*... 

*. SET .* 

*. .* 

*• • * 



X 
***** 
*CP * 
* A2* 



. .* 

* YES 



CKEIO .X. 

CI *. 
.* IS *. 
.* NEXT 
*. CHARACTER 



ERROR- 
TOO MANY 
DECIMAL 
POINTS 



*****C2** ******** 



INCREMENT 
POINTER 



CKNEG .X. 

Dl *. 
.* IS *. 
.* NEXT * 
*. CHARACTER 



X 
**** 



***************** 
X 



***** 02 ******* 

* SET * 

* EXPONENT 
X* SIGN 

* MINUS 

* * 
************** 



IORF .*. 




Fl *. 




• *IS DEC*. 




.* INDICATOR *. YES 




. .X*. OR D OR E •*•••• 




♦.INDICATOR.* 


X 


*. SET .* 


***** 


*. .* 


*CJ * 


* NO 


* Al* 



ET4 .X. 

Gl *. 
.* IS *. 
•* NUMBER *. NO 
*.GT (2**31 )-l .*... 



*****G2* ****** 
* 
* 
• X* 



SET 

INTEGER 

INDICATOR 



.*. 




A3 *. 




* IS *.. 




D OR E *. YES 




INDICATOR •*•••• 




SET .* 


X 


*. .* 


***** 


*. .* 


*CP * 


* NO 


* A2* 



*****B3******* 

* * 

* SET * 

* DECIMAL * 

* INDICATOR * 

* * 
************** 

. **** 
. * * 
..X*CH * 
* A3* 
**** 
.*. 
C3 *. 
.* IS *. 
.* E OR D *. 
<*. INDICATOR .* 
*. SET .* 



ERROR- 
DECIMAL POINT 
AFTER E OR D 



*****C4******* 
* 
* 
. X* 



SET 

E OR D 

INDICATOR 



************** 



* YfcS 
X 




***** 




*CP * 




* A2* 


SVDATM X 


* * 


*****04 ********** 


* 


* SAVE NO. * 


ERROR- 


* CLEAR * 


TOO MANY 


* SUMMATION * 


E. S OR D.S 


* REGISTER * 



***************** 



X 
***** 
*CH * 
* A3* 



************** 



***** 
*CI * 

* G3* 



IRET X 

*****G3**** ****** 



* ADJUST * 
<* GETWD *. 

* POINTER * 

* * 
***************** 



****G4********* 

* * 
.X* RETURN * 

* * 
*************** 



X 

*/**** 

*CP * 

* A2* 

* * 

* 
ERROR- 
INTEGER 
TOO BIG 
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***** 
*CJ * 
* Al* 



ECON02 X 

*****A1 ********** 

* EXPONENT * 

* EQUALS * 

* E VALUE MINUS * 
♦DECIMAL COUNT +* 
♦OVERFLOW COUNT * 
***************** 



ECON03 .X. 
Bl 



IS *• YES 
RESULT .*.... 
MINUS . * 



*****B2******* 

* SET * 

* EXPONENT 
X* NEGATIVE 

* FLAG 

* * 
************** 



*****C2* ********* 

* SET * 

* EXPONENT * 

* TO * 

* ABSOLUTE * 

* VALUE * 
***************** 



Dl *. 
.* IS *. 
.* EXPONENT *. YES 
*• VALUE TOO .* 

*. LARGE .* X 

*. # * ***** 

*. .* *CP * 

* NO * A2* 

* * 



EC0N12 X 

*****E 1 ********** 

* RESTORE * 
*' MANTISSA * 

* (INTEGER * 

* PART) * 

* * 
***************** 



ERROR- 
EXPONENT 



*****F 1 ********** 

* PUT INTO * 

* NORMALIZED * 

* FLOATING- *. 

* POINT FORM * 

* * 
***************** 



.* IS 
.X*. EXPONENT 
*.NEGAT IVE 



EC0N05 X 

*****G2** ******** 

* MULTIPLY * 

* 10 ** * 

* EXPONENT * 

* IN FLOATING * 

* POINT FCRM * 
***************** 



*****£ 3*** ******* 

* DIVIDE BY * 

* 10 ** * 

* EXPONENT * 

* IN FLOATING * 

* POINT FORM * 
***************** 



X 
***** 
*CI * 

* G3* 



***** 
*CI * 
* G3* 
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*»»«»A1»«******- 

• MOVE ARRAY 

* NAME TO 

• INTERMEDIATE 

* TEXT BUFFER 



SUBSS X 

««***A2»« •*••*♦• 
•GETWD CCA1 

...X* GET PARAMETER 



ERROR- 
IMPROPER 
DELIMITER 



♦CONVERT NUMBER ^ 



> GET DELIMITER 



.*. 




SUB1 








SUBIOO 


X 


C2 *. 




»*«**C3»******« 




*»-**»C4***»****** 






t#C5*»**«*»*«« 






•ENTER CONSTANT 




♦GETWD CCA1* 


•CSORN CGA2» 


• • IS » 


. YES 


* PRECEDING * 






-«NON 










....X* GET SYMBOL 
• FOLLOWING 








•OVERFLOW TABLE 


• 


* ZERO 






« 










* THE * 


























* NO 








• ZERO 










X 








X 




































• CP * 










# G5 « 








* A2* 








.X. 


















05 ♦ . 


**•* 








ERROR- 
IMPROPER 
SUBSCRIPT 




NO 


• 


IS THIS *♦. 

A VARIABLE .» 










X 




• 






























*CP • 


















* A2» 






• YES 












*»* 






• 












ERROR- 


















IMPROPER 
















SUBSCRIPT 






SUB2 


















««»##E2** *«*««• 


















* ENTER 


















* VARIABLE 




































* OVERFLOW 


* 
















» BUFFER 


* 

















««##*F2*» »*•*•••• 
•SKPBLK CDA2« 

* GET • 

* DELIMITER • 



ERROR- i, 

DELIMITER 

ERROR 



4 .ZERO 
«»###G3»»«» 
•GETWD CCA1« 



«.X« GET CONSTANT 



• NON 
•ZERO* 



SAVE INTEGER 

TO COMPUTE 

OFFSET 



«*»*# ERROR- 

♦CP » MORE THAN 

* A2* 3 SUBSCRIPTS 



DELIMITER 



SUB 12 

»»»**J3****»»***« 

• ENTER • 

• SAOP • 

...X*COMPUTE OFFSET ♦ . 

•AND ENTER INTO • 

• TEXT • 



.X* ENTER BUFFER 

• INTO OVERFLOW 

• TABLE 



ERROR- 
IMPROPER 
DELIMITER 
IN SUBSCRIPT 



.♦IS SUB-^. 
YES .♦SCRIPT CNT ♦ 
......FOR VARIABLE = 

•NO OF DIMEN* 
♦-SIONS * 

ERROR- «*N0 

IMPROPER 

SUBSCRIPT 
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***** 

♦ CM * 

* A4* 



***** 

♦CM * 
*. B2* 



DELIMITER 



_#_*_*_*_*_*_ 



***************** 



DIM13 X 

**«**C2********** 
♦DIM90 CMA2* 
*-*-*-*-*-*-*-*-* 

* CONVERT * 

* INTEGER * 

* COMPUTE D1*L * 
***************** 



-*—*—*—*—* 



*****G2********** 
*DIM90 CMA2* 
*_*_*-*-* -*-*-*_« 

* COMPUTE * 
*D1 ♦ D2 * D3 *L* 

* * 
***************** 



**** 

* * 

* H3 ♦ 

* * 
**** 



DIM90 X 




*****A4 ********** 




♦GETWD CCA1* 




*-*-*-*-*-*-*-*-* ZERO 


* GET INTEGER *. 




* * 


X 


* * 


***** 


***************** 


*CP * 


• NON- 


* A2* 


.ZERO 


* 
ERROR - 






DELIMITER 




ERROR 


X 




*****B4* ********* 




♦INTCON CGF2* 




*-*-*-*-*-*-*-*-* 




* CONVERT * 




* INTEGER * 





***************** 



*****C4* ********* 

* COMPUTE * 

* PRODUCTS * 

* FOR OVERFLOW * 

* TABLE ENTRIES * 

* AND SIZE * 
***************** 



**»**04 ********** 

* SAVE * 

* RESULT * 

* FOR * 

* SIZE * 

* * 
***************** 



-*—*—*—* 



***************** 



****P4********* 

* * 

* RETURN * 

* * 
*************** 



*****H1 ********** 
♦WARNING CPA3* 
*-*-*-*-*-*-*-*-* 

* MISSING *. 

* RIGHT * 

* PARENTHESIS * 
***************** 



•X. DIM18 X 

H2 *• *****H3********** 

.* *. * INSERT * 

IS *. YES * DIMENSION * 

DELIMITER .* X* INFORMATION *. 

. ) .* * INTO * 

*. .* * 



DIM19 

*****H4******* 

* SET * 

* TYPE 
«i..X* CODE FOR 

* ARRAY 



************** 



**** 

* * 

* H3 * 

* * 
**•* 

DIM16 

NO .♦ 



*****H5 ********** 
♦INSERT ADDRESS * 

* OF OVERFLOW * 
X* TABLE ENTRY * 

♦INTO DICT ENTRY^ 

* FOR ARRAY * 
***************** 



****J5 ********* 

♦ * 

♦ RETURN ♦ 

♦ * 
*************** 



***** 

♦ CP ♦ 

* A2^ 



***** 

♦CP ♦ 

* A2^ 

♦ ♦ 

ERROR - 

MORE THAN 

3 DIMENSIONS 



Chart CM. Subroutines DIMSUB, DIM90 
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EOSR X 
♦GETWD 



•! DELIMITER !♦.... 


...X* REDUNDANT « 


* GET WORD OR * 


♦ . COMMA •* 


* COMMA * 


« DELIMITER * 




• ♦ 




♦•♦♦»♦♦♦♦♦♦♦•*♦*♦ 




» NO 




.ZERO 


















♦ CN ♦.X. 






♦CN «.X. 


• Bl* 






♦ . B3* 


*•*• . 






«♦•• . 


RCOMA1 X 






EOSR1 .X. 


**##*B 1 »****»♦ 




B3 *. 


* RESET ALL * 


#»»#B2****»***» 




« SWITCHES FOR * 




.» IS *. 1 


« STMTS NOT » 


* RETURN * 


♦ . DELIMITER .» 


» WRITING * 




*.END MARK .* 


« INTERMED TEXT 






************** 




***YES 














♦ CN ».X. 


*CN *... 


*CN *.X. 


* CI* 


* C2* 


« C3» 








RC0MA2 .X. 


RC0MA3 .X. 


E0SR2 X 


CI ♦ . 


C2 «. 


♦««*«C3********** 






*PUTX C0A3* 


.♦ IS *. YES 


.* ANY «. YES 




«. DELIMITER ...... 

♦.END MARK .* 


...X*. WAR» 
*.MESS> 




••••X*PUT END MARK + * 


\GES .* 


* INTERNAL STMT * 


*. .* 


». 


.» 


* NUMBER * 



♦NON 
ZERO 



E0SR3 X 

«»»»»B4***»»****» 
•WARNING CPA5* 



ERROR- 
SOMETHING 
DANGLING 



IS ASF 
STATEMENT 
. INDICATED. '■ 



WRITE < 

WARNING < 

ESSAGE(S) ON '■ 

TAPE < 



»#«»*F4»*»««** 

* RESET WARNING 

* MESSAGE * 
» INDICATOR FOR '■ 

* NEXT STMT * 



* END OF * 

FILE OR END 
*. CARD .* 



CLASSIFICATION 



END CARD 



«»*#*J3#**» 



WRITE LAST 
INTERMEDIATE 
TEXT BUFFER 



WRITE END 
OF FILE AND 
REWIND TAPE 



• ♦♦♦K4***^ 
* LOAD PHASE 12 « 
» VIA FORTRAN * 
♦SYSTEM DIRECTOR* 



Chart CN. Subroutine END MARK CHECK 
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***** 

*co * 

* A3* 



PUTX X 

*****A3******* 

* * 

* INITIALIZE 

* EXIT 

* ADDRESS 

* * 
************** 



*****B3 ********** 

* MOVE * 

* SPECIFIED * 

* INFORMATION * 
*INTO DICT ENTRY* 

* BUFFER * 
***************** 

**** . 

* * . 

*co *.x. 

* C3* 
**** . 

PUTRET .X. 

C3 *. 

.* *. 

.* OUTPUT *• V 

*• BUFFER .*. 

*. FULL .* 



***** 
*CO * 
* C4* 



PUTBUF X 

*****C4* ********* 

* WRITE * 

* INTERMEDIATE * 
...X* TEXT RECORD * 

* ON WORK * 

* TAPE * 
***************** 



****03********* 

* * 

* EXIT * 

* * 
*************** 



Chart CO, Subroutine PUTX 
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***** 
*CP * 
* A2* 



***** 
*CP * 
* A3* 



***** 
*CP * 
* A4* 



ERROR X 

*****A2* ********* 

* DEVELOP * 

* INTERMEDIATE * 

* TEXT WORD * 

* FOR ERROR * 

* MESSAGE * 
***************** 



WARN X 

*****A3********** 

* DEVELOP * 

* INTERMEDIATE * 

* TEXT WORD * 

* FOR WARNING * 

* MESSAGE * 
***************** 



ERRET X 

*****A4* ********* 

* DEVELOP * 

* INTERMEDIATE * 

* TEXT WORD * 

* FOR ERROR * 

* MESSAGE * 
***************** 



*****B2** ******** 

* PUT END * 

* MARK WITH * 

* ISN IN * 

* INTERMEDIATE * 

* TEXT * 
***************** 



*****B3******* 

* TURN ON * 

* WARNING * 

* SWITCH IN * 

* COMMUNICATION* 

* AREA * 
************** 



*****B4******* 

* TURN ON * 

* ERROR SWITCH * 

* IN * 

* COMMUNICATION* 

* AREA * 
************** 



*****C2* ********* 

* PUT ERROR * 

* MESSAGE * 
*IN INTERMEDIATE* 

* TEXT * 

* * 
***************** 



***** 02**** ****** 
♦PUTRET C0C3* 
*—*—*—*—*—*—*—*—♦ 

* CHECK FOR * 

* FULL BUFFER * 

* * 
***************** 



*****E2******* 

* TURN ON * 

* MESSAGE SW IN* 
♦COMMUNICATIONS * 

* AREA FOR * 

* ERRORS * 
************** 



*****P2** ******** 
*SKTEM C0A4* 
*-*-*-*-*-*-*-*-* 

* SKIP TO * 

* END MARK * 

* * 
***************** 



X 

***** 

*CN * 

* 03* 

* * 



*****C3******* 

* TURN ON * 

* WARNING 

* SWITCH FOR 

* SUBROUTINE 

* END MARK * 
************** 



WARN 2 X 

*****03**** ****** 

* * 

* SAVE * 

* INTERMEDIATE * 

* TEXT * 

* MESSAGE * 
***************** 



****E3*** ****** 

* * 

* RETURN * 

* * 
*************** 



Chart CP. Subroutines ERROR , WARNING/ERRET 
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***** 
*CQ * 
* A3* 



.♦CONTROL*. 

.♦COMMENTS OR*. 

♦.CONTINUATION .* 

*. CARD .* 



*****A4* ********* 

* BLANK OUT * 

* ISN FIELD * 
X* IN PRINTING * 

* BUFFER * 

* * 
***************** 



*****B 3*** ******* 

* * 

* GET INTERNAL * 

* STATEMENT * 

* NUMBER * 

* * 
***************** 



*****C3********** 

* * 

* EDIT ISN * 

* INTO * 

* PRINTING * 

* BUFFER * 
***************** 



*****D3*** ******* 

* MOVE * 

* SOURCE * 

* STATEMENT * 

* INTO PRINTING * 

* BUFFER * 
***************** 



******£ 3* ********** 

PRINT SOURCE 

* STATEMENT * 

VIA 

* FSD * 

************* 



****F3********* 

* EXIT TO * 

* CALLING * 

* ROUTINE * 
*************** 



Chart CQ. Subroutine PRINT 
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***** 
*CR * 
* A3* 



• X. 

A3 *. 

.* IS *• 

EOF *. 
SWITCH 

ON .* 
*• •* 



****A4********* 

* * 
•X* RETURN * 

* * 
*************** 



NO 



*****B 3* ********* 

* GET * 

* ALTERNATE * 

* ADDRESS * 

* FOR NEXT * 

* BUFFER * 
***************** 



**#**C2 ******* 



SET EOF 
SWITCH 



************** 



INIT X 

*****C3********** 

* REQUEST * 
EOF* TO READ * 

....* NEXT CARD * 

* INTO NEXT * 

* BUFFER * 
***************** 

• NORMAL 



*****D3********** 

* SET PNTR TO * 

* ADDR OF PREV * 

* BUFFER (CARD * 

* READ IN BY * 

* LAST REQUEST) * 
***************** 



****E3********* 

* EXIT TO * 

* CALLING * 

* ROUTINE * 
*************** 



Chart CR. Subroutine GET 
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PHASE 12 



The primary function of Phase 12 is the 
allocation of storage to symbols entered in 
the dictionary , overflow table, COMMON 
text, and EQUIVALENCE text. Variables, 
constants, external references, and arrays 
are assigned object program addresses. The 
statement numbers referenced by control 
statements are assigned relative locations 
in a branch list table that is used by the 
object program to control branching. 



Several secondary functions are per- 
formed. If the DECK option is specified. 
Phase 1 2 punches ESD and RLD cards for the 
object program and text cards for all 
constants used by the program. If the 
Compile and Go option is specified, these 
ESD, RLD, and text cards are written on the 
GO tape. As Phase 12 assigns addresses, 
the symbol, its address, and possibly some 
indicators are entered in the storage map 
and printed if the MAP option is specified. 

Chart 04, the Phase 12 Overall Logic 
Diagram, indicates the entrance to and exit 
from Phase 12 and is a guide to the overall 
functions of the phase. 

After the FORTRAN System Director has 
loaded Phase 12, all variables and arrays 
in COMMON are assigned addresses and 
removed from their dictionary chains. 
Phase 12 next processes the EQUIVALENCE 
text and creates an EQUIVALENCE table used 
later in this phase to assign addresses to 
equated variables. 

Addresses are assigned to all names in 
the dictionary; first to double precision 
variables and arrays and then to real and 
integer variables and arrays. No distinc- 
tion is made between real and integer 
variables and arrays. They are intermixed 
in the object program. Using the 
EQUIVALENCE table, equated variables are 
removed from their dictionary chains and 
assigned addresses. 

Addresses are then assigned to address 
constants, and the ESD and RLD cards are 
punched or written on the GO data set. 
Address constants are locations at which 
the loader places the address assigned to 
external functions or symbols. The ESD 
cards contain names of external functions 
for the program being compiled. The RLD 
cards contain the addresses of address 
constants for the external functions. In- 
line functions are processed, and the dummy 
variables and arrays are assigned 
addresses. 



All referenced statement numbers, other 
than those for FORMAT or specification 
statements, are assigned relative positions 
in a branch table. The subscript chains in 
the overflow table are scanned, and the 
dictionary pointers for variables in sub- 
script expressions are replaced by the 
address assigned to the variable in the 
object program. 

Addresses are assigned to constants in 
the following order: integer, real, and 
double-precision. If the DECK option is 
specified, text cards are punched for the 
constants; if the Compile and GO option is 
specified, the constants are written on the 
GO data set. The FORTRAN System Director 
is then called to read Phase 14. 



ADDRESS ASSIGNMENT 



Variables, arrays, constants, and 
address constants are assigned addresses in 
Phase 12. A base- displacement address is 
assigned through the use of a location 
counter, and the variable assigned an 
address in Phase 10 is removed from its 
dictionary chain. 



Base Displacement Addresses 



The base-displacement address assigned 
by Phase 12 is a 2-byte address. The first 
hexadecimal number (four bits) represents a 
general register used as a base register; 
the three remaining hexadecimal numbers (12 
bits) represent the displacement in a 
machine language instruction. This address 
is accessed and inserted in machine lan- 
guage instructions in subsequent phases. 
An effective address in IBM System/360 is 
the address in the base register plus the 
displacement inserted in the instruction. 
All symbols in a FORTRAN object program are 
referenced by their base displacement 
address. An address assigned to an array 
refers to the first element of the array. 



Location Counter 



The base-displacement address is 
assigned through the use of a location 
counter which is initialized and then 
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incremented as addresses are assigned. The 
location counter is incremented by the 
number of bytes needed in main storage to 
contain the object program field assigned 
to the variable, array, constant, address 
constant, or EQUIVALENCE group. 



Variables 

.adjffesse's* 



in 



COMMON are first assiqned 
_ ag e . ' , ^ J *!x& £ """TCocafjfSn* 

set-to ^tne base-displacement 



addr ^ess^^ vm r ^^ 
^^3^^^™^^^ re g£ st;er US ed for storage 

allocation, and 000 represents the dis- 
placement for the first variable entered in 
COMMON. The statements: 

DOUBLE PRECISION A 
COMMON A, B 

set indicators in the dictionary and COMMON 
text to indicate that the variable A is 
double precision and that A and B are 
entered in COMMON. If A is the first 
variable entered in COMMON, it is assigned 
the object program address 4000. The loca- 
tion counter is incremented by 8 because A 
is a double precision variable. The next 
variable in COMMON, B, is assigned the 
address 4008 indicating the base register 4 
and a displacement of 8. The location 
counter is then incremented by 4; B is not 
double precision. 

This process of contiguously assigning 
addresses using the location counter may 
vary for the following conditions. 

1. .gg^^^^jsil^^P^^^o^^b^^ assigned a 
2^^^£fkti^£]^i .$&£ 'fci^been assigned 
to yayiafcjes in COMMON. After the\ 
|asjt I Vdriafey^A^-^l&ftfi® Assigned an \ 
address in COMMON, the next available 
register is assigned to the next vari- 
able. 

For example, if the last variable 
in COMMON is assigned the address 
42A4, the next variable should have an 
address of 42A8. Because the next 
variable is not in COMMON, it must be 
assigned a new base register. The 
location counter is set to 5000 (the 
base register 5 with a displacement of 
000) . 

2. Integer and real constants are 
assigned addresses before double pre- 
cision constants. After addresses are 
assigned to integer and real con- 
stants, the location counter may have 
to be adjusted to a double-word bound- 
ary to accommodate the double preci- 
sion constants. If this happens , 
there is a full-word gap between the 
last real constant and the first 
double precision constant. 

The location counter is incremented by 
the size of the variable, array, constant. 




address constant, or EQUIVALENCE group 

assigned. If ; more 't h an (j , l ,ffJS^I^^X%^ TO mSf 

ass igned »»*w*'^^ • *-*«*>****"-* 

*^S^Ba^yca 

f*or* l ScaS5Ie"# " if tne " location " cduirE e^Ts^set 
at 4FFC and an integer variable is assigned 
to this address, the location counter is 
incremented by 4 to 5000. 



If a real array A (5) is assigned to the 
address 4FFC, the location counter is 
incremented by 20 bytes (the hexadecimal 
number 14) . The location counter is incre- 
mented to 5010 representing the base reg- 
ister 5 plus a displacement of 010. 



Removing Entries From Chains 



When a variable is assigned an address, 
that address must be placed in the chain 
address field of the dictionary. This 
requires switching three addresses in the 
dictionary chain. In Phase 10, the chain 
field points to the next entry in the chain 
(see Figure 37) . 



IP (HOG) 



MAC 



I 



J 



->|p(PIG) | 



HOG | 



| r _ T 1 

«• >|p(ANT) j PIG j 

Figure 37. Dictionary Chain Entries 



If HOG is the variable to be assigned an 
address, this address is placed in the 
chain field. The pointer to HOG in the 
entry for MAC must be replaced by the 
pointer to PIG to keep the chain for 
Unas signed variables intact (see Figure 
38). 



IP (PIG) 
I T — 



MAC 



„l , 



(Assigned address) 
| of HOG | 

L„_ JL- 



HOG 



J 



r T 1 

L_„. — >jp(ANT) j PIG | 

Figure 38. Removing a Symbol From a 
Dictionary Chain 



144 



EQUIVALENCE PROCESSING 



An EQUIVALENCE group consists of the 
names between a left and right parenthesis 
in an EQUIVALENCE statement. For example , 
in the statement: 

EQUIVALENCE (A,B,C,D,) , (W,X,Y,Z) 

the variables A,B,C, and D form one 
EQUIVALENCE group, and the variables W,X,Y, 
and Z form another EQUIVALENCE group. In 
the statements: 

DIMENSION TOAD (20) 

EQUIVALENCE (TOAD (3) , FLUB, SHARK) 

the array TOAD and the variables FLUB and 
SHARK form an EQUIVALENCE group. 

An EQUIVALENCE class is a number of 
EQUIVALENCE groups linked together by names 
that are common to two or more groups. In 
the statement: 

EQUIVALENCE (A,B,C) f (C,X) 

the two groups form a class because they 
are linked together by the variable C. In 
the statement: 

EQUIVALENCE (A,B, C) , (C,D) , (D,Y,Z) 

all three groups form an EQUIVALENCE class 
because they are linked together by the 
variables C and D. In the statement: 

EQUIVALENCE (X,Y, Z) , (X1,G,H) 

an EQUIVALENCE class is not formed. 

The root of an EQUIVALENCE group or ^ 
.clasfs "Is the member of a group or class to- % 
which all other variables are equated, The 
root is assigned an address and all other 
variables and arrays are assigned addresses 
relative to the root. iS^S^JS^^^-^s^ * 
group or class is in COMMON^ it is automat-* 
ically determined to be the root. If none 
of the variables are in COMMON, the root 
cannot be determined until the displacement 
is calculated. 

The displacement, the distance in bytes 
between a variable and its root, is calcu- 
lated by subtracting the offsets entered in 
the EQUIVALENCE table in Phase 10. For 
non- subscripted variables, the offset is 
always zero. To determine the root and 



displacement of variables and arrays, the 
first name in the EQUIVALENCE group is 
established as a temporary root. The off- 
set for the other arrays and variables is 
subtracted from the offset of the temporary 
root. For example, in the statements: 

DIMENSION A (5) ,XMAS (4) 
EQUIVALENCE (A (2) , B , XMAS ( 1 ) ) 

the first name in the group is established 
as a temporary root. The offset of A (2) is 
4. The offset of both B and XMAS (1) is 0. 
The root for an EQUIVALENCE group is 
changed only when the result of the dis- 
placement calculation is negative. By cal- 
culating the displacement, the relative 
position for the elements of the variables 
and arrays is determined. When the offset 
of B is subtracted from the offset of A (2) 
the result is 4, and when the offset of 
XMAS (1) is subtracted from the offset of 
A (2) the result is 4. The relative posi- 
tions of the members in this EQUIVALENCE 
group are shown in Figure 39. 



[a(1) Ja(2) ]a(3) Ja(4) ]a(5) ] 
I IB | | | | 

| | XMAS (1) | XMAS (2) j XMAS (3) j XMAS (4) j 

Figure 39. EQUIVALENCE Group Without Root 
Switching 

The symbols A (2) , B, and XMAS (1) all 
refer to the same field. In the state- 
ments: 

DIMENSION MAC (4) , HERBIE (4) 
EQUIVALENCE (MAC (1) , WINDY, HERBIE (2) ) 

when the EQUIVALENCE text is processed, the 
array MAC is temporarily established as the 
root of the EQUIVALENCE group. The offset 
for both MAC(1) and WINDY is 0, and the 
displacement is 0. The offset for 
HERBIE (2) is subtracted from the offset for 
MAC (1) ; the result is -4. Because the 
result is negative, the array HERBIE must 
be established as the new root. The dis- 
placement for WINDY and MAC must be changed 
to 4. 

The relative positions of the members in 
this EQUIVALENCE group are shown in Figure 
40. 

The symbols MAC (1) , WINDY, and HERBIE (2) 
all refer to the same field. 



I— 

I 
I 
I 

L 


HERBIE (1) 


T 

I 
I 

I 

X 


MAC (1) 
WINDY 
HERBIE (2) 


I 

I 

I 
X 


MAC (2) 
HERBIE (3) 


| MAC (3) 

! 

j HERBIE (4) 
X „ 


T 

I 

I 

I 
X 


MAC (4) 


1 

1 

1 

1 
J 



Figure 40. EQUIVALENCE Group With Root Switching 



Phase 12 



145 



The size of an EQUIVALENCE group or 
class is the size in bytes necessary to 
contain the entire EQUIVALENCE group or 
class. For example, if the elements shown 
in Figure 40 are all real, the size of that 
EQUIVALENCE group is 20 bytes. There are 
five 4-byte fields in the EQUIVALENCE 
group . 

Phase 12 constructs an EQUIVALENCE table 
used by the subroutines that assign 
addresses in Phase 12. The format of the 
EQUIVALENCE table is shown in Figure 41. 



r t t t 1 

I p (variable) | p (root) | displacement | size | 
j or | j or address | | 
j p (array) j jin COMMON j j 
l ± ± x J 

Figure 41. EQUIVALENCE Table Format 



pies in the branch list generated for the 
object program. The statement number 
chains in the overflow table are scanned 
sequentially. Each time a statement number 
is referenced and is not the statement 
number for a FORMAT or specification state- 
ment, a counter is incremented by 4. The 
contents of the counter are then placed in 
the chain field in the overflow table. 
This counter is initialized at 0; there- 
fore, the first statement number in the 
first chain is assigned the relative number 
0. The second statement number in the 
first chain is assigned the relative number 
4. The third statement number in the first 
chain is assigned the relative number 8, 
and so on. 



.Each fie3.d in the table, is two bytes 
long. /The first field contains a pointer 
to the entry for the variable or array in 
the dictionary. The second field contains 
a pointer to the dictionary entry for the 
root to which the variable or array is 
equated. If the variable or array is the 
root of the EQUIVALENCE group, the first 
two fields contain the same pointer. The 
third field contains the displacement or 
address assigned to the variable or array 
in COMMON. The addresses for variables and 
arrays in COMMON are assigned before this 
table is constructed. The fourth field is 
the size in bytes of the EQUIVALENCE group 
or class. 



BRANCH TABLE 



An object program uses a branch table to 
control branching. Each referenced state- 
ment number for an executable statement is 
assigned a position in the branch table. 
Phase 25 places an address in this position 
to denote where the instructions begin for 
the statement defined by the statement 
number. 

Phase 12 allocates storage for the 
branch table by assigning a relative number 
in the table to each statement number not 
in a FORMAT or specification statement but 
referenced in a control statement. State- 
ment numbers assigned relative numbers are 
removed from their chain in the overflow 
table and the relative number is placed in 
the chain address field. 

The relative number is directly related 
to the position the statement number occu- 



COMMUNICATIONS AREA 



At the end of execution for Phase 12, 
the following items have been entered in 
the communications area: 



1 . If an error has been detected, a 
switch is set denoting at least one 
error in this program. 

2. A switch is set to indicate whether 
the program is large or small. 

3. The address of the first available 
location for the object program. 

4. A page number that has been updated 
while the storage map was being print- 
ed, provided the MAP option was 
requested by the user. 

5. The number of bytes required to con- 
tain COMMON. 

6. The number of bytes required to store 
the branch table. 

7. The last external symbol identifi- 
cation number that was used. 

8. The card sequence number for the last 
card that was punched. 

9. The address of the beginning of the 
subscript entries in the overflow 
table. 

10. The assigned address of the branch 
table. 

11. The assigned address of the first 
value in each base register. 



STORAGE MAP 



The storage map for Phase 12 is shown in 
Figure 42. 
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Hex. Loc.| | 
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| Communi cations 

j Region 

,. „ 

(FORTRAN System 
Director 



FAO 



2E70 
2F38 
3000 



B I/O 
PHASE 12 



h 



I/O Buffer 
j. 

I/O Buffer 
Dictionary 

f 



., 



* 



Overflow Table 



4000 t- 



Size and loca- 
tions vary with 
machine size. 
Those shown 
are for 16K 
machine. 



Figure 42. Storage Map for Phase 12 



Subroutines STARTA, COMAL: Chart DA 



Subroutine STARTA 



Subroutine STARTA initializes Phase 12. 

ENTRANCE: Subroutine STARTA is entered 
from the FORTRAN System Director after 
Phase 12 is loaded into main storage. 



OPERATION: 



Subroutine STARTA initializes 



SUBROUTINES 



the base register and adjusts the pointers 
for the input and output buffers. 

EXIT: Subroutine STARTA exits to subrou- 
tine COMAL after the initialization of 
Phase 12 is completed. 



Subroutine COMAL 



Subroutine COMAL assigns addresses for 
variables or arrays to be placed in the 
COMMON area and removes those variables or 
arrays from the dictionary chains. 

ENTRANCE: Subroutine COMAL is entered from 
subroutine STARTA after Phase 12 is ini- 
tialized. 

OPERATION: When subroutine COMAL is 
entered, it gets the beginning and ending 
addresses of the COMMON text left in the 
communications area by Phase 10. The loca- 
tion counter in the communications area 
also tells subroutine COMAL where to begin 
assigning addresses for variables in the 
COMMON area in the object program. 



Two types of subroutines (mainline and 
utility) are necessary to perform address 
assignment. 



The mainline subroutines assign address- 
es to symbols entered in COMMON; build the 
EQUIVALENCE table? assign addresses to 
variables, arrays, and address constants; 
assign relative numbers to statement num- 
bers; assign addresses to constants; and 
insert object program addresses into over- 
flow table entries for subscripts. (See 
charts DA through PL.) 

The utility subroutines are called by 
mainline subroutines to perform perfunctory 
functions such as scanning the EQUIVALENCE 
table, entering items in the EQUIVALENCE 
table, scanning the chains in the diction- 
ary, calling input/output devices, and put- 
ting the ESD , RLD , text cards , and storage 
map into a format. (See charts DM through 
DU.) 



Subroutine COMAL checks for entries in 
the COMMON area by comparing the beginning 
and ending addresses of the COMMON text. 
If they differ, entries are made in COMMON. 
If they are the same, there is no COMMON 
text to process. 



If there are variables or arrays to be 
entered in COMMON, subroutine COMAL access- 
es the character length of the name in the 
COMMON text, goes to the correct chain in 
the dictionary, and searches for the entry. 
Subroutine COMAL finds the entry by compar- 
ing the address entered in the COMMON text 
with the chain addresses entered in the 
dictionary. When the comparision is equal, 
the next entry in the dictionary chain is 
the entry in COMMON. 

The address in the location counter is 
then placed in what was originally the 
chain address field of the dictionary 
entry. 
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Dummy variables or arrays , used to 
define the operations performed on paramet- 
ers passed in CALL statements , may not be 
entered in COMMON, The location of these 
dummy variables is passed from the main 
program in a calling sequence. 

If the mode of any variables or arrays 
entered in the COMMON area is double preci- 
sion, these variables must be on a double- 
word boundary. COMAL can not adjust the 
variable or array to a double-word boundary 
because no gaps may exist in COMMON. The 
beginning address of the COMMON area starts 
on a double-word boundary. If the double 
precision variables or arrays are assigned 
first to COMMON , an error can not occur. 

EXIT; Subroutine COMAL exits to subroutine 
EQUIVALENCE Part 1 after all COMMON text is 
processed. 



SUBROUTINES CALLED: 



subroutine COMAL 
subroutines : 



During execution 



references the following 



1 . ALERET to process any errors that are 
detected. 

2. SORSYM to print storage map if 
requested. 



ENTRANCE: Subroutine EQUIVALENCE Part 1 is 
entered from subroutine COMAL after the 
entries in COMMON are assigned a COMMON 
address , and from EQUIVALENCE Part 2 to get 
the first entry in the next EQUIVALENCE 
group after an entire EQUIVALENCE group is 
processed. 



OPERATION: Subroutine EQUIVALENCE Part 1 
is initialized with the beginning address 
of the EQUIVALENCE text and the EQUIVALENCE 
table. These pointers are incremented as 
the text is processed. 

Subroutine EQUIVALENCE Part 1 checks for 
additional entries in the EQUIVALENCE text 
by testing for the EQUIVALENCE adjective 
code. If there are no entries , control is 
passed to subroutine EXTCOM. (The adjec- 
tive code and the number of entries in the 
EQUIVALENCE group are entered in Phase 10 
for a header entry in the EQUIVALENCE 
text.) 

The EQUIVALENCE table is then searched 
to check for a previous entry of the 
variable in another EQUIVALENCE group. 
This condition forces the EQUIVALENCE 
groups to be combined , forming an 
EQUIVALENCE class. For example, the state- 
ment : 



Subroutine EQUIVALENCE: Charts DB, DC, DP 



The EQUIVALENCE subroutines use the 
EQUIVALENCE text constructed in Phase 10 to 
build an EQUIVALENCE table. The table is 
used when addresses are assigned to varia- 
bles later in Phase 12. 

ENTRANCE: Subroutine EQUIVALENCE is 
entered from subroutine COMAL after 
addresses are assigned to the variables 
placed in the COMMON area. 



OPERATION: 
separately. 



Each flowchart is discussed 



EXIT: After the EQUIVALENCE text is proc- 
essed to form the EQUIVALENCE table, con- 
trol is passed to subroutine EXTCOM. 

SUBROUTINES CALLED: During execution sub- 
routine EQUIVALENCE references subroutines 
SWROOT, EQSRCH, RENTER/ENTER, and ALERET. 



EQUIVALENCE (A,B) , (A,C) 

indicates that A,B, and C are all members 
of one EQUIVALENCE class. 

If the variable is not entered in anoth- 
er EQUIVALENCE group or class, it is 
entered as a root in the EQUIVALENCE table. 
This status may change as other variables 
in the EQUIVALENCE group or class are 
processed. 

If the variable was previously entered 
in the table, subroutine EQUIVALENCE Part 1 
gets the root for that variable in its 
previous entry and checks for the root in 
COMMON. If the root is not in COMMON, the 
displacement is inserted in the EQUIVALENCE 
table; if the root is in COMMON, the COMMON 
address is used. 

EXIT: Subroutine EQUIVALENCE Part 1 passes 
control to EQUIVALENCE Part 2 after the 
first member of an EQUIVALENCE group is 
processed. 



Subroutine EQUIVALENCE Part 1 



Subroutine EQUIVALENCE Part 1 initiali- 
zes the registers to scan the EQUIVALENCE 
text for each EQUIVALENCE group and proc- 
esses the first name entered in an 
EQUIVALENCE group. 



SUBROUTINES CALLED 



During execution sub- 

EQUIVALENCE Part 1 references the 



routine 

following subroutines: 



1. 



EQSRCH to see if a variable was 
entered in the EQUIVALENCE table pre- 
viously. 
2. RENTER/ENTER to enter a variable as a 
root. 
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Subroutine EQUIVALENCE Part 2 



Subroutine EQUIVALENCE Part 2 processes 
all members following the first one in an 
EQUIVALENCE group • If EQUIVALENCE Part 2 
determines that a member should be the root 
for the EQUIVALENCE group , it changes the 
root for the EQUIVALENCE group. 



ENTRANCE : Subroutine EQUIVALENCE Part 2 is 
entered from EQUIVALENCE Part 1 after the 
first member of an EQUIVALENCE group is 
entered in the EQUIVALENCE table. Subrou- 
tines SWROOT and EQUIVALENCE Part 3 enter 
EQUIVALENCE Part 2 to check for additional 
members in this EQUIVALENCE group. Subrou- 
tine EQUIVALENCE Part 3 also enters 
EQUIVALENCE Part 2 either to enter a varia- 
ble in the EQUIVALENCE table or prepare the 
subroutines for switching roots. 



OPERATION: When subroutine EQUIVALENCE 
Part 2 is entered from EQUIVALENCE Part 1, 
the EQUIVALENCE text pointer is incremented 
by EQUIVALENCE Part 1 so the next entry in 
the EQUIVALENCE text may be processed. The 
address of the root is entered in a reg- 
ister. When control is passed to 
EQUIVALENCE Part 2, a root for this group 
is determined either by setting the first 
member in the EQUIVALENCE group as a root 
or switching the root in EQUIVALENCE 
Part 2. 

Any time EQUIVALENCE Part 2 determines 
that a member or its root is in COMMON, 
control is passed to EQUIVALENCE Part 3. 

If the mode of the variable is double 
precision, a bit in the usage field of the 
dictionary entry for the root is set to 1. 
Other bits in the usage field are set in 
the EQUIVALENCE subroutines to indicate 
that the variable is a root or equated to a 
root. These two bits are not set to 1 at 
the same time. The first bit indicates a 
root. The second bit is set only for 
variables that are equated to some root. 

The displacement of an equated variable 
is its distance in bytes from the root. 
That is, the displacement is the offset of 
the equated variable subtracted from the 
offset of the root. The offsets are 
entered iii the Phase 10 EQUIVALENCE text. 
For example, if two arrays are dimensioned 
as A(3,3,3) and B(2,2,2) and the 
EQUIVALENCE statement: 

EQUIVALENCE (A (2, 1, 1) ,B (1, 1 , 1) ) 

is read in Phase 10; the off set for the 
first member of the EQUIVALENCE group 
A (2, 1,1) is 4. The off set for the second 
member of the EQUIVALENCE group B (1 , 1 , 1) , 



is 0. Then the displacement is: 
4-0=4 



This means that the array B begins 4 
bytes away from the first element of the 
array A, as follows: 



A (1,1,1) A (2,1,1) A (3, 1,1) A (1,2,1) ... 
B. (1/1,1.) -.-B (2,1,1) B(1,2,1) ... 

In subroutine EQUIVALENCE Part 1 the 
first member of the EQUIVALENCE group is 
temporarily entered as a root. When the 
displacement in the preceding example is 
calculated, the result is positive because 
the first member of the EQUIVALENCE group 
is entered as a root. If the position in 
the statement of the members of the group 
is changed, for example: 

EQUIVALENCE (B (1 ,1 , 1) , A (2, 1, 1) ) 

the result of the displacement calculation 
is different. In subroutine EQUIVALENCE 
Part 1 for this example, the first member 
B (1,1,1) is entered as a root. The dis- 
placement is now: 

0-4=-4 

which means that the root must be changed 
to indicate that A, not B, is the root for 
this EQUIVALENCE group. 

If the result of the displacement calcu- 
lation is positive, a check is made to see 
if this variable has already been entered 
in the EQUIVALENCE table. If it has not 
been entered, it is entered in the 
EQUIVALENCE table , and a check is made for 
an additional variable in this EQUIVALENCE 
group. The following statement would have 
entered the variable previously: 

EQUIVALENCE (A (2,1 , 1) ,C) , (B(1,1,1),C) 

This statement forms an EQUIVALENCE 
class. At this point, both A and B are 
temporarily roots. Because they are equat- 
ed to C, one must be selected as the root 
for this class. The displacement is com- 
puted for the two roots, and the offset of 
B (1,1,1) is subtracted from the offset of 
A (2, 1,1), yielding: 

4-0=4 

The root for this EQUIVALENCE class is 
A, and B is then equated to A. 

If the result of the first displacement 
calculation is negative, resulting from the 
statement: 

EQUIVALENCE (B (1 ,1 , 1) ,C) , (A(2,1,1),Q 
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subroutine EQUIVALENCE Part 2 again switch- 
es roots • 



to place the arrays A and B 
follows: 



in COMMON as 



EXITS ; Subroutine EQUIVALENCE Part 2 pass- 
es control to subroutine SWROOT if the root 
for an EQUIVALENCE group must be changed. 
Subroutine EQUIVALENCE Part 1 is entered 
from EQUIVALENCE Part 2 if there are no 
other members in the EQUIVALENCE group. 
Subroutine EQUIVALENCE Part 3 is entered if 
subroutine EQUIVALENCE Part 2 determines 
that either the variable being processed or 
its root is in COMMON. 

SUBROUTINE CALLED: During execution sub- 
routine EQUIVALENCE Part 2 references the 
following subroutines: 



1. 



to search the 



EQUIVALENCE 



EQSRCH 
table. 
2. RENTER/ENTER to enter a variable in 
the EQUIVALENCE table. 



A(1) A (2) A (3) 

B (1) B (2) B (3) 



If these two statements are processed, 
two different addresses are assigned to 
B (1) . Subroutine COMAL assigns B (1) an 
address that places it adjacent to A (3) . 
Subroutine EQUIVALENCE Part 3 attempts to 
assign to B (1) the address that subroutine 
COMAL assigned to A (2) . 



If the root is not assigned to COMMON 
and the variable is assigned to COMMON , the 
roots must be changed. If an EQUIVALENCE 
group contains a variable entered in 
COMMON , that variable must be used as the 
root. Subroutine EQUIVALENCE Part 3 then 
enters this variable as a root. 



Subroutine EQUIVALENCE Part 3 



Subroutine EQUIVALENCE Part 3 handles 
special processing for all equated varia- 
bles or arrays entered in COMMON. If the 
variable or its root is in COMMON, subrou- 
tine EQUIVALENCE Part 3 processes that 
variable. 

ENTRANCE: Subroutine EQUIVALENCE Part 2 
enters subroutine EQUIVALENCE Part 3 if 
either a variable or its root entered in 
COMMON is encountered. 

OPERATION: There are three entries used to 
enter subroutine EQUIVALENCE Part 3. 

Entry DDA1 is used if subroutine 
EQUIVALENCE Part 2 determines that the 
variable has been entered in COMMON. It 
then checks for the root in COMMON. If the 
root is entered in COMMON, it has been 
assigned an address by subroutine COMAL, 
which also assigned an address to the 
variable. Using the offsets entered in the 
EQUIVALENCE text, EQUIVALENCE Part 3 com- 
putes an address for the variable relative 
to its root. If the address assigned to 
the variable by COMAL and the address 
computed by EQUIVALENCE Part 3 are not 
equal, an error is noted. In the example: 



COMMON A (3) ,B(3) 
EQUIVALENCE (A (2) ,B (1) ) 

the COMMON statement places 
and B in COMMON as follows: 



Entry DDA4 is used if the root, but not 
the variable, is entered in COMMON. The 
COMMON address relative to the root is 
computed, and the variable is entered in 
the EQUIVALENCE table. 

If the variable was previously entered 
in the table, it was assigned a root when 
the entry was made. A check is made for 
the root in COMMON. If the previous root 
is in COMMON, an additional check is made 
to see if the two roots assign conflicting 
addresses to the variable. If the previous 
root was not entered in COMMON, it must be 
equated to the current root entered in 
COMMON. 



Entry 



DDE3 is used when the variable or 
current root is not entered in COMMON. 
Previously the variable was entered in the 
EQUIVALENCE table, and its root was in 
COMMON. These statements generate the fol- 
lowing condition: 



COMMON A 
EQUIVALENCE 



(A,C) , (B,C) 



The current root, B, must be equated to 
the previous root, A. All variables equat- 
ed to B must also be equated to A. 



EXITS: Subroutine EQUIVALENCE Part 3 exits 
to subroutines SWROOT if the root for a 
group must be changed. Subroutine 
EQUIVALENCE Part 3 also exits to 
EQUIVALENCE Part 2 if an error is detected 



the arrays A or to set the mechanism for changing roots. 



A(1) A (2) A (3) B(1) B(2) B (3) 

The EQUIVALENCE statement then attempts 



SUBROUTINES 



CALLED: 



EQUIVALENCE Part 3 
and RENTER/ENTER. 



During 



execution 



calls subroutines ALERET 
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Subroutine EXTCOM; Chart DE 



Subroutine DPALOC: Chart DF 



Subroutine EXTCOM finds and enters the 
size of COMMON in the communications area. 
It then adjusts the location counter to the 
next base and increments the location coun- 
ter by the number of bytes necessary to 
contain the initialization routine for the 
object program. 



ENTRANCE; Subroutine EXTCOM is entered 
from subroutine EQUIVALENCE Part 1 after 
the EQUIVALENCE table is constructed. 



OPERATION; The size of COMMON is deter- 
mined by subtracting the location counter 
used to allocate COMMON from the beginning 
address of COMMON. The difference is 
entered in the communications area. 



The location counter is adjusted to 
insure that the next variables assigned 
addresses have a different base register 
than the variables previously placed in 
COMMON. 



Subroutine DPALOC assigns addresses to 
all double precision variables or arrays 
entered in the dictionary. 

ENTRANCE; Subroutine DPALOC is entered 
from subroutine EXTCOM to allocate storage 
for all double precision variables and 
arrays. Entry is also made from subroutine 
INTDCT after it retrieves a name from the 
dictionary. 

OPERATION: Subroutine DPALOC references 
subroutine INTDCT to search the dictionary. 
INDCT returns to several subroutines. A 
switch is set when subroutine DPALOC is 
entered to force subroutine INTDCT to 
return to subroutine DPALOC. Subroutine 
INTDCT only retrieves entries in the 
dictionary? it does not check mode or type. 
Subroutine DPALOC only processes the 
dictionary entry under the following condi- 
tions; 

1. It is not in COMMON, equated, or a 
keyword. 

2. It is double precision. 

3. It is a variable or an array. 



Addresses_ H are assigned us.j^ i JJ^ ;> . > ftas^- v 
displacement addressing scheme in IBM 
System/360. Variables are assigned a 
; 2 X^ ^e " ^ t a ddir ess . The first hexadecimal 
" w n^^rc?^^ es ^^^a3d*ress is the base register. 
If the address of a variable assigned to 
COMMON is 40C8, the variable is assigned 
the base register 4 with a displacement of 
0C8. After assigning addresses to all 
variables in COMMON, the register number is 
incremented by 1. If all variables in 
COMMON are referenced by base register 4, 
the first item not in COMMON is assigned an 
address using base register 5. 

Indicators in the communications area 
are set in Phase 10 to indicate that the 
program being compiled is a FUNCTION or 
SUBROUTINE subprogram or a main program. A 
bit is also set if the program being 
compiled calls subprograms. Phase 12 must 
reserve storage for a calling sequence 
depending on these different conditions. 
In Phase 12 , the size of the area needed to 
contain the initialization routine for the 
object program is computed, and the loca- 
tion counter is adjusted accordingly. 

A check is made to determine if more 
Ithan three base registers are used to 
{allocate variables in COMMON. If so, a 
f warning message is issued. 



EXIT; Subroutine EXTCOM exits to subrou- 
tine DPALOC where storage is allocated for 
double-precision variables. 



The location counter is adjusted to a 
double-word boundary and the variable is 
assigned an address. The dictionary entry 
is removed from the chain and the variable 
is inserted into the storage map. 

If the variable is the root of an 
EQUIVALENCE group or class, its entry is 
accessed in the EQUIVALENCE table to allow 
the location counter to be increased by the 
size of the class. If the variable is an 
array, the dictionary entry is accessed to 
allow the location counter to be increased 
by the size of the array. If the variable 
is neither an array nor the root of an 
EQUIVALENCE class , the location counter is 
increased by 8, the size in bytes of a 
double precision variable. 



EXITS; 



Subroutine DPALOC exits to the 



following subroutines; 

1. INTDCT to retrieve another variable or 
array. 

2. SALQ to assign addresses to real and 
integer variables after all double 
precision variables have been allocat- 

. • e & m •'.''' 

SUBROUTINES CALLED ; During execution sub- 
routine DPALOC references the following 
subroutines; 

1. INTDCT to retrieve entries in the 
dictionary. 

2. SORSYM to enter variables in the stor- 
age map and print them. 
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EQSRCH to search the entry for a root 
in the EQUIVALENCE table. 



SUBROUTI NE CALLED ; During execution sub- 
routine SALO references subroutines: 



Subroutine SALO: Chart DG 



Subroutine SALO retrieves real and inte- 
ger variables and arrays from the diction- 
ary by use of subroutine INTDCT and assigns 
an address to them. 



EQSRCH to find the entry for the root 
of an EQUIVALENCE group in the 
EQUIVALENCE table. 

SORSYM to enter a variable in the 
storage map. 



ENTRANCE : 



Subroutine SALO is entered from Subroutine ALOC: Chart DH 



subroutine DPALOC after DPALOC has assigned 
addresses to all double precision variables 
and arrays • SALO is also entered from 
subroutine INTDCT after INTDCT has returned 
a name. 



OPERATION: 



When 
switch 



subroutine SALO is 

enter ed, a switch is set to indicate to 
subroutine INTDCT that the entry was from 
SALO. Control is passed to INTDCT to 
retrieve the first entry in the dictionary. 

A name removed from a dictionary chain 
has an address assigned to it by subroutine 
SALO if the following conditions are ful- 
filled: 

1. The variable is not equated to a root. 

2. The symbol is a name of a variable or 
an array. 

3. The name is not a keyword or in-line 
function. 



Both integer and real variables 
processed by subroutine SALO. 



are 



If the variable is the root of an 
EQUIVALENCE group that contains a double 
precision variable, it is adjusted to a 
double-word boundary , even through the 
variable is single precision. The variable 
is removed from a dictionary chain , 
assigned an address , entered into the stor- 
age map and printed if the MAP option is 
specified. 

If the variable is the root of an 
EQUIVALENCE group , its entry in the 
EQUIVALENCE table is accessed. The 
EQUIVALENCE group size is used to increment 
the location counter. If the name is an 
array , the size of the array is accessed in 
the dictionary and used to increment the 
location counter. If the name is not an 
array , the location counter is incremented 
by 4, the size in bytes of a real or 
integer variable. 



EXITS: 
tines : 



1. 



Subroutine SALO exits to subrou- 



INTDCT to access another dictionary 
entry. 
2. ALOC after all real and integer varia- 
bles are assigned addresses. 



Subroutine ALOC assigns addresses to all 
equated variables. The address of the root 
of the variable is assigned in subroutines 
DPALOC, SALO, and COMAL. 



ENTRANCES: Subroutine ALOC is entered by 
subroutines SALO after SALO has assigned 
addresses for the real and integer varia- 
bles. ALOC is also entered from INTDCT 
when INTDCT retrieves a name from a 
dictionary chain. 

OPERATION: The first time control is 
passed to subroutine ALOC, it sets the 
multiple switch used in subroutine INTDCT 
to return to subroutine ALOC. Control is 
passed to INTDCT to retrieve the first name 
in the dictionary. 

Subroutine ALOC assigns addresses only 
to those entries in the dictionary that are 
equated. If a returned entry is not equat- 
ed, ALOC returns to INTDCT to retrieve 
another entry. If an equated name that is 
neither a variable nor an array is returned 
to ALOC, an error condition is noted. 

If the name is equated and it is the 
name of a variable or an array, subroutine 
ALOC removes it from the dictionary chain 
and finds the variable in the EQUIVALENCE 
table. If the root of the variable is not 
in COMMON, the address is computed using 
the displacement (computed in the Phase 12 
EQUIVALENCE subroutines) and the address 
assigned to its root by either DPALOC or 
SALO. If the variable is in COMMON, the 
address assigned in the EQUIVALENCE subrou- 
tines is retrieved from the EQUIVALENCE 
table. The assigned address of the varia- 
ble is moved into the dictionary entry. 
The symbol is then entered and printed in 
the storage map if the MAP option is 
specified by the user. 

EXITS : Subroutine ALOC exits to the fol- 
lowing subroutines: 

1. LDCN after the name chains in the 
dictionary are processed. 

2. INTDCT to retrieve another dictionary 
entry. 
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SUBROUTI NES CALLED : During execution sub- 
routine ALOC references the following sub- 
routines: 

1. ALERET if an error is detected. 

2. EQSRCH to find the variables in the 
EQUIVALENCE table. 



Subroutine LDCN: Chart DI 



If the name is a dummy variable, an 
address is assigned and the variable is 
removed from the dictionary chains. If the 
name is an in-line function, the number 
code inserted in the address field of the 
dictionary entry is moved to the field that 
was originally the chain field for that 
dictionary entry. If the name is an exter- 
nal function, an address constant address 
is assigned and ESD and RLD cards may be 
punched and/or written on the GO tape. 



EXITS: 



Subroutine LDCN exits to the f ol- 



Subroutine LDCN may punch and/or write 
ESD section definition cards on the GO tape 
for the program and the COMMON area. LDCN 
processes all dictionary entries that are 
external functions, in-line functions , 
external references, or arguments for a 
function definition. 

ENTRANCE: Initially, subroutine LDCN is 
entered from subroutine ALOC after ALOC has 
assigned addresses for all equated varia- 
bles. Subsequently, LDCN is entered from 
subroutine INTDCT each time INTDCT has 
retrieved another name from the dictionary. 

OPERATION: The section definition card for 
the program contains the program name. The 
section definition card for COMMON contains 
the word COMMON and the number of bytes 
necessary to contain the variables and 
arrays in COMMON. An entry ESD card con- 
tains the name of the program entry point 
and its displacement from the beginning of 
the program. LDCN calls a subroutine to 
punch and/or write these cards on the GO 
tape. 

Subroutine LDCN removes all name entries 
from the dictionary, except keywords, by 
destroying the chain address entry. Either 
the assigned address for the variable or an 
in-line function code is placed in the 
dictionary field that contained the chain 
address in Phase 10. After subroutines 
DPALOC, SALO, and ALOC have completed proc- 
essing, only the in-line functions, dummy 
variables for functions, external func- 
tions, and keywords remain in the diction- 
ary name chains. 

When subroutine LDCN i^ first entered, 
the multiple switch is set to allow subrou- 
tine INTDCT to return to LDCN. Subroutine 
LDCN references subroutine INTCON to 
retrieve names from the dictionary. When 
subroutine INTDCT returns the name, LDCN 
checks the ESD bit in the dictionary entry. 
If the ESD bit is not on, subroutine LDCN 
assumes the name is a keyword and referen- 
ces subroutine INTDCT to obtain another 
name from the dictionary. If the ESD bit 
is on, the name is either a dummy name used 
to define parameters for a FUNCTION or 
SUBROUTINE subprogram, an external symbol, 
or an in-line function. 



lowing subroutines : 

1. INTDCT to retrieve names from the 
dictionary. 

2. ASGNBL to begin assignment of the 
branch list. 

SUBROUTINES CALLED: During execution sub- 
routine LDCN references the following sub- 
routines: 

1 . ESD to punch and/or write ESD and RLD 
cards. 

2. GO FILE to punch and/or write the 
control section cards for the program 
and the COMMON area. 



Subroutine ASGNBL: Chart DJ 



Subroutine ASGNBL scans the statement 
number chains in the overflow table, and 
allocates a branch list position for each 
statement number referenced by a branch 
statement. 

ENTRANCE: Subroutine ASGNBL is entered 
from subroutine LDCN after external and 
in-line function names and external ref- 
erences are processed. 

OPERATION: The first statement number 
chain address is accessed in the thumb 
index of the overflow table, and ASGNBL 
begins to scan the statement number chain. 
A relative number is assigned to each 
referenced statement number excluding those 
assigned to a FORMAT or specification 
statement. The first statement number in 
the first chain is assigned the relative 
number if it is to be entered in the 
branch list. The relative number is 
inserted in the chain field for that state- 
ment number, and the statement number is 
removed from the overflow table chain. The 
relative number is then incremented by 4 
and the next statement number is assigned a 
position in the branch list. 

When the end pf a chain is reached, 
ASGNBL accesses the thumb index for the 
beginning of the next chain; the next 
statement number chain is then processed. 
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When the last chain is processed , ASGNBL 
increments the location counter by the size 
of the branch list and exits to subroutine 
SSCK. 



EXIT; After all subscripts in the overflow 
table are processed, subroutine SSCK passes 
control to subroutine SORLIT. 



EXIT: 



After the statement numbers are 



assigned relative numbers for the branch 
list, subroutine ASGNBL exits to subroutine 
SSCK* 



Subroutine SORLIT: Chart DL 



Subroutine SSCK: Chart DK 



Subroutine SSCK searches the three sub- 
script variable chains in the overflow 
table, and replaces the dictionary pointer 
to variables with the address assigned the 
variable by Phase 12. 



ENTRANCE: 



Subroutine SSCK is entered from 



subroutine ASGNBL after ASGNBL has assigned 
branch list positions for statement num- 
bers. 

OPERATION: Subroutine SSCK obtains the 
address of the first subscript chain from 
the thumb index of the overflow table and 
then searches the chain for variables in a 
subscript expression. In Phase 10, if a 
subscript expression contained no varia- 
bles, it was not entered in the overflow 
table. For example, there was no entry in 
the overflow table for the subscripted 
variable A (1,5,2) . If only one subscript 
parameter contained a variable, however, 
the subscript expression was entered in the 
overflow table. For those subscripts with- 
in the same expression that contained no 
variables, the space allotted for variables 
was filled with zeros. In the subscripted 
variable A (1,5,2*1) , space had to be allot- 
ted for variables in the first and second 
subscripts, even though this space was 
filled with zeros. 

In Phase 12, a check is made in SSCK to 
determine if zeros are in a field where 
there normally would be a dictionary poin- 
ter. If there is a zero, this field is 
ignored and the next field expected to 
contain a variable is checked. If the next 
field contains a pointer to a dictionary 
entry for a variable, the dictionary entry 
is accessed and the address assigned to 
that variable is placed in the subscript 
variable chain. (The address for the vari- 
able in the subscript expression has been 
inserted in the dictionary entry for the 
variable by subroutine SALO.) 

When SSCK reaches the end of one of the 
subscript chains, it checks to see if this 
is the last chain to be processed. If 
another chain remains to be processed, SSCK 
goes to the overflow table thumb index and 
obtains the address for the start of the 
next chain. 



Subroutine SORLIT assigns addresses and 
calls subroutine TXT to punch and/or write 
text cards for all literals entered in the 
dictionary. SORLIT then calls the FORTRAN 
System Director to load Phase 14. 



ENTRANCE: Subroutine SORLIT is entered 
from subroutine SSCK after SSCK has proc- 
essed the overflow table subscript entries. 



OPERATION: Subroutine SORLIT accesses the 
beginning address for the integer constant 
chain in the dictionary, assigns an address 
for each constant in the chain, and calls 
subroutine TXT to put the constants into a 
text card buffer. Text cards may be 
punched and/or written on the GO data set. 

When the end of the integer constant 
chain is reached, the beginning address of 
the real constant chain is accessed in the 
thumb index of the dictionary. The real 
constants are then assigned an address and 
placed in a text card buffer. 

When the end of the real constant chain 
is reached, the address for the chain 
containing double precision constants is 
accessed, and the location counter is set 
to a double-word boundary. All double 
precision constants are assigned an 
address; the constants are then put into a 
text card buffer. When all double preci- 
sion constants are processed and put in the 
text card format, any buffers used to punch 
the ESD and RLD cards are closed, buffers 
used for text cards are closed, and the 
FORTRAN System Director is called to read 
Phase 14. 

EXIT: After all constants have heen proc- 
essed, subroutine SORLIT exits to the 
FORTRAN System Director to read Phase 14 
from the system tape. 

SUBROUTINES CALLED: During execution sub- 
routine SORLIT references the following 
subroutines : 

1. TXT to put the" constant and its 
address out to a text card and to 
close the text card output buffers. 

2. ESD to close the ESD and RLD card 
output buffers. 

3. SORSYM to enter the constant into the 
storage map. 
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Subroutines EQSRCH, RENTER/ENTER; Chart DM 



Subroutine EQSRCH 



Subroutine EQRSCH searches the 
EQUIVALENCE table for a previously entered 
variable • EQSRCH is also used by subrou- 
tine SWROOT to find all variables that have 
been equated to a root. 

ENTRANCES: Subroutine EQSRCH is entered 
from subroutines EQUIVALENCE Part 1 , Part 
2, and Part S to determine if a variable 
was entered previously in the EQUIVALENCE 
table. EQSRCH is also entered from subrou- 
tine SWROOT to find all variables equated 
to one root that must be equated to another 
root. 

OPERATION: Subroutine EQSRCH is entered at 
two points. At the first point of entry, 
registers are initialized to search the 
EQUIVALENCE table for a previously entered 
variable. The registers are initialized to 
compare the dictionary pointers to the 
variable now being processed. The pointer 
of the variable currently being processed 
is in the EQUIVALENCE text. 

At the second point of entry , the reg- 
isters have been initialized by the calling 
subroutine to compare the pointer to the 
roots in the EQUIVALENCE table. EQSRCH 
checks the EQUIVALENCE table to find all 
variables previously equated to a root. 

EQSRCH searches the EQUIVALENCE table by 
checking each entry for the correct pointer 
until it finds the entry or reaches the end 
of the EQUIVALENCE table. If EQSRCH reach- 
es the end of the table without finding the 
entry for the variable, it takes the not 
found return i if the variable is found, 
EQSRCH takes the found return. 

EXIT: Subroutine EQSRCH exits to the call- 
ing subroutine. 



OPERATION: If the variable is entered as a 
root, the bit that indicates a root is set 
in the usage field of its dictionary entry. 
If the variable is in COMMON, the address 
assigned to the variable by subroutine 
COMAL is accessed from its dictionary 
entry. If the variable is not entered as a 
root, the processing becomes the same for 
both roots and equated variables. 

If the variable is double precision and 
is entered in COMMON, it must be assigned a 
COMMON address that is on a double- word 
boundary. If the address assigned to it is 
not on a double- word boundary, an error is 
detected. 

The pointer to the dictionary entry for 
the variable, a pointer to the root, and 
the displacement are entered in the 
EQUIVALENCE table. (If the variable is 
entered as a root, the two pointers are the 
same.) 

If the variable is entered as a root and 
is being entered for the first time, the 
size entry for the variable in the 
EQUIVALENCE text is accessed and inserted 
in the size field in the EQUIVALENCE table. 
If the variable is equated to a root, a 
size computation is necessary. 

After the size is entered, a check is 
made to determine if the size of the COMMON 
area has been extended by equating arrays 
to variables previously entered in COMMON. 
For example, the statement: 

COMMON A 

places the real variable A in COMMON. The 
size of the COMMON area is now four bytes. 

The statement: 



DIMENSION B (5) 

defines a real array whose 
bytes. If the statement: 

EQUIVALENCE (A, B (1 ) ) 



size is 20 



Subroutine RENTER/ENTER 



Subroutine RENTER/ENTER enters variables 
in the EQUIVALENCE table either as a root 
or an equated variable. 

ENTRANCE : Subroutine RENTER/ENTER is 
entered at two points. The first point of 
entry (RENTER) is entered by subroutines 
EQUIVALENCE Part 1, Part 2, and Part 3, 
when a variable is to be entered in the 
EQUIVALENCE table as a root. The second 
point of entry (ENTER) is entered by 
EQUIVALENCE Part 2 when a variable is to be 
entered as an equated variable. 



is processed, the array B must be placed in 
COMMON. Since the size of the array is 20 
bytes, the size of COMMON must be increased 
to 20 bytes, and the location counter 
adjusted accordingly. 

A check is made to determine if the 
COMMON area is extended backward, e.g., if 
the preceding EQUIVALENCE statement is 
changed to: 

EQUIVALENCE (A,B (2) ) 

Since A is in COMMON, an attempt must be 
made to include B in COMMON. The second 
element in B is equated to A, therefore 
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B (1) should be the first element in COMMON. 
An error is noted because an attempt was 
made to "extend COMMON backward." 

The count of the number of entries 
entered in the EQUIVALENCE table is incre- 
mented by 1 for each entry. 

EXIT; The utility subroutine RENTER/ENTER 
returns control to the calling subroutine. 

SUBROUTINE CALLED; During execution sub- 
routine RENTER/ENTER calls subroutine ALER- 
ET if an error is detected. 



Subroutine SWROOT ; Chart DN 



be adjusted. If COMMON was extended 
ward, an error condition is noted. 



EXIT; 



back- 



Subroutine SWROOT exits to 

EQUIVALENCE Part 2 to determine if there 
are additional variables in this 
EQUIVALENCE group. 

SUBROUTINES CALLED; During execution sub- 



routine SWROOT 
subroutines ; 



references the following 



1. ALERET if an error has been detected. 

2. EQSRCH to search the EQUIVALENCE table 
for the entry made for the new root 
and for variables equated to the old 
root. 



The utility subroutine SWROOT is ref- 
erenced by subroutine EQUIVALENCE Part 1 or 
Part 2 when EQUIVALENCE Part 1 or Part 2 
determines that the root entered previously 
for this EQUIVALENCE group or class must be 
changed, and a new root inserted. 

ENTRANCE ; Subroutine SWROOT is entered by 
subroutine EQUIVALENCE Part 1 and 2. 

OPERATION; Subroutine SWROOT searches the 
EQUIVALENCE table for the entry for the new 
root and saves its address so the size of 
the group can be computed* SWROOT then 
compares the new root and the old root. If 
the roots are the same, SWROOT computes the 
displacement between them. If the dis- 
placement is a number other than zero, an 
error is detected. If the displacement is 
zero , SWROOT returns to EQUIVALENCE Part 2 . 

If the old root and new root differ, the 
equated bit in the usage field of the 
dictionary for the old root is set to 
indicate that the old root has been equated 
to another root. 

If the old root is double precision, a 
bit is set in the usage field to indicate 
that the new root must be placed on a 
double-word boundary. If the old root is 
in COMMON, a check is made to determine if 
the new root is on a double-word boundary; 
if not, an error is noted. 

A bit is set in the usage field of the 
dictionary entry for the new root. This 
bit indicates that this variable is a root 
of an EQUIVALENCE group or class. Using 
the address of the old root, the 
EQUIVALENCE table is searched for all vari- 
ables that were equated to the old root. 
The EQUIVALENCE table entries for these 
variables must be changed to indicate the 
new root, and the displacement and size 
fields in the table must also change. If 
the root is in COMMON, and COMMON has been 
extended forward, the location counter must 



Subroutine INTDCT; Chart DO 



Subroutine INTDCT is used by subroutines 
DPALOC, ALOC, SALO, and LDCN to retrieve 
entries from the dictionary. 

ENTRANCES; Subroutine INTDCT is referenced 
by subroutines LDCN, ALOC, SALO, and DPALOC 
to search the name chains in the diction- 
ary. 

OPERATION; Subroutine INTDCT initializes 
registers and pointers for a search, and 
checks for names entered in the dictionary. 
If there is another name, its entry is 
fetched and INTDCT returns to the subrou- 
tine that called it. 

If subroutine INTDCT determines that it 
is at the end of a dictionary chain, it 
goes to the thumb index, gets the starting 
address of the next chain, and begins 
retrieving variables from that chain. A 
switch is set by the subroutine that called 
subroutine INTDCT. By testing this switch, 
subroutine INTDCT returns to the calling 
subroutine. 

EXIT; Subroutine INTDCT returns to the 
calling subroutine after retrieving an 
entry from the dictionary. If subroutine 
INTDCT has returned the last variable in 
the dictionary chain, INTDCT returns to 
another point in the calling subroutine. 



Subroutine SORSYM; Chart DP 



Subroutine SORSYM puts into format and 
prints the storage map for all arrays, 
constants, and external references assigned 
addresses in Phase 12. 

ENTRANCE; Subroutine SORSYM is referenced 
by subroutines SORLIT, COMAL, DPALOC, SALO, 
ALOC, and ESD. 
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OPERATION; Variables and arrays , external 
symbols, and constants are printed for the 
storage map. If a heading is not printed 
for a category , SORSYM prints the heading. 

The symbol and the address assigned to 
it are moved to the print buffer; if the 
buffer is full, a line is printed. There 
are four symbols with associated addresses 
inserted in a print line. 

EXIT; Subroutine SORSYM exits to the call- 
ing subroutine. 

SUBROUTINES CALLED; During its execution 
subroutine SORSYM references the FORTRAN 
System Director to initialize printing. 



Subroutine ESP; Chart DQ 



Subroutine ESD enters external symbols 
into the ESD card format and initializes 
the action for punching ESD cards. 

ENTRANCE ; Subroutine ESD is entered by 
subroutine LDCN every time an external 
symbol should be entered in an ESD card. 
Subroutine SORLIT also calls a portion of 
subroutine ESD to close the ESD data set. 

CONSIDERATIONS ; An ESD card contains one 
external symbol identification number, one 
to three names used as external symbols, 
and the number of significant bytes in the 
ESD card. This number on the ESD card 
includes the number of card columns used to 
contain the external symbol identification 
number, the external symbols, and the num- 
ber itself. Each external symbol in the 
external symbol dictionary is assigned an 
external symbol identification number. 
However, in the ESD card, only the symbol 
identification number for the first symbol 
is included. 

Subroutine ESD and Phase 10 intermediate 
text use a similar double-buffer system. 
There are two card output areas. One 
buffer is punched as the other is filled. 

OPERATION; Subroutine ESD removes the 
entry for an external symbol from the 
dictionary chain. The address that con- 
tains either the beginning address of the 
external function or the address of the 
external symbol is inserted in the chain 
field. 

If neither the DECK nor Compile and Go 
option is taken, subroutine ESD returns to 
the calling subroutine. If either the DECK 
or Compile and Go option is taken, ESD 
moves the external symbol from the diction- 
ary entry to a buffer and increments the 
external symbol identification number by 1. 



Subroutine ESD determines how many 
external symbols are entered in the buffer. 
If this is the first entry for this card, 
the external symbol identification number 
is moved to the buffer for the first 
external symbol entered in the card. The 
number of significant bytes entered in the 
buffer for this external symbol is then 
updated. 

If this is the second entry for this 
card, the number of significant bytes for 
the second entry is added to the register 
containing the number of bytes for this 
card. If this is the third entry to the 
buffer for this card, the number of signi- 
ficant bytes for the third entry is added 
to the significant byte accumulator. After 
the third entry is made to the buffer, the 
card may be punched and/or written on the 
GO tape. 

ESD is entered to close the buffers 
after subroutine SORLIT has processed the 
last constant chain entered in the diction- 
ary. ESD closes the buffer. A switch is 
set in ESD to indicate to subroutine RLD 
that the output buffers must be closed. If 
any external symbols in the buffer are not 
punched, ESD initializes the punching for 
the last ESD card. 

EXIT; Subroutine ESD exits to subroutine 
RLD to enter an address in an RLD card and 
put out the last RLD card if subroutine ESD 
was entered to close the ESD and RLD 
buffers. 



SUBROUTINE CALLED; 



Subroutine ESD ref eren- 

GOFILE to initialize the 



ces subroutine 

output for an ESD card 



Subroutine RLD; Chart DR 



Subroutine RLD enters the addresses 
assigned to external symbols in an RLD card 
and initializes the action for RLD card 
output. 

ENTRANCE; Subroutine RLD is entered by 
subroutine ESD each time ESD makes an entry 
to an ESD buffer and when ESD closes the 
output buffers for RLD and ESD cards. 

CONSIDERATIONS ; An RLD card contains up to 
six address constant addresses. Each 
address and its external symbol identifi- 
cation number may be punched in the RLD 
card and/or written on the GO tape. An RLD 
address and ESD name are linked by the same 
external symbol identification number. 

Subroutine RLD uses a double buffer 
system similar to the one used for ESD 
cards. There are two card output areas. 
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An RID card is punched from one buffer, 
while the next RLD card is put into format 
in the other buffer. 



OPERATION; Subroutine ESD sets an end 
switch to indicate to subroutine RLD that 
the RLD and ESD buffers are to be closed. 
If this end switch is on, RLD checks for 
any entries in the current buff er that have 
not been put into an RLD card format. If 
there are current entries, RLD calls sub- 
routine GOFILE to initialize card output. 

If the end switch is not on* RLD must 
make an entry to an RLD card buffer. 
Subroutine RLD inserts the address constant 
address in the RLD buffer along with the 
external symbol identification number and 
updates the location counter so that the 
correct address constant address is is 
assigned to the next external symbol. If 
the RLD card buffer does not contain six 
items, the RLD buffer pointer is increment- 
ed by the length of the entry just made in 
the buffer pointer so that the next load 
constant address can be inserted in the 
proper position in the buffer. The exter- 
nal symbol identification number is incre- 
mented in subroutine ESD. If an RLD card 
buffer is full, subroutine GOFILE is called 
to put out the RLD cards. 

EXIT: Subroutine RLD exits to the subrou- 
tine that originally referenced subroutine 
ESD. 

SUBROUTINES CALLED: Subroutine RLD ref- 
erences subroutine GOFILE to put out the 
RLD card. 



OPERATION: Subroutine TXT initializes 
itself in Phase 12 by moving the pointer to 
the dictionary entry for the constant being 
processed from subroutine SORLIT. The con- 
stant is then moved from the dictionary to 
a text card buffer, and the number of 
significant bytes for this card. If this 
is the first entry for this card, the 
address in the location counter is inserted 
in the card. 

The location counter is adjusted by the 
length of the constant (8 for double preci- 
sion and 4 for real or integer) . Subrou- 
tine TXT then checks for a DECK or GO 
option. If neither option is on, TXT 
returns to the subroutine that called it 
and does not put out a text card. 

If either option is on, a check is made 
to see if the buffer is full. If the 
buffer is not full, the buffer pointer is 
updated by the size of the entry just made, 
and subroutine TXT returns to the calling 
subroutine. If the buffer is full, subrou- 
tine GOFILE is called to initialize card 
output . 

Subroutine TXT is entered by subroutine 
SORLIT after SORLIT has processed the last 
constant chain. If either text buffer 
contains entries, subroutine GOFILE is 
called to put out the entries. 

EXIT: Subroutines TXT returns to the call- 
ing subroutine. 

SUBROUTINE CALLED: During execution sub- 
routine TXT references subroutine GOFILE to 
punch a card and/or write a record on the 
GO tape. 



Subroutine TXT: Chart DS 



Subroutine GOFILE: Chart DT 



Subroutine TXT enters constants along 
with a beginning address in a text card and 
calls a subroutine to allow text card 
output. 

ENTRANCE : Subroutine TXT is referenced by 
subroutine SORLIT when SORLIT processes the 
constant chains in the dictionary and clos- 
es the text card buffers. 

CONSIDERATIONS : A text card generated by 
Phase 12 contains an address and a string 
of integer, real, or double precision con^ 
stants. The address entered in the card 
indicates to the object program loader 
where to put the first constant in the text 
card. The remaining constants follow the 
first constant. 

Subroutine TXT uses a double-buffer sys- 
tem similar to subroutines ESD and RLD. 



Subroutine GOFILE updates the card 
sequence number and inserts it and the 
program identification into the card buf- 
fer. GOFILE calls the FORTRAN System 
Director to punch a card or write the card 
image on the GO tape. 

ENTRANCES: Subroutine GOFILE is entered 
from subroutines ESD, RLD, or TXT if the 
user has specified that either an object 
deck be punched under the DECK option or 
the object program loaded on tape under the 
Compile and Go option. 



CONSIDERATION: 



The 



calling subroutine 

assembles the card in the correct format 
for the FORTRAN System Loader. The card 
sequence number and the card identification 
for the program are inserted in the card by 
GOFILE. 
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OPERATION: 



Subroutine GOFILE increments 



the card sequence number by 1, and enters 
it in the ESD, RLD, or text cards. GO FILE 
places the program identification in the 
card and tests the Compile and Go option. 
If the Compile and Go option was exercised, 
GOFILE references the FORTRAN System Direc- 
tor to write the card to the tape used for 
the GOFILE output tape. If the DECK option 
is taken, GOFILE calls the FORTRAN System 
Director to punch the card for the object 
deck. 

EXIT; Subroutine GOFILE returns control to 
the calling subroutine. 

SUBROUTINE CALLED; During execution, sub- 
routine GOFILE references the FORTRAN Sys- 
tem Director to write the card image to the 
GO tape or to punch a text card. 



Subroutine ALOWRN/ALERET: Chart DU 



Subroutine ALOWRN/ALERET processes 
errors and warnings detected during Phase 
12. 

ENTRANCES; Subroutine ALOWRN is entered 
from subroutine EXTCOM if the COMMON area 
is too large. Subroutine ALERET is entered 
from subroutines EQUIVALENCE Part 2 and 
Part 3, RENTER/ENTER, SWROOT, and COMAL 
when an error is detected. 



OPERATION: Subroutine ALOWRN/ALERET is 
entered at two points. The first entry 
point, ALOWRN, is used if a warning is 
issued. The second, ALERET, is used if an 
error is issued. The difference between 
errors and warnings is discussed in the 
Phase 10 subroutine ERROR, ERRET/WARNING . 

The only intermediate text entries made 
during Phase 12 are the entries for errors 
and warnings detected during execution of 
the Phase 12. The adjective code is set 
when ALOWRN/ALERET is entered, depending 
whether the subroutine is entered for an 
error or warning. The error or warning 
number is inserted with the adjective code 
in the intermediate text output buffers. 
The internal statement number for the 
statement which caused the error or warning 
is not entered in Phase 12. There is no 
way to access the internal statement number 
and in most cases the condition that caused 
the error or warning cannot be pinpointed 
to a specific statement. 

The output buffer pointer is updated, 
and a test is made to check if the output 
buffer is full. If the buffer is full, 
subroutine ALOWRN/ALERET exits to subrou- 
tine SORLIT to abort the rest of Phase 12 
and read in Phase 14. 



EXIT: Subroutine ALOWRN/ALERET exits to 
the subroutine that called it or to subrou- 
tine SORLIT. 
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*****A2**** ****** 



**************** 



*****B2****** 



***************** 



*****C2** ******** 

* ALLOCATE * 

* NGN EQUATED * 

* VARIABLES * 

* FIRST * 

* * 
***************** 



*****D2**** ****** 

* * 

* ALLOCATE * 

* EQUATED * 

* VARIABLES * 

* * 
***************** 



*****E2** ******** 

* PUNCH ESD, * 

* RLD CARDS * 

* FOR SUE- * 

* PROGRAMS * 

* * 
***************** 



*****F2** ******** 

* ALLOCATE * 

* . STORAGE * 

* TO LOAD * 

* CONSTANTS * 
*' * 
***************** 



«****62********** 

* ASSIGN * 

* BRANCH * 

* LIST * 

* ADDRESSES * 

* * 
***************** 



*****H2** ******** 

* ASSIGN * 

* ADDRESS TO * 

* SUBSCRIPT * 

* INFORMATION * 

* * 
***************** 



***** J2»* ******** 

* ASSIGN * 

* ADDRESSES TO * 

* LITERALS AND * 

* PUNCH TEXT * 

* CARDS * 
***************** 



****K2** ******* 

* TO PHASE 14 * 

* VIA FORTRAN * 
♦SYSTEM DIRECTOR* 

*************** 



Chart 04. Phase 12 Overall Logic Diagram 
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*****A2** ******** 

* INITIALIZE * 

* REGISTERS * 

* AND * 

* FOINTERS * 

* * 
***************** 

**** . 



.* ANY *. 

.* MORE * 

♦.VARIABLES IN 

*. COMMON .* 



***** 
*DE * 
* A2*EQUIVP 



* LOOK UP * 

* VARIABLE IN * 

* DICTIONARY * 

* * 
***************** 



CCMAL2 X 

*****D2* ********* 
*REMCVE VARIAELE* 
*FROM DICT CHAIN* 

* AND MOVE * 

* ASSIGNED ADDR * 
*TC CHAIN FIELD * 
***************** 



************* 



MODE 

DOUBLE 

•PRECISION. 



.* ADDRESS *. 
•X*ON DOUBLE WORD 
•.BOUNDARY .* 



X* CANNOT * 

* ALLOCATE IN * 

* COMMON * 
***************** 



*****G3*** ******* 

* INCREMENT * 

* LOCATION * 
X* COUNTER BY *. 

* SIZE OF * 

* ARRAY * 
***************** 



***************** 



*****j 3**** ****** 



*_*_*_»_ 



************* 



*********** 



Chart DA. Subroutine COMAL 
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***** 
*DB * 
* A2* 



EGUIVP X 

*****A2«* ******** 

* INITIALIZE * 

* REGISTERS * 

* AND * 

* TABLES * 

* * 
***************** 



.* ANY 

MORE 
*• ENTRIES 



X 
***** 
*DE * 

* E3*EXTC0M 
* * 



EQUS02 X 

*****C2** ******** 
*EGSRCH DMA2* 
*_#_*_*_*_ *-*-*-* FOUND 

* DETERMINE IF * 

* VARIABLE IS * 

* IN TABLE * 
***************** 

• NOT 
•FOUND 



EQUS50 

*****C4 ********** 



GET 
ROOT 



***************** 



*****D2** ******** 
♦RENTER DMD1* 
»_«_*_*_*_*_♦_*_* 

* ENTER IT * 

* AS ROOT * 

* * 
***************** 



.* IS IT 
*. IN COMMON 



*****E4** ******** 

* * 

* FIND * 

* EQUIVALENCE * 

* SUBSCRIPT * 

* * 
***************** 



EQUS51 X 

*****E5* ********* 

* COMPUTE * 

* ADDRESS * 

* IN * 

* COMMON * 

* * 
***************** 



X 

***** 

*DC * 

* HI* 

* * 

*EGUS15 



Chart DB. Subroutine EQUIVALENCE Part 1 



162 



EQUS03 X 


EQUS12 .*• 




*****A 1 ********** 


A2 *. 




* ADJUST TEXT * 


• * *• 




♦POINTER AND GET* 


.* IS *. YES 










* AND ROOT * 


*. COMMON .* 


X 


* SUBSCRIPT * 




***** 


. ***************** 


*• • * 


*DD * 


**** 


* NO 


* Al* 



*****B 1 ******* 

* * 

* SET DP 

* INDICATOR 

* IN ROOT 

* * 
************** 



IS 
VARIABLE 

D.P. 



EQUS08 X 

*****F 1********** 
*ENTER DMG1* 
*-*-*-*-*-*-*-*-* 

* ENTER *X 

* VARIABLE * 

* IN TABLE * 
***************** 



*****G i ******* 



EQUS06 .FOUND 

*****D4********** 
*EQSRCH DMA2* 



*-*- 



_*_*_*_*_ 



***************** 



X* DETERMINE IF 

* VARIABLE IS 

* IN TABLE 
*************** 

.NOT 
.FOUND 



*****E4********** 

* * 

* CHANGE * 

* DISPLACEMENT * 

* TO POSITIVE * 

* * 
***************** 



*****F2** ******** 

*EGSRCH DMA2* 

NOT*-*-*-*-*-*-*-*-* 

* IS VARIABLE * 

FOUND* IN TABLE * 



* 


SET 


* 


EQUATED 


* 


BIT 


* 




************** 


**** 








*DC 


*.X. 


* +S1 


* . 


**** 




EQUS15 


• X. 




HI * . 




* ANY *. 


# * 


MORE 


*. VARIABLES IN 


*. 


GROUP . 



***************** 



***** 
*DD * 
* E3* 



***************** 



*****j i********** 

* * 

* ADJUST * 

* EQUIVALENCE * 

* TEXT POINTER * 

* * 
***************** 



***** 
*DB * 
* A2* 
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EQUSIO 


.X. 






05 *. 






* * . 


YES 


* 


IS 


• • • *• 


ROOT IN 


• 


* 


COMMON 


X 




*• • * 


***** 




* NO 


*DD * 






* E3* 








* * 








* 












X 


*****E5 ******* 


* 






* 




GET 


* 


DISPLACEMENT 



***************** 



_*_*_*_*_*_*_*_* 

ENTER *.. 

AS * 

ROOT * 

**************** 


****X 
***** 

*DN * 




* A2* 
* * 
* SWROOT 



* SET TO * 
X* SWITCH * 

* THIS ROOT * 

* * 
***************** 



*DN * 
* A2* 
* * 
*SWROOT 
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***** 
*DD * 
* A4* 



*****A2 ********** 

* * 

* FIND * 
X* EQUATED *X 

* ADDRESS * 

* * 
***************** 



*****A4** ******** 
*EQSRCH DMA2* 
*—*—*—*—*—*-*-*—* NO 

* IS *... 

* VARIABLE * 

* IN TABLE * 
***************** 

.YES 



*****A5 ********** 

* * 

* FIND COMMON * 
X* ADDRESS OF * 

* VARIABLE * 

* * 
***************** 



******* 



***************** 



***** 
*DC * 
* Fl* 



.* IS IT *. YES 
*ECUAL ASSIGNED *.. 
*. ADDRESS .* 



GET ROOT 



***************** 



*****C l********** 
*EQSRCH DMA2* 

*_*_*_*_*_* _*_*_*FCUND 

* PERFORM * 

* SEARCH * 
***************** x 

.NOT ***** 

•FOUND *DC * 

* G2* 



*****C2 ********** 
*ALERET OUA3* 

*-*-*-*-*-*-*-*-* 

* TWO *. 

* VARIAELES * 

* IN COMMON * 
***************** 



***** 
*DC * 
* n* 



*****D1 ********** 

* GET * 

* ASSIGNED * 

* ADDRESS * 

* * 
***************** 



*****D4 ********** 

* * 

* GET COMMON * 

* ADDRESS OF * 

* VARIABLE * 

* * 
***************** 



******** 



********** 



* S^SWRCOT 

* SWITCH 

* THIS ROOT 

*************** 
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***** 
*0E * 
* B3* 



EXTCOM X 

*****B3 ********** 

* * 

* FIND SIZE * 

* OF * 

* COMMON * 

* * 
***************** 



*****C 3*** ******* 

* * 

* ENTER INTO * 
♦COMMUNICATIONS * 

* REGION * 

* * 
***************** 



EXTOl X 

*****D3*** ******* 

* ADJUST * 

* LOCATION * 

* COUNTER * 

* TO NEXT * 

* BASE * 
***************** 



SETL01 X 

#****E2**** ****** 

* ADJUST * 

* LOCATION * 

* COUNTER * 

* FOR CALLING * 

* SEQUENCE * 
***************** 



YES .* IS * 
•••*. PROGRAM TOO 
*. BIG .* 



*****G2* ********* 
*ALOWRN DUA2* 

X* PROGRAM *•« 


X 




* TOO * 

* BIG * 
***************** 




X 

***** 

*DF * 

* A4* 

* * 

*DPALOC 
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.* VARIABLE * 
•IN COMMON OR 
*. EQUATED .* 



IS IT 

RESERVED 

WORD 



IS IT *. NO X 

VARIABLE OR.« 

ARRAY .* 



* SET SWITCH * 
•FOR INTERROGATE* 

* DICTIONARY * 



ADJUST 
TO DOUBLE 

WORD 
BOUNDARY 



•REMOVE VARIABLE* 
•FROM DICT CHAIN* 
* AND MOVE AS- * 
♦SIGNED ADDRESS * 
*IN CHAIN FIELD * 



ENTER INTO 
SYMBOL 
TABLE 



EQUTAB 

SIZE FROM 

EQUTAB 



*»*»*J3»*- 



••*K2»* •***••*' 

INCREMENT 
LOCATION 
COUNTER 
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.« VARIABLE * 
•IN COMMON OR 
*. EQUATED .* 



***A4******* 
SET SWITCH * 
INTERROGATE ■ 
DICTIONARY 



*DH *ALOC 



***E3******** J 
ADJUST 
LOCATION 
COUNTER TO 
DOUBLE WORD 
BOUNDARY 



SALC3 X 

*****F2»* ******** 
♦REMOVE VARIABLE* 
*FROM DICT CHAIN* 

* AND MOVE * 

* ASSIGNED ADDR * 
*TC CHAIN FIELD * 



PUT INTO 
SYMBOL 
TABLE 



GET GROUP 

SIZE IN EQU. 

TABLE 



********* 


"**NO 
SALC4 .X. 








' J2 *. 




*****J3*»* 












.* IS *. 


YES 


* GET 




*. THIS AN .* 




...X* ARRA 




*. ARRAY .* 




* SIZE 
















********** 




* 








• 








SAL002 X 








*****K2********** 







INCREMENT 
LOCATION 
COUNTER 
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***** 
*DH * 
* A2* 



***** 
*DH * 
* A4* 



ALCC01 



A2 



**** . * * . 

* * .# HAS * 

* A2 *....X«, NAME BEEN 

* * *. EQUATED .* 
**** * # .* 

*. • * 
* YES 



***** 

*DO *ID004 

* E2* 



ALOC X 

*****A4 ******* 

* * 

* SET SWITCH * 
*FOR INTERROGATE* 

* DICTIONARY * 

* • 00 • * 
************** 



*****B1 ********** 
*ALERET DUA3* 
*_*_•*_*_#_*_•*_•*_# 

* ERROR- *X 

* CANNOT * 

* EQUATE * 
*********** ****** 



NC .* THIS A 
...*. VARIAELE 



.* 
.* 

YES 



*****B4********** 
*INTDCT D0A2* 
*_*_*_*_*_*_*_*_* 

* SEARCH *. 

* DICTIONARY * 

* * 
***************** 

•FINAL 
.RETURN 



**** 

* * 
•X* A2 * 

* * 
**** 



AL0C06 X 

*****C2 ********** 

* * 

* RESTORE * 

* DICTIONARY * 

* POINTER * 

* * 
***************** 



***** 
*DI * 
* A2* 



*****D2** ******** 
*EGSRCH DMA2* 



*-*- 



_*_*_ 



* LOOK UP * 

* VARIABLE * 

* IN EQUTAB * 
***************** 



E2 *. 

.* *. 

IS 

ROOT IN 

. COMMON 

*. .* 

*. .* 

* YES 



*****£ 3*** ******* 
* 
* 
• X* 



COMPUTE 
ADDRESS 



***************** 



ALCC03 X 

*****F2** ******** 
*REMCVE VAFIAELE* 
*FRO^ DICT CHAIN* 
* AND MOVE AS- * 
*SIGNED ADCRESS * 
*TC CHAIN FIELD * 
***************** 



ALCC04 X 

*****G2********** 
*SCRSYM DFA2* 
*_#_*_*_*_*_*_*_# 

* ENTER INTO * 

* SOURCE SYMBOL * 

* TABLE * 
***************** 



X 
***** 

*D0 * 
* B2* 
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***** 
*DI * 
* A2* 



LDCN X 

***** A2 ******* 

* SET * 

* SWITCH FOR 

* INTERROGATE 

* DICTIONARY 

* Ml' * 
************** 



LDCN1 A 

*****A3********** 

* SET PROGRAM * 

* NAME IN ESD * 
...X* BUFFER TO *. 

*OUTPUT CONTROL * 

* SECTION CARD * 
***************** 



*****A4********** 

*GOFILE DTA2* 

*—*—*—*—*—*—*—*—* 

. X*OUTPUT CONTROL *. 

* SECTION CARD * 

* * 
***************** 



*****A5 ********** 

* PUT ENTRY * 

* POINT IN * 
.X* ESD BUFFER TO * 

* OUTPUT ENTRY * 

* CARD * 
***************** 



**** 



**** 



*****B2 ********** 
*INDCT D0A2* 
*-*-*—*—*-*—*-*-* END 

* SEARCH *... 
*CICTIONARY FOR *RETU 

* ENTRIES * 
***************** 



RN X 
***** 
*DJ * 
* A2* 



**** 

* * 

* B2 *X. 



NO .* ANY *. 
,..*• VARIABLES IN • 
*. COMMON .* 



*****B5 ********** 

*GOFILE DTA2* 

*-*—*—*—*—*—*-*_* 

. * OUTPUT * 

* ENTRY * 

* CARD * 
***************** 



NC .*IS ESD EIT * 
...*.SET FOR THIS 
*. ENTRY .* 



*DI * 




* C2* 




. ***** 




• X. 


_DCN4 


D2 *. 


*****D3********** 


*. 


♦ASSIGN ADDRESS * 


IS THIS *. YES 


*REMOVE VARIABLE* 


A DUMMY .*. 


••X* FROM DICT * 


.* 


* CHAIN * 


.* 


* * 


*. .* 


***************** 


* NO 


• 



*****C4********** 

* SET COMMON * 

* AND NUMBER * 

* OF BYTES IN * 

* COMMON IN * 

* ESD BUFFER * 
***************** 



*****D4**** ****** 
*GO FILE DTA2* 
#_#_*_*_*_*_*_*_* 

♦OUTPUT CONTROL * 

* SECTION CARD * 

* * 
***************** 



E2 *. 
.* *. 
.* IS THIS *. YES 
*AN EXT FUNCTION*... 
*. .* 

*• •* 
*. .* 
* NO 



X 

***** 

*DO * 

* E2* 

* * 



F2 *. 

NO .*" IS THIS 
...*. AN IN-LINE 
*. FUNCTION • 
*. .* 
*• • * 
* YES 



LDCN2 X 

*****G2 ********** 
*PUT APPROPRIATE* 

* CODE NUMBER * 
....*INTC DICTIONARY* 

* CHAIN * 



***************** 



*****H2** ******** 
*ESD DGA2* 

*_# _*_#_* _#_*_*_* 

.*GENERATE AN ESD*X. 
*+ RLD ENTRY FOR* 
* THIS SYMBOL * 
***************** 



X 
***** 

*DO * ID004 
* B2* 
* * 
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***** 
*DJ * 
* A2* 



ASSNEL X 

*****A2 ********** 



INITIALIZE 
REGISTER 



***************** 



ASSNEA X 

*****B2 ********** 

* GET CHAIN * 

* ADDRESS * 

* FROM THUMB *X. 

* INDEX * 





***************** 




**** . 




* * • 




* C2 *.X. 




* * • 




**** # 




ASSN1 .X. 


*****ci ********** 


C2 *. 


* * 


.* *. 


* GET ADDRESS * 


.* END *. YES 


* CF NEXT ENTRY *. .. 


X*. OF •* 


* IN CHAIN * 


*. CHAIN .* 


* * 


*. .* 


***************** 


*• • * 


X 


* NO 



*****D 1 ********** 
* 
* 
*X. 



SKIP 

THIS 

STMT NO. 



***************** 



D2 *. 
.* IS *. 

YES .*THIS STMT. *. 
....*NC. FOR FORMAT 
*. OR SPEC .* 
*.STMT .* 
*. .* 
* NO 



• X. 
E2 *. 
.* WAS *. 
NC .* STMT NC. 
...*. REFERENCED 



C3 *. 

.* LAST **. YES 
X*. CHAIN .*.... 
* • •* 



*****C4********** 

* UPDATE * 

* LOC CTR * 
X* BY SIZE OF * 

* BRANCH LIST * 

* * 
***************** 



X 
***** 

*DK * 

* A2* 

* * 



*****F2 ********** 

* PUT BRANCH * 

* LIST NUMBER * 

* IN CHAIN ANC * 

* UPDATE ERANCH * 

* LIST NUMBER * 
***************** 
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***** 
*DK * 
* A2* 



SSCK X 

*****A2 ********** 



* INITIALIZE 



***************** 



SSCK1 X 

*****B2** ******** 

* GET CHAIN * 

* ADDRESS * 

* FROM THUMB *X 

* INDEX * 

* * 
***************** 



NO 



•* END *. YES 
*. OF .*...- 
*. CHAIN •* 



C3 *. 
• * * • 

.* LAST * 
•X*. CHAIN 



X 
***** 

*DL *SORLIT 
* A2* 

* * 



.SSCK6 .X. 

D2 *. 
.* IS *. 
•YES .* THIS *. 
• X..*. ENTRY •■» 
*. ZERO .* 



•SSCK7 X 

*****E2** ******** 

* PUT ASSIGNED * 

* ADDRESS OF * 
•* REFERENCED * 

* VARIABLE INTO * 
*SLBSCRIPT CHAIN* 
***************** 
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***** 
*DL * 
* A2* 



SORLIT X 

*****A2** ******** 



INITIALIZE 



***************** 



SRLTXX X 

*****B2** ******** 

* GET CHAIN * 

* ADDRESS * 

* FOR * 

* INTEGERS * 

* * 
***************** 

**** . 

* * • 

* C2 *.X. 

* * .X 

**** . 
SLIT2 .X. 

C2 *. 

.** END **• NO 
...X*. OF .*••• 
*. CHAIN .* 
*. .* 



SLIT3 

*****C 3* ********* 
*TXT DSA2* 

*-*_*_*_*_*_*_*_* 

..•X* PUT LITERAL *. 

* OUT ON TEXT * 

* CARD * 
***************** 



SLIT4 
*****D1 ********** 

* GET CHAIN * .* 

* ADDRESS * INTEGER .* 
.'X* FOR *X *• 

* RCAL * *. 



* YES 



WHICH 
CHAIN 



***************** 



**** 

* * 

* Dl * 

* * 
**** 



SLIT4A X 

*****E2** ******** 

* GET CHAIN * 

* ADDRESS * 

* FOR DOUBLE * 

* PRECISION * 

* * 
***************** 



SLIT5 

***** 03*** ******* 

*ESD DQC4* 

DOUBLE *_*_*_*_*_*_*_*_* 

* X* CLOSE ESD/ *X. 

PRECISION* RLD CARD * 

* BUFFERS * 
X ***************** 

**** # 

* * . 

* Dl * 

* * . 
**** . 

SLIT6 X 

*****E 3* ********* 
*TXT DSG3* 

*_*_*-*_*_*_*_*_* 

* CLOSE TEXT * 

* CARD BUFFERS * 



SLIT3A 

*****C4**** ****** 

*SORSYM DPA2* 

*—*—*—*—*—*—*—*—* 

• ».X* ENTER * 

* SYMBOL INTO * 

* STORAGE MAP * 
***************** 



***** 
*DL * 
* D3* 



***************** 



*****F2** ******** 

* ADJUST * 

* LOCATION * 

* CTR TC * 

* DOUBLE WORD * 

* EOUNDARY * 
***************** 



****F3********* 

* EXIT TO FSD * 

* TO LOAD * 

* PHASE 14 * 
*************** 
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***C2******* 
FOUNC 
RETURN 



**C3*******' 
NOT FOUND 
RETURN 



ENTER1 X 

*«***D4**«* 

* ENTER 

* VARIABLE, 

* ROOT. 

* DISPLACEMENT 



***#*E1 ******* 

* SET ROOT * 

* INDICATOR 

* FOR VARIABLE 

* BEING 

* ENTERED * 



FIND 
GROUP 
SIZE 



*F2********* 

GET 
COMMON 
ADDRESS 






COMMON 
EXTENDED 
. FORWARD , 



•«***G5****** X ' 

* ADJUST 
X* LOCATION 

* COUNTER 



COMMON 
EXTENDED 
•'. BACK 



COMMON 
EXTENDED 
BACKWARD 



* ADDR ON * 

DOUBLE WORD 
*. BOUNDARY .* 



* INCONSISTENT 



**J4********** 

INCREMENT * 

TABLE * 

ENTRY * 

COUNT * 



*#**K4***** 
* RETURN 
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SWROCT X 
•EGSRCH 



FIND NEW 

ROOT AND SA 

AODRESS 



SET EQUATED 
BIT FOR 
OLD ROOT 



SET 

NEW ROOT 

D.P. 



RESET NEW '■ 
ROOT EQUATED 

BIT < 



X SWOl 

»*«»*G2*» ***«**»* **#»#g3#*»#»jhhh 

*EGSRCH DMA2* * ENTER NEW 

NOT«-*-*-*-*-*-«-*-* FOUND * ROOT AND NEW 

* LOOK FOR OLD *...... ..X* DISPLACEMENT 

FOUND»ROOT VAR ENTRY * * 



***»H3*******»»* 



IS COMMON i 
EXTENDED 
. FORWARD ,'■ 



SW05 .X. 

J5 *. 

NO .* COMMON 



COMMON 
EXTENDED 
BACKWARD 
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***** 
*D0 * 
* Al* 



INTDCT X 

*****A2********** 

* INITIALIZE * 

* REGISTERS * 

* AND POINTERS * 

* FCR SEARCH * 

* * 
***************** 

**** . 



*DC *.X. 
* E2* 
**** „ 
TD004 .X. 

B2 *. 
• * * • 
.* ANY MORE *. NO 
*. DICTIONARY .*... 
*. ENTRIES .* 
*. • * 
*. .* 
* YES 



ID003 

****B 3*** ****** 



•X* RETURN * 
* * 

*************** 



*****C2********** 

* * 

* GET * 

* DICTIONARY * 

* ENTRY * 

* * 
***************** 



IDTEST X 

*****D2** ******** 

* BRANCH * 

* ACCORDING TO * 

* SWITCH SET IN * 

* SUBROUTINE * 

* * 
***************** 



• SWITCH SETTING • SUBROUTINE • BRANCH LOCATION . 
.*********************************************** . 
00 • ALOC • DHA2 



01 

10 

'll* 



SALO 

DPALOC 

LDCN 



DGA2 

DFA2* 

DIC2 
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***** 
*DP * 
* A2* 



SCRMAF X 

*****A2********** 

* * 

* GET * 

* BUFFER « 

* POINTER * 

* * 
***************** 



SCRIYF3 .X. 

B2 *. 

.* HAS *. 
.* HEADING *. NO 
*,EEEN PRINTED .*... 
*.FOR THIS .* 
CATEGORY 
*. . * 
* YES 



*****B3 ********** 

* SET UP * 

* PROPER * 
.X* HEADING * 

* IN PRINT * 

* BUFFER * 
***************** 



*****C2** ******** 

* MOVE DATA * 

* AND ADDRESS * 

* TO PRINT *X 

* BUFFER * 

* * 
***************** 



******C 3*** ******** 



PRINT 
HEADING 



************* 



IS 

BUFFER 

FULL 



MAP1A 

******D3*********** 

* PRINT * 
..•X A LINE 

* OF DATA * 

************* 



MAP1E X 

*****E2* ********* 

* UPDATE * 

* BUFFER * 

* POINTER *X. 



***************** 



****F2 ********* 

* * 

* RETURN * 

* * 
*************** 
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***** 
*DQ * 
* A2* 



****A 1 ********* 
ft « 

* RETURN * 
ft * 

*************** 



*****A2********** 



* GET * 
*EUFFER POINTER * 



***************** 



• NC 
.*. 

Bl *. 

.* *. 

.* IS GO OR *. 
*. DECK OPTION .*X. 
*. SET .* 



*****B2********** 

ft * 

♦ASSIGN ADDRESS * 

.* CONSTANT * 

* ADDRESS * 

* * 
***************** 



*****C2** ******** 

* MOVE ESD * 

* SYMBOL INTO * 
•X* CURRENT CARD * 

* IMAGE BUFFER * 

* * 
***************** 



***** 
*DQ * 
* C4* 



PCHESD X 

* ****C4 ******* 

* * 

* SET END 

* SW FOR RLD 

* ROUTINE 

* * 
************** 



ESDC 

*****E l********** 

* * 

* INITIALIZE * 
*ES1D AND NUMBER*X. 

* OF BYTES * 

* * 
***************** 



ESDA X 

*****F 1 ********** 



* UPDATE BUFFER * 

* POINTER *X. 



** -ft** D2* ********* 

* * 

* UPDATE ES1D * 



***************** 



E2 



• *IS CURRENT * 
. CARD BUFFER 
*. EMPTY .* 



ESDD 

*****E 3 ********** 



ONE .* HOW MANY *. THREE * 
....♦ENTRIES IN THIS*........X* 

*. BUFFER .* * 



UPDATE NUMBER 
OF BYTES 



ESDE X 

*****E4** ******** 
*GOFILE DTA2* 
*_*_* _*_■*_# _#_*_* 



* X*TO OUTPUT CARD 



* TWO 



*****F2** ******** 



* UPDATE NUMBER * 
.* OF BYTES * 



***************** 



***************** 



***************** 



***************** 



*****F4********** 

* * 

* SELECT AND * 

* CLEAR OTHER * 

* BUFFER * 

* * 
***************** 



X 
***** 
*DR * 
* A2* 



***** 

*DR * TO RLD 

* A2* 



X 
***** 

*DR * 
* A2* 
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***** 
*DR * 
* A2* 



RLD X 

*****A2********** 

* GET RLD CARD * 

* BUFFER * 

* POINTER * 



***************** 



• X. 


RLD2 •*. 


B2 *. 


B3 *. 


* WAS *. 


.* IS * 


END *• YES 


.* THIS 


SWITCH •*•••• 


►•••X*» BUFFER 


SET BY .* 


*. EMPTY 


*. ESD •* 


*. „* 


*• • * 


*. .* 


* NO 


* NO 



*****C2** ******** 

* PUT LOAD * 

* CONSTANT * 

* ADDRESS * 

* AND ESID * 

* TO BUFFER * 
***************** 



*****D2** ******** 

* UPDATE * 

* NUMBER * 

* OF BYTES * 



***************** 



E2 *. 
* IS *• 

THIS * 
BUFFER 

FULL .* 



RLD1 X 

*****F2** ******** 

* * 

* UPDATE * 

* BUFFER * 

* POINTER * 

* * 
***************** 



RLD3 X 

*****E3********** 
*GOFILE DIA2* 
#_*_*_*_*_#_*_*.-* 

• ..X* TO * 

* OUTPUT * 

* CARD * 
***************** 



*****F 3** ******** 

* SELECT * 

* AND CLEAR * 

* NEXT * 

* BUFFER * 

* * 
***************** 



****G3*** ****** 

* * 
•X* RETURN *X. 

* * 
*************** 
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178 



*****A2 ********* 

* ASSIGN 

* ADDRESS 

* TO DATA 
* 
**************** 



•*IS DECK*. 
* OR GC 
OPTION SET 



.X* J3 * 



***C2 ********** 

PUT PROGRAM * 

BUFFER * 

POINTER * 



***************** 



*****D2****** 

* PUT TXT 

* DATA TO 

* BUFFER 



********* 



t******* 



UPDATE 

NUMBER 

OF BYTES 



*****F1**** ****** 

* SET UP * 

* FIRST * 

* ADDRESS *X 

* IN BUFFER * 

***************** 



*THIS FIRST 
ENTRY CN 

*. THIS 

*.CARO .* 



TXT1 X 

*****G2****** 

* UPDATE 

* BUFFER 
...X* POINTER 



************** 



THIS 

BUFFER 

EMPTY 



********** 



TXT4 X 

*****J3******* 

* SELECT 

* AND CLEAR 

* NEXT 

* BUFFER 



****K3********* 

* * 

* RETURN * 

* * 
*************** 



Chart DS. Subroutine TXT 
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***** 
*DT * 
* A2* 



GOFILE X 

*****A2 ********** 



INITIALIZE 



***************** 



*****B2* ********* 

* UPDATE * 

* CARD * 

* SEQUENCE * 

* NUMBER * 

* * 
***************** 



*****C2 ********** 

* PUT PROGRAM * 

* NAME AND * 

* CARD SEQ * 

* NUMBER * 

* TO CARD * 
***************** 



• X. 

D2 *. 

.* IS *. 

.* COMPILE *. NO 
*.AND GO OPTION.*.... 
*. ON .* 
*. .* 



*****E2********** 



WRITE GO 
FILE 



***************** 



.* IS *. NO 
*. DECK OPTION .*..« 
*. ON .* 
*• .* 
*. .* 
* YES 



GCFL2 X 

*****G2** ******** 



PUNCH 
CARD 



***************** 



****H2********* 

* * 

* RETURN * 

* * 
*************** 



Chart DT. Subroutine GOFILE 
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***** 
*DU * 
* A2* 



***** 

*DU * 
* A3* 



ALOWRN X 

*****A2********** 

* SET WARN * 

* SWITCH * 

* AND * 

* ADJECTIVE * 

* CODE * 
***************** 



ALERET X 

*****A3********** 

* SET ERROR * 

* SWITCH * 

* AND * 

* ADJECTIVE * 

* CODE * 
***************** 



ALOER1 

*****B2********** 

* ADD PROPER * 

* ADJECTIVE * 

* CODE TO * 

* ERROR * 

* NUMBER * 
***************** 



*****C2 ********** 

* PUT ERROR * 

* MESSAGE * 

* TO OUTPUT * 

* BUFFER * 

* * 
***************** 



*****D2 ********** 

* UPDATE * 

* OUTPUT * 

* POINTER * 



***************** 



E3 *• 
* IS *• 
OUTPUT *. YES 

BUFFER •* 

FULL .* X 

*. % * ***** 

*• .* *DL * 

* NO * D3* 

* * 



EXIT TO 
PHASE 14 



****F 3 ********* 

* -51 

* RETURN * 

* * 
-**•***•*•*-*#*•*••**■*■* 



Chart DU. Subroutine ALERT/ALOWRN 
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PHASE 14 



Phase 14 reads the intermediate text 
created by Phase 10 and replaces any 
dictionary pointers with information 
accessed from the dictionary. Phase 14 
converts intermediate text for FORMAT 
statements to an internal code that is used 
by IBCOM to place input and output records 
into a format specified for the object 
program. 



Chart 05 , the Phase 14 Overall Logic 
Diagram, indicates the entrance to and exit 
from Phase 14 and is a guide to the overall 
functions of the phase. 



The adjective code of the first inter- 
mediate text entry for a statement indi- 
cates the type of statement and which 
subroutine is to process intermediate text 
entries for the particular statement. 



When an arithmetic statement function 
definition is encountered in Phase 14, a 
unique number is assigned to the arithmetic 
statement function. This number is used to 
identify the statement function in later 
phases. 



In the intermediate text entries for the 
FORTRAN statements, other than the END and 
FORMAT statement, dictionary pointers are 
replaced. If the pointer refers to an 
entry for a variable, constant, array, or 
external function, the address assigned to 
it and placed in the chain field by Phase 
12 is inserted in the intermediate text 
entry. If the pointer refers to a data set 
reference number, that number is inserted 
in the intermediate text entry in place of 
the pointer. If the pointer refers to an 
arithmetic statement function, the arith- 
metic statement function number replaces 
the dictionary pointer. 



All statements except END, FORMAT, 
READ/WRITE, and arithmetic statement func- 
tion definition statements are processed 
similarly by Phase 14. 



As the entries are updated, they are 
written on the intermediate text output 
tape for Phase 14. 



When Phase 1 4 reaches the intermediate 
text entry for the END statement, it puts 
that entry on the intermediate text output 
tape and then continues to access text 
words, putting out any error entries fol- 
lowing the END statement. 



Upon encountering intermediate text for 
a FORMAT statement, Phase 14 converts that 
text to an internal code used by IBCOM at 
object time. If requested, the code is 
written on the GO tape and/or punched on a 
text card. The code consists of a 1-byte 
FORMAT adjective code and a 1-byte field 
containing a binary number associated with 
the FORMAT adjective code. 



READ/WRITE STATEMENTS 



The READ/WRITE text entries are scanned 
for implied DOs which are recognized by a 
left parenthesis within a READ/WRITE state- 
ment. For each encounter, an implied DO 
adjective code is inserted in the inter- 
mediate text entries for the READ/ WRITE 
statement. When the end of an implied DO 
is recognized (right parenthesis) , an end 
DO adjective code is inserted in the inter- 
mediate text. The entries for READ/WRITE 
statements are rearranged so later phases 
of the compiler may process them. 



When Phase 14 processes READ/WRITE 
statements, it checks for any implied DOs, 
inserts implied DO adjective codes in the 
intermediate text, and puts the text 
entries for the implied DOs into a new 
format. 



The implied DO variable and parameters 
are placed ahead of the subscripted varia- 
ble. The entries for the offset, dimension 
pointer and the subscript pointer are 
placed ahead of the entry for the variable 
itself. If an implied DO: 

(A (I) ,1=1,10) 
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is processed by Phase 10, the output has 
the format shown in Figure 43. 



[Adjective j 

I Code j Mode/ Type 

h 



I ( 



| real 

j subscripted 
variable 



,. + 

JSAOP j 00 

j p (dimension) 



Offset 



h 

I 
I, 



T 

| integer 
(variable jp(I) 

j immediate 

| DO parameter|1 

j immediate 

j DO parameter) 10 



Pointer 
Field 



P(A) 



H 



p (subscript) 
^ 



|) 1 00 |0000 

l x x 



^ 



Figure 43. Implied DO Text Input to Phase 
14 



After Phase 14 has processed the implied 
DO, the intermediate text output takes the 
format shown in Figure 44. 



ARITHMETIC STATEMENT FUNCTION DEFINITIONS 



Each arithmetic statement function (ASF) 
must be defined before it can be used in 
another statement. When Phase 14 encoun- 
ters an ASF definition, a number is 
assigned to that function. A counter, 
reserved in the communications ar^ea, is 
initialized at zero and incremented by 1 
each time an ASF number is assigned. The 
ASF number is placed in the chain field for 
the ASF dictionary entry. 

When a statement that references the ASF 
is encountered, the dictionary entry for 
the ASF is accessed. The ASF number is 
placed in the pointer field of the inter- 
mediate text entry for the statement that 
references the ASF. 



FORMAT STATEMENTS 



FORMAT statements are converted to an 
internal code which is accessed and used by 
IBCOM to place input and output records 
into the format specified for the object 
program. The internal code is written on 
the GO tape and/or text cards, depending on 
the user's options. 



Adjective | 

Code | Mode/ Type 

+- 



implied DOJ00 



Pointer 
Field 
| 

0000 



| integer 
variable 



| immediate 
j DO parameter 



h 



j immediate 
j DO parameter 



| immediate 
j DO parameter 

begin I/O | 00 
+ 



SAOP 



I 00 



~+ 



p (dimension) 



( 



| real 
j subscripted 
variable 



^ 



address (I) 



— ^ 



10 



1 

0000 






Offset 

_ .j 

p (subscript) 



address (A) 



jend DO 

L 



| 00 

-X 



I 0000 



Figure 44. Implied DO Text Output from 
Phase 14 



STRUCTURE OF A FORMAT STATEMENT 



A FORMAT statement is composed of a 
series of format specifications, establish- 
ing the format of the input and output 
records for a FORTRAN object program. 

The field length for a FORMAT specifi- 
cation is the number of bytes reserved in 
the input or output record for the variable 
in the record. The field length is the 
number located immediately to the right of 
the format code. In the specification 16, 
the number 6 represents the field length. 
Six positions are reserved in the record 
for any variable using this specification. 

The decimal length is the number of 
bytes reserved for decimal places within 
the field. In a format specification using 
a decimal length, the decimal length is the 
number following the decimal point. The 
point is located immediately to the right 
of the field length. In the specification 
F10.2, the number 2 represents the decimal 
length and the number 10 represents the 
field length. The field length must be 
large enough to contain the number of 
decimal places, a decimal point, a sign, 
and an exponent if there is one for the 
specification. 



Phase 14 



183 



The field count represents the number of 
times a conversion is to be repeated for an 
I/O list. In a format specification using 
a field count, the field count is the 
number located immediately to the left of 
the format code. In the specification 
5F10.2, the number 5 represents the field 
count. This means that the conversion 
F10.2 will be repeated 5 times in an 
input/output record. 



Format specifications may be repeated by 
enclosing them in parentheses. The format 
specifications within the parentheses is 
called a group. In the FORMAT statement. 



10 FORMAT (16, F12. 5, (F10. 2,14) ) 



FORMAT TEXT CARD 



FORMAT statements are translated into an 
internal representation used by IBCOM to 
place input/output records into a format 
specified for the object program. The 
internal representation is a series of 
1-byte hexadecimal numbers (two hexadecimal 
digits for each byte) . A byte may contain 
a FORMAT adjective code, which indicates 
either the format conversion (H, I, F, P, 
X, etc.) to IBCOM, or a group or field 
count, or the end of a FORMAT statement. 
The byte may also contain a number that 
represents a field count, field length, 
group count, or decimal length. There are 
four ways bytes may be entered into a text 
card. 



(F10.2,I4) is a group. After the first two 
fields are processed, the variables follow- 
ing in the I/O list for the input state- 
ments alternate with the specifications 
F10.2 and 14. 



A group may be repeated any number of 
times by placing a number immediately 
preceding the left parenthesis that defines 
a group. This number is called the group 
count. In the FORMAT statement. 



Adjective Code and Number 



An adjective code followed by a number 
is entered for format specification P, I, 
T, A, and X, and for entries made to 
indicate a field or group count. The 
number entered along with the correct 
adjective code for each specification is as 
follows: 



10 FORMAT (I6,F12.5,7 (F10.2,I4) ,D9.3) 



the number 7 represents the group count. 
The group (F10.2,I4) is repeated 7 times 
for the I/O list referencing this FORMAT 
statement . 



The length of a record is determined by 
information in a FORMAT statement- In the 
statement , 

20 FORMAT(F7.3,5X,4F15.7, 'HOG') 

75 bytes constitute the record length. In 
the FORMAT statement, 

30 FORMAT (F20. 4, 4110/6 (12, 4X) . 5HSTEEL) 

two records are represented. The two 
records are separated by the character /. 
The first record is 60 bytes long, and the 
second is 41 bytes long. 

A user has the option of specifying a 
length (referred to as a specified length) 
for records through a control card. The 
specified length is compared to a record 
length that is computed by Phase 14 as it 
processes the FORMAT statement. If the 
record length exceeds the specified length, 
a warning message is issued. 



1. P specification: the scale factor is 
entered as the number. 

2. ♦! and A specifications: the field 

length is entered as the number. 

3. T specification: the record position 
is entered as the number. 

4. X specification: the number of blanks 
to be inserted on output or the number 
of characters to be skipped on input 
is entered as the number. 

5. Field count: the actual field count is 
entered as the number. 

6. Group count: the actual group count is 
entered as the number. 

An example that illustrates the preced- 
ing text card entries is the group 
5(12,110) . The text card entry for that 
group is 04051 0021 00A. The entry is com- 
prised of three parts: 0405 for the group 
count; 1002 for 12; and 100A for 110. In 
each case, the first two hexadecimal digits 
represent the adjective code, while the 
last two represent the associated number. 



Adjective Code 



Entries consisting of only the adjective 
code are made for a slash, the right 
parenthesis that ends a group, or the right 
parenthesis that ends a FORMAT statement. 
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Adjective Code, Field Length, and Decimal 
Length 



An adjective code followed by a field 
length and a decimal length are entered in 
the format text cards for D, E, or F 
specifications. For example, the specifi- 
cation F9.3 is entered in a text card as 
0A0903 where OA is the adjective code, 09 
is the field length, and 03 is the decimal 
length. 

If the format specification +2PF9.3 is 
entered in a FORMAT statement, the code is 
entered in the text card as 08020A0903. 
The scale factor is denoted by 0802. 



Adjective Code, Field Length, and Literal 



An adjective code followed by a field 
length and a literal is entered in a text 
card for H and quote specifications. The 
specification 5HTIMER is - entered as 
1A05TIMER in the text card. The same entry 
is generated for the specification 'TIMER'. 



The subroutines in charts EH through EO 
are used exclusively to process FORMAT 
statements. Chart 21 illustrates the over- 
all logic of FORMAT processing. Subroutine 
FORMAT (Chart EH) initializes processing 
for each FORMAT statement and the format 
specifications within a statement. Subrou- 
tine D/E/F/I/A (Chart EI) processes D, E, 
F, I, and A specifications. Subroutines 
QU0TE/H,X (Chart EJ) process format speci- 
fications for literal, H, X specifications. 
Subroutines +/-/P, BLANKZ, FILLEG, FCOMMA 
(Chart EK) process P specifications and 
blanks, commas, and illegal delimiters 
found in a FORMAT statement. Subroutines 
LPAREN, RPAREN (Chart EL) process any 
parentheses found in a FORMAT statement. 
Subroutines T, FSLASH process the T speci- 
fications and any slash found in the state- 
ment. Subroutines LINETH, LINECK FLdCNT, 
NOFDCT (Chart EN) perform operations con- 
cerning the record length and field counts 
for a FORMAT statement. Subroutines GETWD- 
A, INTCON (Chart EO) are used to scan 
FORMAT statements and convert any integers 
in the statement to binary number. 



Subroutine PRESCN: Chart EA 



SUBROUTINES 



A section of Phase 14 is devoted to 
processing FORMAT statements, exclusively. 
The other subroutines in Phase 14 process 
all statements, except FORMAT statements. 

Subroutine PRESCN gets the first inter- 
mediate text word for a statement and 
passes control to the Phas^ 14 subroutine 
for that statement (Chart EA) . The adjec- 
tive code subroutines (Chart EB) process 
all statements except READ/WRITE, DO, and 
FORMAT. Subroutine PINOUT, INOUT, 
MSG/MSGMEM, CEM/RDPOTA (Chart £c) are util- 
ity subroutines used by Phase 14. 

Subroutines ERROR/WARNING, UNITCK/UNIT1 
(Chart ED) are closed subroutines used by 
Phase 14 subroutines. Subroutine 
ERROR/WARNING processes error or warning 
conditions; subroutine UNITCK/UNIT1 proc- 
esses symbols, used to represent data set 
reference numbers. 

Subroutines PUTFTX, ININ/GET, GOFILE 
(Chart EE) are used by all Phase 14 subrou- 
tines to initiate I/O operations for the 
phase. Subroutine DO, CKENDO (Chart EF) 
are used to process DO statements, and to 
determine if a statement has invalidly 
ended a DO loop. Subroutine READ/WRITE 
(Chart EG) processes READ and WRITE state- 
ments in Phase 14. 



Subroutine PRESCAN performs initializa- 
tion for Phase 14. PRESCN checks the 
adjective code of the first intermediate 
text entry for each statement and calls the 
correct Phase 14 subroutine to process 
intermediate text for that statement. 



ENTRANCES; 
from: 



Subroutine PRESCAN is entered 



1. The FORTRAN System Director, after 
Phase 14 has been read into main 
storage, for initialization. 

2. Subroutine MSG/MSGMEM, after entries 
are moved to the intermediate text 
output buffers. 

3. Subroutine LABEL DEF, after a state- 
ment number has been entered in the 
intermediate text output buffers. 

4. Subroutine LPAREN, when the closing 
left parenthesis for a FORMAT state- 
ment is recognized. 

OPERATION; When PRESCN is entered from the 
FORTRAN System Director, PRESCN begins to 
process entries by setting pointers to the 
beginning and end of the intermediate text 
input and output buffers. 

Subroutine PRESCN is entered only for 
the first entry in the intermediate text 
for a FORTRAN source statement. The adjec- 
tive code of this first entry indicates the 
type of source statement that caused Phase 
10 to generate the following series of 
intermediate text entries. With the adjec- 
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tive code, PRESCN can index to the correct 
position in a branch table. The address in 
the branch table directs the processing of 
Phase 14 to the proper subroutine. 

The adjective code indicates if the 
statement is a keyword statement (and what 
kind of keyword) , an arithmetic statement, 
or the definition of an arithmetic state- 
ment function. It also indicates if there 
is an error or warning entry in the inter- 
mediate text. 



EXIT: 



Subroutine PRESCN exits to the sub- 



routine indicated by the adjective code. 



Adjective Code Subroutines; Chart EB 



The adjective code subroutines process 
all intermediate text entries in Phase 14 
except the READ/WRITE, DO, and FORMAT 
statement entries. Several subroutines 
process intermediate text in the adjective 
code subroutines. Subroutine PRESCN deter- 
mines the type of intermediate text entry 
to be processed and gives control to the 
correct adjective code subroutine. 

ENTRANCE ; The adjective code subroutines 
are entered from subroutine PRESCN after it 
determines the current adjective code. 
(The first adjective code entered for a 
statement in the intermediate text indi- 
cates the type of statement to be proc- 
essed.) 

OPERATION: A series of text entries are 
made for each source statement. Separate 
adjective code subroutines control the 
processing of source statements and inter- 
mediate text error entries. The various 
subroutines and their operation are dis- 
cussed in the following paragraphs accord- 
ing to the statements they process. 

SUBROUTINE/FUNCTION Statements: Subroutine 
SUBFUN controls the processing for FUNCTION 
and SUBROUTINE statement entries in inter- 
mediate text. SUBFUN replaces any diction- 
ary pointers for arguments passed to the 
subprogram with the address assigned to 
those arguments in Phase 12. 

In Phase 10, when the FUNCTION or SUB- 
ROUTINE statement was translated into 
intermediate text, the mode/type code for 
the arguments was not entered in the inter- 
mediate text. Mode/type for the arguments 
was established as the statements in the 
subprogram were processed by Phase 10. In 
Phase 14, the dictionary entry for each 
parameter is accessed and the mode/type 
code is inserted into the intermediate 
text. 



Computed GO TO, GO TO, CALL, IF, Arithmetic 
Statements: Subroutine PASSON processes 
intermediate text entries for these state- 
ments. It scans the intermediate text 
until it reaches an end mark entry, and 
replaces each dictionary pointer encoun- 
tered during the scan, with the assigned 
address for that symbol. 



BACKSPACE, REWIND, END FILE Statements: 
Subroutine BSPREF processes the intermedi- 
ate text entries for the BACKSPACE, REWIND, 
and END FILE statements and checks if a 
valid symbol identifies the data set ref- 
erence number. Subroutine BSPREF then 
passes control to subroutine PASSON to 
search for the end mark entry. 

Arithmetic Statement Function Definitions: 
Subroutine ASF processes intermediate text 
entries for arithmetic statement function 
definitions. A unique number, in sequence 
from 01, is assigned to each arithmetic 
statement function in the program. 

When subroutine ASF is entered, the 
arithmetic statement function count is 
incremented by 1 , and the count is moved to 
the dictionary entry for the name of the 
function. The intermediate text dictionary 
pointer is also replaced by the count. 
Subroutine ASF then passes control to sub- 
routine PASSON to replace all pointers with 
actual addresses and search for the end 
mark entry. 

Error/Warning Intermediate Text Entries: 
Subroutine ERWNEM processes intermediate 
text entries for errors, warnings, and end 
marks. These entries are not changed by 
Phase 14, but are moved from the intermedi- 
ate text input buffer directly to the 
intermediate text output buffer. 

CONTINUE Statements: Subroutine SKIP proc- 
esses CONTINUE statements. The subroutine 
does not change the intermediate text 
entry; it moves the entry from the input to 
the output buffer. 

RETURN Statements: Subroutine RETURN proc- 
esses RETURN statements. RETURN calls sub- 
routine CKENDO to determine if a RETURN 
statement invalidly ends a DO loop. If it 
does not, a check is made to determine if 
the RETURN statement appears in a main 
program. If so, the adjective code is 
changed to STOP. The intermediate text 
entry is moved to the output buffer. 



PAUSE Statements : 



Subroutine PAUSE proc- 
esses the PAUSE statements. Subroutine 
PAUSE calls subroutine CKENDO to test for 
an illegal end DO. 

There are three text entries made for an 
errorless PAUSE statement: 
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1. An adjective code for PAUSE. 

2. The number identifying the PAUSE. 

3. The end mark entry. 

The first entry is written on the inter- 
mediate text output tape. Subroutine SKIP 
places the second entry on that tape; 
subroutine MSG/MSGMEM, the end mark entry. 



STOP Statements : Subroutine STOP controls 
the processing of STOP statements. Subrou- 
tine STOP calls subroutine CKENDO to test 
for an illegal end DO. There are three 
text entries made for the STOP statement: 

1. An adjective code for STOP with zero 
entries for the mode/ type and diction- 
ary pointer fields. 

2. Zero entries in the adjective and 
mode/type fields and the number iden- 
tifying the STOP in the pointer field. 

3. The end mark entry. 



The first entry is moved unchanged from 
the input to the output buffers. Subrou- 
tine SKIP moves the second entry unchanged 
to the output buffers? subroutine 
MSG/MSGMEM, the end mark entry. 



EXITS: The adjective code subroutine exit 



to: 



2. 



3. 



Subroutine MSG/MSGMEM to process the 
end mark entry for the adjective code 
subroutines. 

Subroutine PRESCAN to process the ser- 
ies of intermediate text entries for 
the next statement. 

FORTRAN System Director to read Phase 
15 after the entry for the END state- 
ment has been processed. 



SUBROUTINES CALLED: During execution the 
adjective code subroutines reference the 
following subroutines: 



1 . RDPOTA to replace a dictionary pointer 
by the assigned address. 

2. CKENDO to test for an illegal end DO. 

3. UNITCK/UNIT1 to check for the validity 
of a symbol referencing a data set. 

4. PINOUT to move an input intermediate 
text word to an output buffer. 

5. ERROR/WARNING if an error or warning 
condition is encountered. 



Statement 



Number 



Definition 



Entries: 



Statement number definitions are processed 
by subroutine LABEL DEF. A statement num- 
ber entry, other than for a FORMAT state- 
ment number, is moved unchanged from the 
input buffer to the output buffer. A 
warning is issued for a FORMAT statement 
number which is not referenced. If the 
FORMAT statement ends a DO loop, an error 
is detected. If neither an error nor 
warning is noted, the contents of the 
location counter are inserted in the chain 
address field for the FORMAT statement 
number. (The location counter is incre- 
mented when the FORMAT statement is proc- 
essed, because a FORMAT statement follows 
the statement number entry in the inter- 
mediate test.) The statement number entry 
is moved unchanged from the input to the 
output buffer. 



END Statement : Subroutine END processes 
the intermediate text entries for the END 
statement by moving the unchanged inter- 
mediate text word from the input to the 
output buffer. If other text entries fol- 
low the END statement entry, those text 
words are also moved to the output buffer. 
Subroutine END then writes an end of data 
set on the intermediate text output tape 
and rewinds the input and output tapes. 

Subroutine END calls the FORTRAN System 
Director to read Phase 15 into main stor- 
age . 



Subroutines PINOUT, INPUT, MSG/MSGMEM, 
CEM/RDPOTA: Chart EC 



Subroutine PINOUT 



Subroutine PINOUT moves an intermediate 
text word from an input buffer to an output 
buffer. It increments both the input and 
output buffer pointers for the next inter- 
mediate text word. 



ENTRANCE: Subroutine PINOUT is entered 
from either the adjective code subroutines, 
subroutine READ/WRITE, or subroutine DO 
after a text word is processed, or subrou- 
tine FORMAT. 



OPERATION: Intermediate text words are 
processed by Phase 14 while they are in the 
intermediate text input buffers. Subrou- 
tine PINOUT moves the entire text word to 
an intermediate text output buffer after 
the word has been processed. PINOUT then 
calls subroutines ININ and INOUT to incre- 
ment the input and output buffer pointers. 



EXIT: 



Subroutine PINOUT exits to the call- 



ing subroutine. 
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SUBROUTINES CALLED; During execution sub- 
routine PINOUT references the following 
subroutines: 

1. ININ to increment the input buffer 
pointer, 

2. INOUT to increment the output buffer 
pointer. 



Subroutine INOUT 



Subroutine INOUT increments the output 
buffer pointer to the next available posi- 
tion so Phase 14 may insert the next 
intermediate text word. 



ENTRANCE : 



Subroutine 



by 



INOUT is referenced 

subroutine PINOUT to increment the out- 



put buffer pointer. 

OPERATION: Subroutine INOUT increments the 
intermediate text output buffer pointer by 
four bytes each time it is referenced. 
INOUT then checks the buffer. If it is 
full, the FORTRAN System Director is called 
to write that input buffer on the output 
tape. The next buffer in the double-buffer 
system is selected so the next series of 
intermediate text words can be read as the 
first buffer is being written on the output 
tape. 



OPERATION: Subroutine MSG/MSGMEM is 
entered at two points. The first entry 
point, MSG, is used when a subroutine has 
found an end mark entry. The second entry 
point, MSGMEM, is entered when a subroutine 
has processed intermediate text entries for 
a FORTRAN statement and expects to find an 
end mark entry next in the intermediate 
text buffer. MSGMEM is given control to 
search the intermediate text buffer until 
it finds the end mark entry, ignoring all 
other text entries. 

Subroutine MSG/MSGMEM puts the inter- 
mediate text word for the end mark entry 
into an output buffer, and checks an indi- 
cator to determine if Phase 14 has found 
any error/warning conditions in that series 
of intermediate text entries. If any were 
detected, MSG/MSGMEM puts the corresponding 
message numbers in the output buffer. 



EXITS: Subroutine MSG/MSGMEM exits to sub- 
routine PRESCN to begin processing the 
intermediate text entries for the next 
statement . 



SUBROUTINES CALLED: During execution sub- 
routine MSG/MSGMEM references subroutines: 

1. PINOUT to put out the intermediate 
text entry for the end mark. 

2. INOUT to put out error/warning 
entries. 



EXIT: 



Subroutine INOUT exits to the sub- 



routine that called it. 



SUBROUTINES REFERENCED: Subroutine INOUT 
references the FORTRAN System Director to 
initiate writing a buffer on the output 
tape. 



Subroutine MSG/MSGMEM 



Subroutine MSG/MSGMEM searches for an 
end mark entry in the intermediate text. 
This entry, when found, is moved to the 
intermediate text output buffer. If Phase 
14 has noted further error or warning 
conditions for that statement, subroutine 
MSG/MSGMEM inserts those err or /warning 
entry numbers in the intermediate text 
output buffer. 

ENTRANCE : Subroutine MSG/MSGMEM is entered 
by the adjective code subroutines and the 
FORMAT subroutines when an end mark entry 
should be the next intermediate text entry. 
Subroutine MSG/MSGMEM is entered by subrou- 
tines CEM and READ/WRITE when an end mark 
entry is detected. Subroutine MSG/MSGMEM 
is entered by the FORMAT subroutines where 
an error is detected. 



Subroutine CEM/RDPOTA 



Subroutine CEM/RDPOTA is used to process 
intermediate text entries for arithmetic, 
BACKSPACE, REWIND, END FILE, computed GO 
TO, GO TO, DO, CALL, IF statements, and 
arithmetic statement function definitions. 
A portion of CEM/RDPOTA is used to insert 
the arithmetic statement function number in 
the intermediate text and replace the PAUSE 
library function number with its assigned 
address constant. 

ENTRANCE: Subroutine CEM/RDPOTA is entered 
from subroutines PASSON, PAUSE, and ASF to 
replace dictionary pointers. 



OPERATION: 



Subroutine 

entered at two points 
checks the intermediate 
processed. If it is 



CEM/RDPOTA is 
The first, CEM, 
text word being 
an end mark entry, 
control is passed to subroutine MSG/MSGMEM 
to put out the entry for the end mark. If 
not, subroutine CEM/RDPOTA checks the 
mode/type code in the intermediate text 
entry to determine the item referenced in 
the pointer field. 
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If "the pointer field points to a data 
set reference number dictionary entry , the 
pointer is replaced by the reference num- 
ber • If it does not, the adjective code in 
the entry is checked for a subscript 
expression (adjective code of SAOP) . If 
the code is SAOP, this entry and the next 
entry are moved from the input to the 
output buffer. (These two entries contain 
the offset for the subscript expression and 
pointers to dimension and subscript infor- 
mation.) Control is then returned to the 
subroutine that called subroutine 
CEM/RDPOTA. 

If the adjective code was not SAOP and 
the mode/type code is an immediate DO 
parameter, the entry is moved from the 
input to the output buffer. The subroutine 
exits to the subroutine that called it. 

If the mode/type code is not an immedi- 
ate DO parameter, the mode/type code is 
checked for a dictionary pointer of any 
kind. Any dictionary pointer is replaced 
by the contents of the chain field. (The 
chain field at this time contains either an 
address assigned by Phase 12 or an arith- 
metic statement function number assigned 
earlier by Phase 14.) The word is then 
moved from the input to the output buffer. 

This last portion of coding in subrou- 
tine CEM/RDPOTA may be entered independent- 
ly by other Phase 14 subroutines, if a 
dictionary pointer is to be replaced by the 
contents of the chain field. The portion 
of coding is called RDPOTA. 

EXIT; Subroutine CEM/RDPOTA exits either 
to subroutine MSG/MSGMEM if it detects an 
end mark entry g or to the subroutine that 
called it. 

SUBROUTINES CALLED; During execution sub- 
routine CEM/RDPOTA references subroutine: 

1. UNITCK/UNIT1 to replace a dictionary 
pointer with a data set reference 
number . 

2. PINOUT to move an intermediate text 
word from input to output buffers. 



OPERATION: Subroutine ERROR/WARNING has 
two entry points. One entry point, WARN- 
ING, is used by a Phase 14 subroutine when 
it detects a warning condition. (The dif- 
ference between an error and a warning 
condition was discussed in subroutine 
ERROR/WARNING of Phase 10.) When subrou- 
tine ERROR/WARNING is entered for a warning 
condition, the warning number is placed by 
the calling subroutine in a general reg- 
ister. Subroutine ERROR/WARNING accesses 
the warning number and composes an inter- 
mediate text word for the warning. 

A second entry point is used by a Phase 
14 subroutine when it detects an error 
condition. The calling sequence for errors 
is the same as the calling sequence used to 
enter subroutine ERROR/WARNING in Phase 10. 
A branch table is used to calculate the 
error number i the intermediate text word 
for an error is composed. 

Both error and warning text words are 
saved in main storage after they are com- 
posed. When the end mark entry for the 
current statement is encountered, the text 
words (maximum of four) are accessed and 
inserted in the intermediate text output 
buffer by subroutine MSG/MSGMEM. If more 
than four errors and/or warning text words 
are detected by Phase 14, the remaining 
intermediate text entries for the statement 
are ignored. Subroutine ERROR/WARNING 
passes control to subroutine MSG/MSGMEM to 
find the end mark entry for the statement 
and put out the error/warning text words. 

EXIT: Subroutine ERROR/WARNING exits to 
the subroutine that called it or to subrou- 
tine MSG/MSGMEM when more than four error 
or warning text words are detected by Phase 
14 for a single FORTRAN statement. 



Subroutine UNITCK/0NIT1 



Subroutine UNITCK/UNIT1 checks the vali- 
dity of a symbol used to reference a data 
set reference number. UNITCK/UNIT1 repla- 
ces the dictionary pointer with the address 
assigned to the data set reference number. 



Subroutines ERROR/WARNING , UNITCK/UNIT1 : 
Chart ED 



Subroutine ERROR/WARNING 



Subroutine ERROR/WARNING generates 
intermediate text words for errors and 
warnings detected by Phase 14. 



ENTRANCE: 



Subroutine ERROR/WARNING can be 



entered from every Phase 14 subroutine. 



ENTRANCES: Subroutine UNITCK/UNIT1 is 
entered by subroutines READ/WRITE and 
BSPREF to determine if the symbol used to 
reference a data set reference number is 
valid. The subroutine is also entered by 
subroutine CEM/RDPOTA to replace a diction- 
ary pointer by a data set reference number. 



OPERATION: 



Subroutine 



entered at two points. 

used for checking the data set 



UNITCK/UNIT1 is 
One entry point is 
representa- 
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tion in BACKSPACE, REWIND, END FILE, READ, 
or WRITE statements, A data set can be 
represented by a data set reference number, 
an integer variable, or a dummy integer 
variable. If it is represented by a data 
set reference number, the dictionary poin- 
ter in the intermediate text word is 
replaced by the data set reference number. 
If it is represented by an integer variable 
or a dummy integer variable, the dictionary 
pointer is replaced by the address assigned 
to the variable in Phase 12. Any other 
representation of a data set is illegal and 
an error condition is noted. 

A second entry point is used by subrou- 
tine CEM/RDPOTA if it determines from the 
mode/type entry that the pointer refers to 
a data set reference number. Subroutine 
UNITCK/UNIT1 replaces the dictionary poin- 
ter in text with the data set reference 
number in the dictionary entry. 

The intermediate text word is moved from 
the input to the output buffer. 



Subroutine ININ/GET 



Subroutine ININ/GET increments the input 
buffer pointer so the intermediate text 
entries may be processed. It also ini- 
tiates the reading of the intermediate text 
input tape if the end of the buffer is 
reached, or a subroutine requests another 
record be read. 



ENTRANCE; Subroutine ININ/GET is entered 
by subroutines PINOUT and MSG/MSGMEM to 
increment the input buffer pointer, and by 
subroutine GETWDA to read another record. 



OPERATION: Subroutine ININ/GET calls the 
read an intermediate text record 
The buffers in the double- 
are switched to allow the 
to be filled with an 



FSD to 

into a buffer. 

buffer system 

second buffer 

intermediate text buffer 



EXIT: Subroutine ININ/GET exits to the 



EXITS : 



Subroutine UNITCK/UNIT1 returns subroutine that called it. 



control to the subroutine that called it. 



SUBROUTINES CALLED: During execution sub- 
routine UNITCK/UNIT1 references subroutine 
PINOUT to output an intermediate text word, 
and subroutine RDPOTA to insert the 
assigned address of an integer variable or 
dummy integer variable in an intermediate 
text word. 



Subroutines PUTFTX, ININ/GET, GOFILE: Chart 
EE 



Subroutine PUTFTX 



Subroutine PUTFTX enters the FORMAT 
adjective codes and FORMAT numbers for 
FORMAT specifications in a text card. If 
the DECK and/or the Compile and Go options 
are set and a buffer is filled, the card 
image is either punched in a card, and/or 
written on the GO tape. 

ENTRANCE : Subroutine PUTFTX is entered by 
subroutines D/E/F/I/A, QUOTE/H, X, +/-/P, 
LPAREN, RPAREN, T, FSLASH, and FLDCNT. 

OPERATION: The operation of subroutine 
PUTFTX i£ similar to the operation of 
subroutine TXT, Chart DS, in Phase 12. 



Subroutine GOFILE 



Subroutine GOFILE punches a text card 
and/ or writes on the GO tape, the card 
image which has been assembled by subrou- 
tine PUTFTX, if the DECK and/or Compile and 
Go options are specified. 

ENTRANCE: Subroutine GOFILE is entered by 
subroutine PUTFTX if an output buffer is 
full. 

OPERATION: The operation of subroutine 
GOFILE is similar to the operation of 
subroutine GOFILE, Chart DT, in Phase 12. 

EXITS : Subroutine GOFILE exits to subrou- 
tine PUTFTX. 

SUBROUTINE CALLED : During execution sub- 
routine GOFILE references the FORTRAN Sys- 
tem Director to punch text cards and/or 
write the card image on the GO tape. 



Subroutines DO, CKENDO: Chart EF 



EXIT: 



Subroutine PUTFTX exits to the sub- 



routine that called it. 



Subroutine DO 



SUBROUTINES CALLED: During execution sub- 
routine PUTFTX references subroutine GOFILE 
if a buffer is full. 



Subroutine DO processes DO statements in 
Phase 14. It performs a diagnostic check 
on the DO variable and the DO parameter. 
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ENTRANCE : Subroutine DO is entered from 
subroutine PRESCN when PRESCN encounters a 
DO adjective code in the intermediate text. 



OPERATION; Subroutine DO determines if a 
DO statement is used to end another DO. If 
it is, an error condition is noted* If an 
invalid end DO error does not occur, the DO 
adjective code and the statement number are 
entered in the intermediate text output 
buffers. 



Subroutine CKENDO 



Subroutine CKENDO determines if a state- 
ment has in validly ended a DO loop. 



ENTRANCE: Subroutine CKENDO is referenced 
by subroutines processing statements not 
permitted to end a DO loop. These are 
subroutines PAUSE/STOP, RETURN, FORMAT, and 
DO. 



The mode/ type field in the intermediate 
text for the next entry is checked to 
determine if the next entry is for an 
integer variable. If it is, the dictionary 
pointer in the text entry is replaced by 
the address assigned to the variable in 
Phase 12. The entry is then entered in one 
of the intermediate text output buffers. 
If the mode/type field does not indicate an 
integer variable, an error condition is 
noted « 



OPERATION; If a statement has a statement 
number, subroutine CKENDO checks the usage 
field of the statement number entry in the 
overflow table to determine if the state- 
ment ended a DO loop* If the statement 
ended a DO loop, an error condition is 
noted. If it does not, subroutine CKENDO 
returns control to the subroutine that 
called it. 



If an error does not occur, the next 
text entry is checked. If the adjective 
code is not an equal sign, an error condi- 
tion is noted. If the code is for an equal 
sign, the mode/type field is checked. 

If the symbol referenced by the pointer 
field is an integer variable, the diction- 
ary pointer for the entry is replaced by 
the address assigned the variable in Phase 
12, and the text word is entered in the 
intermediate text output buffer. If the 
symbol is not an integer variable, but is 
an immediate DO parameter, the intermediate 
text word is moved to the output buffer. 
If the symbol is not an immediate DO 
parameter, an error condition is noted. 

If the adjective code for the intermedi- 
ate text array is a comma, subroutine DO 
repeats the same series of tests for the 
next DO parameter. For any other adjective 
code, however, subroutine DO passes control 
to subroutine MSG/MSGMEM. 



EXIT: Subroutine DO exits to subroutine 
MSG/MSGMEM; when the DO statement is proc- 
essed or an error is detected. 



SUBROUTINES CALLED: During execution sub- 
routine DO calls the following subroutines: 

1. CKENDO to determine if a DO statement 
illegally ended another DO. 

2. PINOUT to move intermediate text 
entries from an input to an output 
buffer. 

3. RDPOTA to replace a dictionary pointer 
with an assigned address and move the 
entry to an output buffer. 

4. ERROR/WARNING if an error is detected. 



EXIT: Subroutine CKENDO exits to the sub- 
routine that called it. 

SUBROUTINES CALLED: If an error is detect- 
ed, subroutine CKENDO references subroutine 
ERROR/WARNING. 



Subroutine READ/WRITE: Chart EG 



Subroutine READ/WRITE processes inter- 
mediate text entries made in Phase 10 for 
READ and WRITE source statements. 

ENTRANCE: Subroutine READ/WRITE is entered 
by subroutine PRESCAN if the adjective code 
for a statement represents either a READ or 
WRITE statement. 

OPERATION: Subroutine READ/WRITE is divid- 
ed into three sections for discussion pur- 
poses: 



1. 



2. 



3. 



Section 1 
processes 



(blocks EF01 through EF09) : 
the FORMAT statement number 
and data set reference number in a 
READ/WRITE statement. 

Section 2 (blocks EF09 through EF19) : 
processes any implied DO in the I/O 
list of a READ/WRITE statement. 
Section 3 (blocks EF20 through EF34) : 
processes variables in the I/O list, 
excluding those variables used as sub- 
script parameters. 



Blocks EF01 through EF09: The first inter- 
mediate text word containing the READ or 
WRITE adjective code is moved to the inter- 
mediate text output buffer. 
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The symbol used to represent the data 
set reference number is checked for validi- 
ty and moved to an output buffer. The 
FORMAT statement number , if present , is 
moved to the output buffer. 

Absence of a FORMAT statement number 
signifies a binary operation and the next 
intermediate text word is moved to the 
output buffer. An end mark entry is then 
generated and moved to the output buffer. 
The end mark entry is made for Phase 20 to 
denote the end of the first text entries 
for the READ/WRITE statement. The I/O 
list, which is now treated as a separate 
statement in text, is moved to a save area. 
After processing the data set reference 
number and the FORMAT statement number , the 
statement pointer used to process the 
statement is at the beginning of the I/O 
list. 

Blocks EF09 through EF19; Subroutine 
READ/WRITE determines if the symbol pointed 
at is a left parenthesis, indicating an 
implied DO. The recognition encounter of 
any symbol other than a left parenthesis 
causes control to be passed to Section 3 of 
this subroutine. However, if a left paren- 
thesis is encountered, the value of the 
statement pointer is saved for subsequent 
processing and an implied DO adjective code 
is immediately inserted in the intermediate 
text output buffer. For reference purpos- 
es, the pointer is now referred to as the 
implied DO pointer. This pointer is used 
to scan the text entries between the outer- 
most set of parentheses for any implied 
DOs. 

A parentheses count is used to determine 
whether an implied DO is nested within 
another implied DO. Each recognition of a 
left parenthesis causes this count to be 
incremented by 1; each recognition of a 
right parenthesis causes the count to be 
decremented by 1. 

If the parenthesis count is non-zero 
after a right parenthesis has caused it to 
be decremented, an implied DO is nested 
within another implied DO, and the implied 
DO pointer must be used to continue scan- 
ning the list until the parentheses count 
is zero. Using this technique, the implied 
DO which contains other implied DOs can be 
processed first. For example, in the 
statement : 



intermediate text output buffer. A SKIP 
adjective code is inserted in a save area 
to indicate that these text words have 
already been placed in the intermediate 
text output buffer. The processing for the 
outermost implied DO is now complete. 



To resume I/O list processing, the poin- 
ter is restored to the value that was saved 
during the first encounter of the left 
parenthesis (indicating an implied DO) . If 
there is a nested implied DO, the pointer 
again points at a left parenthesis. The 
process, just described for an implied DO, 
is repeated. 



When the last nested implied DO is 

processed, the restored pointer points at 

the first symbol in the I/O list. To 

process the symbols in the list, control is 
passed to Section 3 of this subroutine. 



Blocks EF20 through EF34: To indicate the 
beginning of an I/O list to later phases, a 
BEGIN I/O adjective code is placed in the 
intermediate text output buffer. 



The dictionary pointer in the intermedi- 
ate text word for the symbol is replaced by 
the address assigned to the symbol in Phase 
12. The mode/type entry is checked for a 
valid entry in an I/O list. Variables or 
array names are the only legal entries in 
an I/O list. If the symbol is illegal, an 
error condition is noted, and the remainder 
of the I/O list is aborted from the compi- 
lation. 



If the symbol is legal, READ/WRITE det- 
ermines if the adjective code following the 
variable or array entry is a SAOP, denoting 
a subscripted variable. If it is SAOP, the 
intermediate text words containing the off- 
set and the pointers to dimension and 
subscript information are moved to the 
intermediate text output buffers. Then the 
entry for the variable is inserted in the 
intermediate text. The order for sub- 
scripted variable entries in an I/O list is 
changed somewhat. For example, the entries 
made for a subscripted variable in Phase 10 
follow this format: 



READ (2,15) ((C(I,J) ,D(I,J) ,J=1,5) ,1=1,4) 

the DO implied by 1=1,4 is processed first. 

When the parentheses count reaches zero, 
the implied DO pointer is decremented by 
four text words (16 bytes) to allow the DO 
variable to be moved to the output buffer. 
The DO parameters are then moved to the 



| subscripted) 
| variable | p (VAR) 
_ + . + 

| 00 (Offset 
_x + 

p (dimension) |p (subscript) 



j. 

J SAOP 
h 
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In Phase 14 the format for subscripted 
variable entries is changed to: 



set reference number, 
3, ERROR/WARNING if an error is detected. 



ISAOP 



|p (dimension) 



100 



| Offset 

-+ 

| p (subscript) 

-+ 



L 



| subscripted | 

| variable (address (VAR) 



If the next adjective code was not an 
SAOP, the intermediate text entry for the 
variable is inserted in the intermediate 
text output buffer. 

A series of checks are made to determine 
what action subroutine READ/WRITE should 
take. If the adjective code denotes a 
comma and the mode/type field is not blank 
for the next entry , the entry is a variable 

(subscripted or non- subscripted) and sub- 
routine READ/WRITE takes action to enter 
the variable in the output buffer. If the 
adjective code for the next entry is a skip 

(inserted in section 2 of this subroutine) 
the next four entries in the save area are 
the integer variable and parameters for an 
implied DO. (They were entered in the 
output buffer in section 2 of the 
READ/WRITE subroutine.) READ/WRITE then 
skips four text words and performs the same 
series of checks on the current text entry. 



If the adjective code denotes neither a 
variable nor a skip, READ/WRITE checks if 
the adjective code is an end mark. If it 
is, the end I/O adjective code is inserted 
in the output buffer, because all entries 
in the I/O list have been processed. If 
the adjective code is not an end mark, 
READ/WRITE determines if it denotes an 
implied DO. If it does, control is given 
to section 2 to process the implied DO. If 
the adjective code is neither an end mark, 
variable, skip, nor an implied DO, an error 
condition is noted and the remainder of the 
I/O list is aborted. 



EXIT: 



Subroutine READ/WRITE exits to the 



subroutine MSG/MSGMEM if: 

1. An error condition is detected. 

2. The end mark entry is encountered in 
the save area. 



SUBROUTI NES CALLED : During execution sub- 
routine READ/WRITE references subroutines: 

1. PINOUT to make entries to the output 
buffer. 

2. UNITCK to check the validity of a data 



Examples : The statement: 

READ (2,10) A, B,C 

generates the following intermediate text 
in Phase 10: 



r T T 

JREAD J0000 j 0000 

(data set | 
( | reference | 2 
j number j 
+ + 



^ 



H 



| statement 
j number j 1 
j. + _ + ] 

| real I 
) | variable j p (A) 

I real | 

| variable j p (B) 

+ _ + ^ 



h 



(real 
(variable 
-+ 



IP(Q 



end mark | 00 

L . JL„ 



j internal 

| statement number 

x . J 



From these entries Phase 14 generates these 
intermediate text entries: 



(00 | 0000 i 

data set j 

reference j 2 

number j 

statement j 

number IpOO) 

00 | 0000 

._ _ + _ _ ^ 



| READ 
I- 

( 



end mark 



begin I/O 

real 
variable 



00 



.0000 
I 



„_ H 



I address (A) 

real | 

variable | address (B) 

real | 

variable j address (C) 

end I/O | 00 | 0000 

i. _ + _+_ ^ 

| internal 
end mark | 00 j statement number 

-JL 
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The statement: 



From these entries Phase 14 generates these 
text entries: 



WRITE (N,2) ((A (I, J) ,J=1,10) ,I=1 r 15) ,B 



generates the following intermediate text 
in Phase 10: 



j WRITE 
I" 



( 



I 00 



p (subscript) 



^ 



,. ± 

p (dimension) 

integer 
variable |p(J) 

immediate DO 
parameter j 1 



h 






SAOP 






(. + 

) 



h 



end mark 



integer 
variable 



| 0000 | 



statement 
number 



p(N) 



00 



00 



real 

subscripted 

variable 



4 



00 



immediate DO 
parameter 



immediate DO 
parameter 



00 



integer 
variable 

j. + - 

immediate DO 
parameter 



immediate DO 
parameter 



immediate DO 
parameter 



00 



real 
variable 

internal 



00 



P(2) 



0000 



0000 



p(A) 



Offset 



A h 



H 



10 



-+- 



0000 



^ 



P(I) 



1 

15 



0000 



p(B) 



statement number 



| WRITE | 00 

integer 
( | variable 



I0000 



h 



\ 

I 9 

\ 



implied DO 



— I \ 



end mark 

implied DO 
+ 



+-- 



immediate DO 
parameter 

immediate DO 
parameter j 15 



00 



I— 



— + 



H 



begin I/O 

\ 

SAOP 

p (dimension) 
\ 



( 

end DO 

end DO 

\ 

begin I/O 



h 



end I/O 



h 



end mark 



statement 
number 



00 
00 



integer 
variable 



4 



immediate DO 
parameter 



integer 
variable 



immediate DO 
parameter 



address (J) 
+ 



immediate DO 
parameter 



immediate DO 
parameter 



00 
00 



j. 






real 

subscripted 

variable 

00 

00 



00 



real 
variable 



00 



— + 



00 



address (N) 



P(2) 



0000 



0000 



address (I) 



4 



1 

^ 

0000 



10 



-+- 



1 

0000 



-H 



Offset 

p (subscript) 
., 



address (A) 

0000 

0000 

^ 



0000 



address (B) 



0000 



~H 



internal 
statement number 
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Phase 14 Format: Overall Logic, Chart 21 



Several subroutines (Charts EH through 
EO) are used to process FORMAT statements. 
The overall logic for this processing is 
shown in Chart 21. 

The FORMAT subroutine is entered from 
subroutine PRESCN after PRESCN recognizes 
an adjective code for a FORMAT statement. 
Using the translate and test table for 
FORMAT statements, subroutine FORMAT 
retrieves the first FORMAT code for the 
statement and passes control to a specific 
subroutine. The functions of the specific 
subroutines are generally the same. 

If a FORMAT code is a + or -, the scale 
factor and the P are retrieved and entered 
in a text card, and the next format code is 
fetched. 

While retrieving the FORMAT code, sub- 
routine FORMAT may find a field count for 
this code. If it does, the field count 
adjective code is entered in the text card 
along with the field count, itself? then, 
the adjective code for the format code is 
entered. A left parenthesis, encountered 
within the outside parentheses for the 
FORMAT statement, indicates a FORMAT group. 
If a group is indicated within a FORMAT 
statement, the series of FORMAT subroutines 
retrieves the FORMAT code for the next 
FORMAT specification and begins processing 
that specification. 



If a group is not indicated, the FORMAT 
code is checked to see if it is defining 
literals (H or quote specifications) . If 
the specification defines a literal, the 
literal is inserted in the text card, and 
the FORMAT subroutines then branch to com- 
pute the record length. 



If a literal is not being defined, the 
FORMAT code is then checked to see whether 
this specification contains a field length. 
If it does not, the FORMAT subroutines 
branch to compute the record length. If a 
field length is part of this specification, 
the translate and test table is used to get 
the field length and the following delimi- 
ter. The field length is then entered in 
the text card. 



used again to get the length and the 
following delimiter. The decimal length is 
entered in the text card. 

Record length accumulators are then 
updated. There are three accumulators used 
to calculate record length: the record 
length, the leading length, and the tail 
length accumulators. 



The record length accumulator is used 
exclusively if there is no attempt made in 
the FORMAT statement to define a group of 
format specifications. After each specifi- 
cation is processed, the field length is 
multiplied by the field count for this 
specification and added to the record 
length accumulator. 



The leading length accumulator is used 
to accumulate the length of a group. If 
there are no slash or T FORMAT specifi- 
cations, this accumulator is used to accu- 
mulate the sum of the field lengths in the 
group. After each specification in a group 
is processed, the field length is multi- 
plied by the field count for this specifi- 
cation and added to the leading length 
accumulator. When the closing right paren- 
thesis is found, the leading length accumu- 
lator is multiplied by the group count and 
added to the record length accumulator. 



If a slash or T specification is found 
within a group, the record length accumula- 
tor is set equal to the number entered in 
the field length position. If the FORMAT 
code is a slash, the tail length accumula- 
tor is set to zero. If the FORMAT code is 
a T, the tail length accumulator is set to 
zero. After each specification following 
the T or slash in the group is processed, 
the field length is multiplied by the count 
for this specification and the result is 
added to the tail length accumulator. 
After the end of the group is sensed, the 
record length accumulator is set equal to 
the tail length accumulator. 



After FORMAT specifications are checked, 
and their field lengths added to the accu- 
mulators, the contents of the record length 
accumulator are compared to the specified 
length entered by the user in a control 
card. If the record length is greater than 
the specified length, a warning is issued. 



The FORMAT code is checked again to see 
if the specification contains a decimal 
length. If it does not, the FORMAT subrou- 
tines branch to compute the decimal length. 
If the specification contains a decimal 
length, the translate and test table is 



If the right parenthesis ending the 
FORMAT statement is sensed, control is 
passed to subroutine PRESCN to process 
another statement. If the ending right 
parenthesis is not sensed, the FORMAT sub- 
routines return to the beginning of subrou- 
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tine FORMAT to begin processing another 
format specification. 



Subroutine FORMAT: Chart EH 



EXIT; Subroutine FORMAT exits to subrou- 
tine MSG/MSGMEM, if subroutine FORMAT has 
detected an error, or to a FORMAT subrou- 
tine to process the delimiter accessed by 
subroutine GETWDA. 



Subroutine FORMAT initializes the FORMAT 
subroutines to process a FORMAT statement. 
Subroutine FORMAT is entered by other 
FORMAT subroutines to process a FORMAT 
specification. If there is a field count 
for a FORMAT specif ication, subroutine 
FORMAT processes the field count. Using a 
branch table and the delimiter accessed by 
the FORMAT statement scanning subroutine , 
GETWDA, it passes control to the proper 
subroutine to process the specification. 

ENTRANCE ; Subroutine FORMAT is entered by 
subroutine PRESCAN when PRESCAN finds a 
FORMAT adjective code. Subroutine FORMAT 
is entered by the other FORMAT subroutines, 
using certain entry points under given 
conditions, as follows: 

1. FMTONE when subroutine FORMAT must get 
another delimiter. 

2. FMTTWO when a FORMAT subroutine 
already has a delimiter, and the deli- 
miter must be processed by subroutine 
FORMAT. 

3. FMTGCE when a FORMAT subroutine has 
already checked the delimiter and det- 
ermined that the delimiter was a 
comma, left parenthesis, or a P. 

4. FMTBRN when the previous delimiter was 
a blank, and the delimiter fetched by 
subroutine BLANKZ must be processed. 

OPERATION: To initialize the FORMAT sub- 
routines to process a FORMAT statement, 
subroutine FORMAT sets: 



SUBROUTINES CALLED: During execution sub- 
routine FORMAT references the following 
subroutines : 



1. GETWDA to get another delimiter. 

2. INTCON to convert an EBCDIC integer to 
a binary integer. 

3. ERROR/WARNING if an error has been 
detected. 



Subroutine D/E/F/I/A: Chart EI 



Subroutine D/E/F/I/A processes the 
FORMAT specifications for D, E, F, I, and A 
conversions . 



ENTRANCE: Subroutine D/E/F/I/A is entered 
from subroutine FORMAT, if the FORMAT code 
is a D, E, F, I, or A. 



OPERATION: Subroutine D/E/F/I/A enters in 
a text card the field count and the field 
count adjective code, if there is a field 
count for the specification; the adjective 
code for the FORMAT code; the field length; 
and the decimal length, if there is a 
decimal length for this specification. 



1. The left parenthesis switch off. 

2. The record length, leading length, and 
tail length accumulators to zero. 

3. The group count to zero. 

4. The comma switch on. 



EXITS: Subroutine D/E/F/I/A exits to sub- 
routines : 

1 . FORMAT to process the next FORMAT 
specification. 

2. MSG/MSGMEM if an error is detected. 



Subroutine FORMAT then gets the first 
delimiter. If the first delimiter is a 
left parenthesis, the parentheses count is 
set to 1 , and the adjective code for a 
FORMAT statement is inserted in the text 
card. If not, an error condition is recog- 
nized. 

Subroutine FORMAT converts the field 
count, if there was one, to a binary 
integer. If there was no field count for 
this FORMAT specification, the field count 
is set to 1. The delimiter returned from 
subroutine GETWDA is then used to access 
the branch table, and control is passed to 
the subroutine which processes the format 
specification. 



SUBROUTINES CALLED: During execution sub- 
routine D/E/F/I/A references subroutine: 

1. FLDCNT to check this specification for 
a field count and enter it in a text 
card, if there is a count. 

2. PUTFTX to make entries in the text 
card. 

3. GETWDA to get the delimiter, and num- 
ber ahead of the delimiter. 

4. INTCON to convert an EBCDIC integer to 
a binary constant. 

5. LINETH to add the field length to the 
record length accumulator. 

6. ERROR/WARNING if an error or warning 
is detected. 
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Subroutines QUOTE/H, X; Chart EJ 



Subroutines +/-/P, BLANKZ, FILLEG, FCOMMA: 
Chart EK 



Subroutine QUOTE/H 



Subroutine +/-/P 



Subroutine QUOTE/H processes the FORMAT 
specifications for H or quote literals. 



ENTRANCE ; Subroutine QUOTE/H is entered 
from subroutine FORMAT if the FORMAT code 
is a quote mark or H. 



OPERATION; Subroutine QUOTE/H enters the 
adjective code for the FORMAT specifi- 
cation, the field count , and the literal in 
a text card. 



EXIT; Subroutine QUOTE/H exits to subrou- 
tine: 

1. FORMAT to process the next FORMAT 
specification. 

2. MSG/MSGMEM if an error has been 
detected. 

SUBROUTI NES CALLED : During execution sub- 
routines QUOTE/H references subroutines 

1. NOFDCT to insure that there was no 
count for the quote FORMAT codes. 

2. PUTFTX to enter adjective codes , field 
count and the literal in text cards. 

3. LINETH to add the field length to the 
record length accumulator. 

4. ERROR/WARNING if an ' error is detected. 



Subroutine X 



Subroutine +/-/P processes the format 
specification codes for scale factors. 

ENTRANCE: Subroutine +/-/P is entered by 
subroutine FORMAT if the format code is a 
+ , -, or P. 

CONSIDERATION; If there is a count for a 
format specification with a scale factor , 
it should be placed between the P and the 
FORMAT code for the field and decimal 
lengths. For example, if the specification 
+3PF10.2 is to be repeated five times, the 
specification is written +3P5F10.2. 

OPERATION; If the sign preceding the scalej 
factor is negative, the scale factor is\ 
converted to a 1-byte binary integer, and a 
1 bit is placed in the high-order bit for 
the byte. A scale factor of -3 is rep- 
resented by the hexadecimal number 83, 
while the scale factor of +3 is represented 
by the hexadecimal number 03. 

Subroutine +/-/P enters the scale factor 
adjective code and the scale factor in the 
text card. 



EXIT: 
tine: 



.1. 



Subroutine +/-/P exits to subrou- 



FORMAT to process the remainder of the 
format specification, following the P. 
2. MSG/MSGMEM if an error is detected. 

SUBROUTINES CALLED : During execution sub- 
routine +/-/P references subroutine; 



Subroutine X processes FORMAT specifi- 
cations for X FORMAT codes. Subroutine X 
enters the X adjective code and the field 
count in a text card. 



ENTRANCE : 



Subroutine X is entered from 



subroutine FORMAT if the FORMAT code is an 
X. 



EXIT; 



Subroutine X exits to subroutine 



FORMAT to process the next FORMAT specifi- 
cation. 

SUBROUTINES CALLED: During execution sub- 
routine X references subroutine: 

1. PUTFTX to make entries in the text 
card. 

2. LINETH to add the field length to the 
record length accumulator. 

3. ERROR/WARNING if a warning is detect- 
ed. 



1 . GETWDA to get the scale factor and the 
following delimiter. 

2. INTCON to convert the scale factor to 
a binary number. 

3. PUTFTX to make entries to text cards. 

4. ERROR/WARNING if an error is detected. 



Subroutine BLANKZ 



Subroutine BLANKZ processes any blanks 
encountered in scanning a FORMAT statement. 



ENTRANCE: 



Subroutine 



BLANKZ is entered 

from subroutine FORMAT when a blank delimi- 
ter is encountered. 

OPERATION: Subroutine BLANKZ references 
subroutine GETWDA. If the non-zero return 
is used by GETWDA, an error condition is 
noted. If the zero return is taken, sub- 
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routine BLANKZ passes control to subroutine 
FORMAT. 

EXIT; Subroutine BLANKZ exits to the fol- 
lowing subroutines: 

1. FORMAT to process the delimiter it 
fetched. 

2. MSG/MSGMEM if an error is detected. 

SUBROUTINE CALLED; During execution sub- 
routine BLANKZ references subroutine GETWDA 
to get the next delimiter. 



Subroutines LPAREN, RPAREN: Chart EL 



Subroutine LPAREN 



Subroutine LPAREN processes any left 
parentheses , other than the opening left 
parenthesis, in the FORMAT statement. 



ENTRANCE: Subroutine LPAREN is entered 
from subroutine FORMAT when a left paren- 
thesis is sensed. 



Subroutine FILLEG 

Subroutine FILLEG processes any invalid 
delimiters found in a FORMAT statement. 

ENTRANCE : Subroutine FILLEG is entered 
from subroutine FORMAT when an illegal 
delimiter is found. 

OPERATION: An error text word is con- 
structed for each invalid delimiter. 

EXIT: Subroutine FILLEG exits to subrou- 
tine MSG/MSGMEM. 

SUBROUTINE CALLED: During execution sub- 
routine FILLEG references subroutine 
ERROR/WARNING. 



Subroutine FCOMMA 



Subroutine FCOMMA processes 
found in a FORMAT statement. 



ENTRANCE : 



any commas 



Subroutine FCOMMA is entered 

from subroutine FORMAT when a comma is 
found in a FORMAT statement. 

OPERATION: Subroutine FCOMMA checks an 
indicator that denotes whether or not the 
current comma is valid. If the indicator 
is off and entry is made into this subrou- 
tine, the current comma is valid. Subrou- 
tine FCOMMA skips over the comma, but sets 
the comma indicator on. Until this indica- 
tor is set off, any subsequent encounter of 
a comma is considered an error. If the 
indicator is on when subroutine FCOMMA is 
entered, the error condition is noted. 



EXIT: 
tine: 



Subroutine FCOMMA exits to subrou- 



1. FORMAT to get another delimiter. 

2. MSG/MSGMEM if an error is detected. 

SUBROUTINE CALLED: If an error is detect- 
ed, subroutine FCOMMA references subroutine 
ERROR/WARNING. 



OPERATION: A left parenthesis, other than 
the first parenthesis in a FORMAT state- 
ment, indicates the beginning of a group. 
A group indicator is set on by subroutine 
LPAREN any time a left parenthesis is 
encountered. If the group indicator is on 
when subroutine LPAREN is entered, an error 
is noted because BPS FORTRAN does not 
permit nesting groups. 

If a field count preceded the left 
parenthesis, the group count is set equal 
to the field count, and the group count and 
the group adjective code are inserted in a 
text card. The leading and tail length 
accumulators are set to zero. The comma 
indicator is set on, so a comma between the 
left parenthesis and the first format 
specification for the group is an error. 
The group indicator is set on to indicate 
that a group is being processed. A leading 
length indicator is set on so the length 
for the group elements is accumulated in 
the leading length accumulator. The paren- 
thesis count is then incremented by 1 . 



EXIT: 
tine: 



1. 



Subroutine LPAREN exits to subrou- 



FORMAT to process the first FORMAT 
specification in the group. 
2. MSG/MSGMEM if an error is detected. 

SUBROUTI NE CALLED : During execution sub- 
routine LPAREN references subroutine: 

1. PUTFTX to make entries to text cards. 

2. ERROR/WARNING if an error is detected. 



Subroutine RPAREN 



Subroutine RPAREN processes any right 
parenthesis, in a FORMAT statement, to end 
a group or a FORMAT statement. 

ENTRANCE: Subroutine RPAREN is entered by 
subroutine FORMAT when a right parenthesis 
is encountered. 
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Subroutine RPAREN insures that Subroutines T, FSLASH: Chart EM 



OPERATION: 

no field count preceded the right parenthe- 
sis, and decrements the parentheses count. 
If the parentheses count is less than zero, 
an error is noted. If the parentheses 
count is zero, the end of the FORMAT 
statement is reached. 



If the end of the FORMAT statement is 
reached, the adjective code for the end of 
a FORMAT statement is sent to the text 
card, the record length is compared to the 
specified length, and the input pointer is 
adjusted to the next full-word boundary. 
Control is then passed to subroutine PRESCN 
to process the next intermediate text 
entry . 



If the parentheses count is positive, 
the end of a group has been reached. If 
the sum of the leading and tail length 
accumulators exceeds the specified length, 
a warning is issued. If the tail length 
accumulator is zero, the record length 
accumulator is incremented by the product 
of the leading length accumulator and the 
group count. If the tail length accumula- 
tor is not zero, the record length accumu- 
lator is set equal to the tail length 
accumulator. 



Subroutine T 



Subroutine T processes T FORMAT specifi- 
cations in the FORMAT statement and enters 
the adjective code and the record position 
in a text card. 

ENTRANCE: Subroutine T is entered from 
subroutine FORMAT when a T FORMAT code is 
recognized. 

OPERATION: Subroutine T insures that there 
was no count for this FORMAT specification. 
Subroutine GETWDA is referenced to get the 
record position for the T specification. 
The T adjective code and the position 
number are then entered in the text card. 
The record length accumulator is compared 
to the specified length. 

The group indicator is tested for the T 
specification within a group. If T was 
specified, the record length accumulator is 
set to zero and the tail length accumulator 
is set equal to the position number. If 
the T specification is not in a group, the 
record length accumulator is set equal to 
the position number. 



The group indicator is set off indicat- 
ing that the group has been processed, and 
the adjective code for end group is entered 
in the text card. Control is then passed 
to subroutine FORMAT to process the next 
format specification. 



The leading length indicator is set off 
so the specifications within a group are 
accumulated in the tail length accumulator 
instead of the leading length accumulator. 

EXIT: Subroutine T exits to subroutine 
FORMAT to process the next FORMAT specifi- 
cation. 



EXIT: Subroutine RPAREN exits to subrou- 
tine: 



SUBROUTI NES CALLED : During execution sub- 
routine T references the subroutines: 



1. FORMAT to process the next FORMAT 
specification, after all the elements 
of a group have been processed. 

2. PRESCN if the closing right parenthe- 
sis for the FORMAT statement is proc- 
essed. 

3. MSG/MSGMEM if an error has heen 
detected. 



SUBROUTINE CALLED: 



routine RPAREN 
subroutines: 



During execution sub- 
references the following 



1. NOFDCT to insure that no field count 
preceded the right parenthesis. 

2. PUTFTX to make entries to a text card. 

3. LINECK to insure the accumulated 
length in the record length accumula- 
tors has not exceeded the specified 
length. 

4. ERROR/WARNING if an error or warning 
is detected. 



1 . NOFDCT to insure that there is no 
count immediately preceding a T speci- 
fication. 

2. GETWDA to get the position number. 

3. INTCON to convert the position number 
to a binary integer. 

4. PUTFTX to enter the T adjective code 
and the position number in the text 
card. 

5. LINECK to insure that the accumulated 
length in the record length accumula- 
tor does not exceed the specified 
length. 

6. ERROR/WARNING if an error is detected. 



Subroutine FSLASH 



Subroutine FSLASH processes the slash 
FORMAT specifications in a FORMAT state- 
ment, and enters the slash adjective code 
in the text card. 
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ENTRANCE; Subroutine FSLASH is entered by 
subroutine FORMAT when a slash FORMAT 
specification is recognized. 



EXIT: 



Subroutine LINETH exits to the sub- 



routine that called it. 



OPER TION: Subroutine FSLASH enters the 
slash adjective code in the text card and 
insures there was no field count for the 
slash entry. The record length accumulator 
is compared to the user-specified length. 

The record and tail length accumulators 
are set to zero and the leading indicator 
is set off so, if the slash is part of a 
group, the specifications following the 
slash are accumulated in the tail length 
accumulator. 



Subroutine LINECK 



Subroutine LINECK determines if the 
length of the record exceeds the user- 
specified length. 



ENTRANCE; Subroutine LINECK is entered by 
subroutines RPAREN, T, and FSLASH. 



EXIT; Subroutine FSLASH exits to subrou- 
tine FORMAT to process the next FORMAT 
specification. 

SUBROUTINES CALLED ; During execution sub- 
routine FSLASH references the following 
subroutines: 

1. PUTFTX to enter the slash adjective 
code in the text card. 

2. NOFDCT to insure that there is no 
field count for a slash specification. 

3. LINECK to insure the accumulated 
length in the record length accumula- 
tor does not exceed the specified 
length. 



OPERATION ; If the group indicator is off „ 
the record length accumulator is compared 
to the specified length. If the record 
length is greater, a warning is issued. 

If the group indicator and the leading 
indicator are both on, the leading length 
accumulator is added to the record length 
accumulator and the record length 
accumulator is compared to the specified 
length. If the leading indicator is off, 
the record length accumulator is set equal 
to the tail length accumulator, and the 
comparison to the specified length is made. 



EXIT: 



Subroutine LINECK exits to the sub- 



routine that called it. 



Subroutines LINETH, LINECK, FLDCNT, NOFDCT: 
Chart EN 



Subroutine LINETH 



SUBROUTINES CALLED: 



If the 

exceeds the 



record length 
user-specified 



accumulator 
length, subroutine LINECK calls subroutine 
ERROR/WARNING to insert the warning entry 
in the intermediate text. 



Subroutine LINETH adds the total length 
for the field (s) in a FORMAT specification 
to the record length accumulator. 

ENTRANCE : Subroutine LINETH is entered by 
subroutines D/E/F/I/A, QUOTE/H, and X. 

OPERATION: The total length for a FORMAT 
specification is computed by multiplying 
field length by the field count. The total 
length is added to the record length accu- 
mulator. 



Subroutine FLDCNT 



Subroutine FLDCNT checks for a field 
count. 



ENTRANCE: Subroutine FLDCNT is entered by 
subroutine D/E/F/I/A. 



If the group indicator is off, the total 
length is added to the record length accu- 
mulator. If the group indicator is on, the 
total length is added to either the leading 
or tail length accumulator. 

If the leading indicator is on, the 
total length is added to the leading length 
accumulator. If the leading indicator is 
off, the total length is added to the tail 
length accumulator. 



OPERATION: If a field count, other than 1, 
exists, the field count adjective code and 
the field count are entered in a text card. 

EXIT: Subroutine FLDCNT exits to the sub- 
routine that called it. 

SUBROUTI NE CALLED : During execution sub- 
routine FLDCNT references subroutine PUTFTX 
to put the field count adjective code and 
the field count in a text card. 
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Subroutine NOFDCT 



Subroutine NOFDCT processes FORMAT 
specifications that cannot have a field 
count . 

ENTRANCE : Subroutine NOFDCT is entered by 
subroutines QUOTE/H, RPAREN, T, and FSLASH. 

OPERATION; If the current specification 
has a field count, an error is noted, 

EXIT; Subroutine NOFDCT exits to the sub- 
routine that called it. 

SUBROUTINE CALLED: If the specification 
has a field count, subroutine ERROR/WARNING 
is referenced to issue the error text word. 



Subroutines GETWDA, INTCON; Chart EO 



Subroutine GETWDA 



general register 2 is the adjective code 
entered in the text card for FORMAT speci- 
fications and is used to index the branch 
table in subroutine FORMAT. 



The length of the numeric field is 
calculated, using the address in general 
register 1 and the address at which the 
translate and test instruction began execu- 
tion. The data just translated is then 
moved to a work area so that subroutine 
INTCON can access it. 



A test is made to see if the scan has 
reached the end of either buffer. If the 
end has not been reached, a test is made to 
see if the length of the numeric data is 
zero. A zero length implies that there is 
no numeric data preceding this delimiter. 
For example, if a right parenthesis is 
immediately preceded by a slash, the length 
is zero and the zero return is used in 
returning to the calling subroutine. If 
the length is non-zero, the non-zero return 
is used. 



Subroutine GETWDA scans FORMAT state- 
ments, returning the delimiter that stopped 
the scan and the number of numeric charac- 
ters preceding the delimiter. If the con- 
tents of an input buffer have been com- 
pletely processed, subroutine GETWDA ref- 
erences another subroutine to read an 
intermediate text record. 



ENTRANCE : 



Subroutine GETWDA is entered 



from subroutines FORMAT, D/E/F/I/A, +/-/P, 
BLANKZ, and T. 



OPERATION; 



When subroutine 



GETWDA 



xs 



entered by a calling subroutine, GETWDA 
increments the translate and test pointer. 
If the character at the translate and test 
pointer is blank, the pointer is increment- 
ed. If the character is not a blank, a 
test is made for the end of the input 
buffer. If the end is reached, subroutine 
ININ/GET is called to read another record 
into the buffer, and the translate and test 
pointer is adjusted so that it points to 
the beginning of the next buffer. 

When the end of the buffer is not 
reached, a translate and test instruction 
is executed to get the next delimiter. The 
table for this instruction is set so the 
instruction stops on any non-numeric char- 
acter. The translate and test instruction 
inserts the address at which it stopped in 
general register 1, and the non-zero byte 
in the table which caused the instruction 
to stop in general register 2. The address 
in general register 1 is used to calculate 
the length of the numeric field preceding 
the delimiter and to initialize GETWDA for 
the next time it is entered. The byte in 



There are two buffers used to read the 
intermediate text tape. There are two 
tests, made for the end of the buffers one 
for the first buffer and a second for the 
remaining buffer. 

The two buffers are adjacent to each 
other in main storage. The last storage 
position of the first buffer is next to the 
first storage position of the second buf- 
fer. When the FORMAT statement is written 
on the intermediate text output tape in 
Phase 10, it is written in a card image. 
There is no attempt made to translate the 
FORMAT statement to any form of internal 
code. It is possible that part of the 
FORMAT statement may be read into one 
buffer, while the remaining part of the 
statement is in the second buffer. 

The translate and test instruction does 
not stop when the end of the first buffer 
is reached? it accesses characters in the 
second buffer until a delimiter is found. 
For example, if a FORMAT statement is set 
up as follows; 

FORMAT (...., 5F1 0.2, ) 

and it was read in Phase 14 so the first 
buffer contained part of the specification 
5F10.2 and the second buffer contained the 
remaining part, as follows s 



first buffer j second buffer j 

....,5F1 |0.2,.... | 

J. . j 
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the translate and test instruction does not 
stop because it is at the end of the 
buffer, splitting the 1 and 0. The 
instruction ceases execution when the deci- 
mal point is reached. The only action 
necessary in this situation is starting the 
read operation to refill the first buffer. 



EXIT; Subroutine GETWDA exits to the sub- 
routine that called it. 

SUBROUTINE CALLED : During execution sub- 
routine GETWDA references subroutine 
ININ/GET to read another intermediate text 
record into an input buffer. 



If the statement was read in Phase 14 so 
the second buffer contained the first part 
of the specification and the first buffer 
contained the second part as follows: 



(first buffer 



~T~ 
I 



|0.2,. 



second buffer j 
,5F1| 



Subroutine INTCON 



Subroutine INTCON converts integer con- 
stants to binary and checks their validity. 

ENTRANCE: Subroutine INTCON is entered by 
subroutines FORMAT, D/E/F/I/A, +/-/P, and 



it is illogical for subroutine GETWDA to 
return merely the number and stop fetching 
characters when the end of the second 
buffer is reached. Still it cannot contin- 
ue translating until it reaches a delimi- 
ter, because whatever is beyond the last 
position reserved for the second buffer is 
not part of the FORMAT statement. 

A special character, which stops the 
translate and test instruction, is placed 
at the end of the second input buffer. If 
the translate and test instruction is 
stopped at this special character, subrou- 
tine GETWDA recognizes that the end of the 
second buffer has been reached. It calcu- 
lates the length of the field just tran- 
slated. In the above example, the result 
of the length calculation is 1. The field 
translated is moved to a position immedi- 
ately in front of the first character in 
the first input buffer. 



OPERATION: The data to be converted is 
accessed from the work area in which sub- 
routine GETWDA stored the integer. If the 
data in the work area is not numeric, an 
error condition is noted. 

The data in the work area is converted 
to binary. The high-order digit in the 
work area is accessed and inserted in a 
general register. If there is a second 
digit, the contents of the register are 
multiplied by 10 and the second digit is 
added to the product. For each succeeding 
digit, the contents of the register are 
multiplied by 10; that digit is added to 
the product. 

If the resulting number is greater than 
255, an error condition is noted. A test 
is made to see if this digit is to be 
tested for a zero value in this format 
specification. If it may have a zero 
value, control is passed from subroutine 
INTCON to the subroutine that called it. 



r t~ ■ * 1 

| first buffer | second buffer | 

1|0.2, | ,5F1| 

I X- . J 



If the integer constant cannot have a 
zero value, and the number is zero, an 
error condition is noted. If an error does 
not occur, control is passed from subrou- 
tine INTCON to the subroutine that called 
it. 



The translate and test pointer is then 
adjusted so that it points to the first 
character in the field just moved. Then 
subroutine ININ/GET is referenced to start 
the read operation to refill the first 
buffer, and the translation process is 
repeated . 



EXIT: Subroutine INTCON exits to subrou- 
tine MSG/MSGMEM if an error is detected or 
to the calling subroutine. 

SUBROUTINE CALLED: Subroutine INTCON ref- 
erences subroutine ERROR/WARNING if an 
error is detected. 
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***** 
*05 * 
* A3* 



******A3******** 
GET 
* INTERMEDIATE 
.X TEXT 
* ENTRY 



*****B4********** 

* * 

* PASS ON PHASE * 
X* 12 ERROR *. 

* ENTRIES * 

* * 
***************** 



**#B5********* 
EXIT TO * 
FSD TO READ * 
PHASE 15 * 
************** 



*****C 1 *********** 

ENTER 
* FORMAT * 

INFORMATION X. 

* IN TEXT * 

CARD 
************* 



*****C2** ******* 

* ASSIGN 

* STORAGE TO 
.* FORMAT 

* INFORMATION 

**************** 



*****E2 ******* 

* ASSIGN ASF 

* NUMBER TO 

* ARITHMETIC 

* STATEMENT 

* FUNCTION 
************** 



*D4********** 

* 

ANALYZE * 

IMPLIED * 

DO'S * 

************* 



*****F3******** 

* REPLACE ANY 

* DICTIONARY 

* POINTER WITH 

* ADDRESS 



**** 



t************ 



*****G3* ********* 

* REPLACE ANY * 
*POINTER TO DATA* 

* SET REFERENCE * 

* NUMBER WITH * 

* NUMBER * 
***************** 



*****H 3** ******** 

* * 

* REPLACE ANY * 
*POINTER TO ASF * 

* NAME WITH ASF * 

* NUMBER * 
***************** 



****** j 3*** ******** 

PUT OUT 

* UPDATED * 

INTERMEDIATE 

* TEXT * 

************* 
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***** 

*EA * 

* Al* 

* * 



PHINIT X 

*****A1 ********** 



* PHASE * 
♦INITIALIZATION * 



***************** 

**** # 

* * . 
*EA *.X. 

* Bl* 
**** . 

PRESCN X 

*****B 1 **** ****** 

* * 

* GET * 

* ADJECTIVE * 

* CODE * 

* * 
***************** 



L2 X 

*****C 1 ********** 

* * 

* BRANCH * 

* ACCORDING *• 

* TO ADJ CODE * 

* * 
***************** 



************************************************************* 

* * 

* ADJ CODE TEXT ENTRY BRANCH LOCATION * 

* * 
************************************************************* 
************************************************************* 

* 9F SUBROUTINE EBA1 * 
************************************************************* 

* AO FUNCTION EBA1 * 
************************************************************* 

•X* Al FORMAT EHA1 * 

************************************************************* 

* A3 CONTINUE EBE3 * 
************************************************************* 

* A4 GO TO EBC4 * 
************************************************************* 

* A5 COMPUTED GO TO EBC4 * 
************************************************************* 

* A6 BACKSPACE EBB4 * 
************************************************************* 

* A7 REWIND EBB4 * 
************************************************************* 

■ * A8 END FILE EBB4 * 

************************************************************* 

* A9 WRITE BINARY EGA1 * 
************************************************************* 

* AA READ BINARY EGA1 * 
************************************************************* 

* AB WRITE BCD EGA1 * 
************************************************************* 

* AC READ BCD EGA1 * 
************************************************************* 

* AD DO EFA3 * 
************************************************************* 

* AE STATEMENT NUMBER EBG2 * 
************************************************************* 

* BO END EBA5 * 
************************************************************* 

* B2 CALL EBC4 * 
************************************************************* 

* B3 ASF EBA3 * 
************************************************************* 

* B5 ARITH EBC4 * 
************************************************************* 

* B9 RETURN EB61 * 
************************************************************* 

* BA STOP EBD4 * 
************************************************************* 

* BB PAUSE EBD2 * 
************************************************************* 

* BC IF EBC4 * 
************************************************************* 

* BE ERROR EBE1 * 
************************************************************* 

* BF WARNING EBE1 * 
************************************************************* 

* 16 END MARK EBE1 * 
************************************************************* 
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***** 
*EB * 
* A3* 



SUBFUN X 01 
*****A1 ********** 
*RDPOTA ECH3* 
*—*-*—*-*-*—*—*—* 
.X* REPLACE DICT * 
* POINTER WITH * 
*ASGND. ADDRESS * 
***************** 



.* ANY 
*. PARAMETERS 
*. FOLLOWING. 



*****C1 ********** 

* * 

* REPLACE TYPE * 
.* IN TEXT FROM * 

* DICTIONARY * 

* * 
***************** 



***** 
*EB * 
* El* 



ERWNEM X 


06 




****£ J **** 


****** 


* 


PINOUT 


ECA1* 


* 


-*-*—*—*—* 


_#_*_* 


* 


PUT 


* 


* 


INPUT WORD * 


* 


OUT 




* 


**************** 



UPDATE 
ASF 

COUNT 



*****B3********** 

* * 

* PUT ASF COUNT * 

* IN DICTIONARY * 

* CHAIN * 

* * 
***************** 



*****C3******* 


it** 


*RDPOTA ECH3* 




* REPLACE 


* 


* DICTIONARY 


* 


* POINTER 


* 



BSPREF X 03 
*****B4********** 
*UNITCK EDF3* 
*—*—*—*—*—*—*—*—* 

* INSURE THAT * 

* DEVICE IS * 

* LEGAL * 
***************** 



**** „ 
PASSON X 04 
*****C4********** 
*CEM ECC3* 

*—*—*—*—*—*—*—*—* 



.X*CHECK END MARK 

* REPLACE DICT 

* POINTER 
**************** 



PAUSE X 07 
***** 02 ********** 
*CKENDO EFA4* 



************* 



STOP ( 09 

***** D4** ******** 
*CKENDO EFA4* 



REPLACE DICT 

POINTER WITH 

ASGND ADDRESS 

*************** 



PUT 

INPUT WORD 

OUT 



*************** 



*-*—*—*- 



PUT * 

INPUT WORD * 

OUT * 

*************** 



X* PUT INPUT * 

* WORD * 

* OUT * 
***************** 



*****C5 ********** 

* * 

* CLOSE * 

* OUT * 

* DATA SETS * 

***************** 



**** 05 ********* 

* EXIT TO FSD * 

* TO LOAD * 

* PHASE 15 * 
*************** 



* Bl* PRESCN 



***** 
*EC * 
* B2* MSGMEM 



RETURN X 11 
*****G i********** 
*CKENDO EFA4* 



************ 



_*_#_#_#_ 



************** 



THIS 

STATEMENT 

•NUMBER OF. 

*FORMAT * 



*****H4 ********** 

* PUT ASSIGNED * 

* ADDRESS IN * 
X* STATEMENT *. 

* NUMBER CHAIN * 

* * 
***************** 



•LABEL1 X 
*****H5** 
*PINOUT 



*—*—*—*—*—*— 



. X* PUT STMT NO. 

* DEFINITION 

* WORD OUT 
************** 



***** 
*EC * 
* B2* 



* Bl* PRESCN 



-*-*-*-*-*-*-*-* 

UNREFERENCED * 

FORMAT * 

STATEMENT * 

**************** 



*—*—*—*—*-*—*—*—* 

* FORMAT * 

* USED AS * 

* END DO * 
***************** 
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* MOVE * 

* INPUT ttORD * 

* OUT * 

* * 
***************** 



*_*_*_*_*_*_*_*_* 

* INCREMENT * 

* INPUT * 

* P 1 N TE R * 
***************** 



*—*—*—*-*-*—*—*—* 

* INCREMENT * 

* OUTPUT * 

* POINTER * 
***************** 



****D1 ********* 

* * 

* RETURN * 

*************** 



*"*" 


-*-*-*-*-*- 
INCREMENT 


"* 


*X... 


* 


OUTPUT 




* • 


* 


POINTER 




* • 


*************** 


** . 


**** # 






* 


* . 






*EC 


*.X. 






* E2* 






**** . 






MSGMEM 


• X. 

B2 *. 

* IS * 






• * 


THIS 


* 


. NO . 


*• 


END MARK 




.*.... 


* , 


ENTRY 


.* 





* INCREMENT 

* OUTPUT 

* POINTER 
* 
************** 



CKOUBF 


• X. 




B5 * 


. 


* IS 


• * 


THIS 


*• 


BUFFER 


*. 


FULL 



*-*—*—*—*- 



*********** 



CEM 
YES 



THIS 

END MARK 

ENTRY 



CLSOUT X 

*****C5 ********** 

* WRITE OUT * 

* THIS BUFFER * 

* AND SELECT * 

* NEXT BUFFER * 

* * 
***************** 



THIS 

DATA SET 

.REFERENCE. 

*. NO. .* 



_#_*_#_*_ 



.X* REPLACE DICT * 

* POINTER WITH * 

* REFERENCE NO. * 
***************** 



****D5 ********* 

* RETURN * 

* * 
*************** 







.* ANY *. 




NO . 


* WARNING *. 






CR ERROR 


X 




*. MESSAGES .* 


***** 




*• . * 


*EA * 




*. •* 


* Bl* 




* YES 


* * TO 






* PRESCAN 








X 




*****F2********* 




*INOUT ECA5 










* 


PUT OUT 




* 


WAITING 




* 


MESSAGES 




** 


************** 



THIS 

IMMEDIATE 
DATA 



***************** 



.* DOES *. 


.* THIS 


WORD 


*. HAVE A DICT 


*. POINTER . 




• * 




• * 


* YES 


**** 




* * 




*EC *.X 




* H3* 




**** 





-*—*—*-*-*-* 



RCPOTA X 

*****H3********** 

* REPLACE DICT * 

* POINTER WITH * 

* ASSIGNED *. 

* ADDRESS OR * 

* NUMBER * 
***************** 



******* 



********** 



****H4********* 

* * 

* RETURN * 

* * 
*************** 
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*****A2****** 

* GET 

* MESSAGE 

* NUMBER 



COMPUTE 
MESSAGE 
NUMBER 



******** 



****B2********** 

GENERATE * 

WARNING * 

INTERMEDIATE *. 

TEXT WORD * 

* 

**************** 



SAVE 

GENERATED 

WORD 



****B4********** 

GENERATE * 

ERROR * 

INTERMEDIATE * 

TEXT WORD * 

* 

**************** 



****D3***** 

RETURN 
*********** 



THIS A 
REFERENCE 
. NUMBER 



UNIT1 X 

*****F4********** 

* REPLACE DICT * 

* POINTER WITH * 
...X* REFERENCE * 

* NUMBER * 

* * 
***************** 



THIS AN 

INTEGER 
.VARIABLE 



*-*—*—*—*—*—*—*—* 

* PUT * 

* INPUT * 

* WORD OUT * 



*_*_*_*_*_*_*_*_* 

* ILLEGAL *X 

* I/O DEVICE * 

* REFERENCE * 
***************** 



THIS 
INTEGER 
DUMMY 



REPLACE DICT * 

POINTER WITH * 

ASGND ADDRESS * 

**************** 



****« 3 ********* 

* * 
.X* RETURN * 

* * 
*************** 
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ASSIGN 
ADDRESS 
TO DATA 



* UPDATE 

* INPUT 

* POINTER 

**************** 



.* DECK OR *. 
*CCMPILE AND GO 
*. OPTION .* 



****B5****** 

RETURN 
************ 



*****C2********** 

* GET * 

* BUFFER * 

* POINTER * 



**** . 
T X 

*****C4********** 

* READ INTO * 

* THIS BUFFER * 

* AND SELECT * 

* NEXT EUFFER * 

***************** 



*****D2******* 
* 

* PUT TEXT 

* DATA INTO 

* BUFFER 

************** 



INITIALIZE 



************* 



******** 



UPDATE 

NUMBER 

CF BYTES 



UPDATE CARD 

SEQUENCE 

NUMBER 



*****F1 ********** 

* SET UP FIRST * 

* ADDRESS IN *X 

* BUFFER * 

* * 
***************** 



.* FIRST * 
.ENTRY IN NEW 
*. BUFFER .* 



***F5******** 
PUT PROGRAM 

NAME AND 

CARD NUMBER 

TO CARD 

************* 



* UPDATE 
X* BUFFER 

* POINTER 

************** 



THIS 

BUFFER 
EMPTY 



TXT3 

*****H3* 
*GO FILE 



-*—*-*—*— 



************ 



*****H5 ********** 

* WRITE * 

* GO * 

* TAPE * 

* * 
***************** 



***J3********** 

SELECT AND * 

CLEAR NEXT * 

BUFFER * 



****K 3*** ****** 

* * 
•X* RETURN * 

* * 
*************** 



****K4** ******* 

* * 

* RETURN * 

* * 
*************** 



***************** 
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CHECK 

FOR 
END DO 



.* IS DO * 

* VARIABLE 

INTEGER 

*.VARIAELE 



.* DID *. 

.* STATEMNT *. 
*HAVE A STMT NO.* 



X 


CKNDOl .X. 


****B3********** 


B4 *. 


PINOUT ECA1* 


• * 




.* STMT 


PUT OUT DO * 


*. USED AS 


ADJECTIVE CODE * 


*. END DO 


+ STMT NO. * 


* . • 


**************** 


*. . * 



_*_*_#_*_*_* 



****C5***»* 
* RETURN 
*********** 



*********** 



********** 



* B2* TO 



***** 
*EC * 
* B2* 



PUT OUT 

IMMEDIATE DO 

PARAMETER 

************** 



.*IS TYPE*. 

* INTEGER * 

VARIABLE OR 

*. DUMMY .* 



D02A X 

*****G3********** 
*RDPOTA ECH3* 
*-*-*-*-*-*-*-*-* 

* PUT OUT * 

* DO PARAMETER * 

* VARIABLE * 
***************** 



NEXT 
ADJECTIVE 

CODE 
*. COMMA.* 
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***** 
*EG * 
* Al* 



READWR 




X 




01 


*****A1*» 


***** 


*** 


*PINCUT 




ECA1* 


*— * 


-*— *- 




-*-*- 


*-* 


* 


PUT 


F 


IRST 


* 


* 


WORD 


OUT 


* 



************ 



.X* INSURE SYMBOL 
*FCR I/O DEVICE 
* IS LEGAL 
**************** 



* NEXT 

TEXT WORD 
*.STMT NO. 



SAVE THE REST 
CF STATEMENT 
IN SAVE AREA 



*****B3* ********* 


*****B4********** 


* * 


*PINOUT ECA1* 


* PUT OUT END . * 


*_■*_*_*_*_*_*-*_* 


*MARK ADJECTIVE *X . , . . 


. . . .* * 


* CODE * 


* PUT WORD OUT * 



* PUT OUT * 

* BEGIN I/O * 

* LIST * 

* * 
***************** 



****D1 ********** 

REPLACE DICT * 

POINTER WITH * 

ADDRESS * 

**************** 



.* NEXT *. YES 
• *ADJ CODE IMPLI-*.... 
*. ED DC .* 



***************** 



DORWW 

*****C3** 
*PINOUT 



_*_*_•*_* 



PUT OUT 

IMPLIED D 

TEXT WOR 



D06RW 

*****D3***»* 

* SET SKIP 

* SAVE ARE 
....*RESTORE STA 

* MENT POINT 



******* 



t********* 



-*—*-*-* 



NEXT 

ADJ CODE 

SAOP 



-*-*-*-*- 



* PUT OUT WORD 

* CONTAINING 

* VARIABLE 
**************** 



HI * • 2 

.* NEXT *. 

.* ADJ CODE. * 

•COMMA. MODE/ 

*.TYPE NOT .* 

*. BLANK.* 



IMPROPER MODE/ 
TYPE VARIABLE 

IN I/O LIST 
************** 

MSGMEM 



* PUT OUT WORDS * 
X* WITH OFFSET * 

* AND POINTERS * 

* * 
***************** 



**************** 



PUT OUT *X 
INTEGER * 
VARIABLE * 
************** 



************* 



*****C4********** 
*SAVE STATEMENT * 

* POINTER. SET * 
X* IMPLIED DO *. 

* POINTER * 

* * 
***************** 



PAREN 
COUNT 

= 



ERROR EDA4* 

STATEMENT NO. * 

REFERENCE * 

NOT FORMAT * 

**************** 

.MSGMEM 

. **** 



* INCREMENT * 

* PAREN * 

* COUNT * 

* * 
***************** 



.YES .* NEXT *. 
.*ADJ CODE IMPLI- 
*. ED DO .* 



****F5********** 



***************** 



****J1 ********** 

SKIP TO * 

FIFTH WORD * 

AFTER THE * 

CURRENT WORD * 



************* 



r*** 



*_*_*-*_ 



***************** 



LISTK1 X 32 
*****J3********** 
*PINOUT ECA1* 



*************** 



*-*-*-*- 



_*_*_*_* 



***************** 



***** 
*EC * 
* C3* 



***** 

*EC * 
* B2* 
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*****A 1********** 

* * 
*GET FORMAT CODE* 

X* AND FIELD *X 

* PRECEDING IT * 

* * 
***************** 



****A3********* 

* ENTERED * 

* FROM PRESCAN * 

* * 
*************** 



*****B2** ******** 

* GET SCALE * 

* FACTOR AND P. * 
X* ENTER THEM * 

* IN TEXT CARD * 

* * 
***************** 



*****C2** ******* 

*ENTER ADJ CODE 
.X* AND COUNT IN 
* TEXT CARD 
* 
**************** 



*****D1 ********** 
*ENTER ADJ CODE * 
*FCR THIS FORMAT* 

* CODE IN TEXT *X 

* CARD * 

* * 
***************** 



.* WAS * 
* FORMAT 
CODE H OR 



.* DID *. 
.* FORMAT *. 
•CODE INDICATE. 
*. A GROUP .* 



*****F2**** ****** 



.* WAS *. 


* * 


**** 


♦FORMAT CODE*. YES 


* ENTER LITERAL * 


* * 


HOLLERITH .* 


...X* IN TEXT CARD «... 


.X* HI * 


*.OR QUOTE .* 


* * 


* * 


*. .* 


* * 


**** 


* . »* 


***************** 





.* THERE * 
*. FIELD LENGTH 
*.FOR THIS .* 
*.CODE .* 



* HI *.X 

* * 
**** 

X 
*****H1 ********** 

* * 

* COMPUTE * 

* *x 

* LENGTH * 

* * 
***************** 



.♦RECORD *. 
.♦LENGTH EXCD*. YES 
. SPECIFIED .*.... 
*. LENGTH .* 



*****G2 ********** 

* GET FIELD * 

* LENGTH AND * 
X* FOLLOWING *. 

* DELIMITER * 

* * 
***************** 



*«***J2** ******** 

* WARNING- * 

* RECORD LENGTH * 
X* EXCEEDS * 

* SPECIFIED * 

* LENGTH * 
***************** 



*****G 3* ********* 

* * 

* ENTER FIELD * 
X* LENGTH FOR *. 

* THIS CARD * 

* * 
***************** 



DELIMITER 
A DECIMAL 
. POINT 



*****G5******** 

* GET DECIMAL 

* LENGTH AND 
X* FOLLOWING 

* DELIMITER 



***** 



t*********** 



*****H5********** 

* * 

* ENTER DECIMAL * 
. * LENGTH N * 

* TEXT CARD * 

* * 
***************** 



.*END OF *. 
FORMAT 
STATEMENT 



****K2** ******* 

* EXIT TO * 

* PRESCAN '* 

* * 
*************** 
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***** 

*EH * 

* Al* 

* * 



INITIALIZE 



***************** 



FMT3 X 

*****B l********** 

* PUT ASSIGNED * 

* ADDRESS FOR * 
♦FORMAT INFCRMA-*. 

* TION I N * 

* OV'FLOW CHAIN * 
***************** 



***************** 



*****C 1 ********** 
*GETWDA ENA2*N0N 

*-*-*-*-*-*-*-*-* ZERO 

* FETCH WORD * 

* OR DELIMI TER * 



*_*_*_*_*_*_*_*_# 
X* NO LEAD ( * 

* IN FORMAT * 

* STATEMENT * 
***************** 



DELIMITER 



*****MSGMEM 
*EC * 
* B2* 
* * 



***** 

*EH * 

* E2* 

* * 



*****E1 ********** 

* GET PAREN * 

* COUNT =1 * 

* PUT 02 IN * 

* TEXT CARD * 

* * 
***************** 



* TURN 

* OFF COMMA 

* SWITCH 
* 
************** 



*****E4******* 

* * 

* TURN OFF 
X* COMMA 

* SWITCH 

* * 
************** 



x.x 

FMTGCE X 

*****F2** ******** 
*GETWDA ENA2* 
*-*-*-*-* -*-*-*-* ZERO 
...X* FETCH WORD * 

* OR * 

* DELIMITER * 
***************** 

• NCN 

• ZERO 



*_*_*-*_*-*_*-#_ 

* CHECK AND 

* CONVERT 

* INTEGER 
**************** 



*****H2** ******** 

* SET COUNT * 

* EQUAL TO * 

* CONVERTED *. 

* INTEGER * 

* * 
***************** 



*****H3******* 



************** 



***************** 



*****G4 ******* 



************** 

**** . 

* * . 
*EH *.X. 

* H4* 
**** . 

FMTBRN X 

*****H4 ********** 

* * 

* BRANCH * 
...X* ACCORDING TO *. 

* DELIMITER * 

* * 
***************** 



************************ 
♦DELIMITER * LOCATION* 
************************ 
************************ 
♦BLANK * EKA3 * 
************************ 
*D * EIA1 * 

************************ 
*E * EIA2 * 

************************ 
*F * EIA3 * 

************************ 
*I * EIA4 * 

************************ 
*A * EIA5 * 

************************ 
*X * EJG4 * 

************************ 
*P * EKH2 * 

************************ 
*+ * EKB1 * 

************************ 
X*- * EKA1 * 

************************ 
*( * ELA1 * 

************************ 
*/ * EMA3 * 

************************ 
*T * EMA1 * 

************************ 
*H * EJA4 * 

************************ 
*QUOTE * EJA1 * 
************************ 
•COMMA * EKH4 * 
************************ 
*) * ELA3 * 

************************ 
•OTHERS * EKE4 * 
************************ 
*ENDMARK * EKE4 * 
************************ 
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SET E 

INDICATOR 

FOR D 



SET E 

INDICATOR 

FOR E 



IICON X 
*****A4*» 
*FLDCNT 



CHECK 
FIELD 
COUNT 



CHECK 
FIELD 
COUNT 



CHECK 
FIELD 
COUNT 





FMTGDG X 


****E1 ********** 




ERROR EDA4* 


*GETWDA E0A2 




ZERO*-*-*-*-*-*-*-*- 


MISSING *X.. 


* FETCH WORD OR 


WIDTH * 


* DELIMETER 



SEND 10 
TO TEXT 
CARD 





FMT002 .X. 




FMT007 X 




C2 *. 


*****C3********** 




PUTFTX EEA2* 




*PUTFTX EEA2* 






D .* DEF *. F 




* SET FIXED 










TO TEXT * 




* TO TEXT * 


* ON 


CARD * 


*. .* 


* CARD * 


* * 



ADD FIELD 

LENGTH TO 

( RECORD LENGTH 



*DECIMAL LENGTH 

* EQUAL FIELD 

* LENGTH 



.♦COMPARE*. 

= .* NUMBER OF *. 

*DECIMAL PLACES 

*.T0 FIELD .* 

*.LNGTH.* 



DECIMAL 
LENGTH 
TOO LARGE 



*SEND NUMBER OF '■ 
•DECIMAL PLACES '■ 
* TO CARD 





FMT003 .X. 




J2 *. 








NO .* IS *. 




*. DELIMETER .* 




*. DECIMAL .* 




*. POINT.* 








* YES 


FMTC04 X 


FMT005 X 


*****«. 1 ********** 


*****K2********** 


•ERROR EDA4* 


*GETWDA ECA2* ** 




ZERO*-*-*-*-*-*-*-*-*NON * 


* PUNCTUATION *X.. 


* FETCH WORD *....X* F 


* ERROR * 


« CR DELIMITER *ZERO * 










. TO 




. MSGMEM 





Chart EI. Subroutine D/E/F/I/A 
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***** 
*EJ * 
* Al* 



***************** 



***************** 



*_*_*_*_#_*_*_*_* 



***************** 



*—*—*-*—*—*-*—*-* 

* SEND 1A AND * 

* COUNT TO * 

* TEXT CARD * 
***************** 



FMT017 X 

*****C 1 ********** 
*PLTFTX EEA2* 
*—*—*—*—*—*—*—*—* 



***************** 



.* LAST CHAR *. 

.BEYOND END OF. 

*. BUFFER .* 



****C5 ********* 

MOVE CHARS IN 

CURRENT INPUT 

BUFFER TO 

TEXT CARD 



***** 



t********* 



NEXT 
CHARACTER 
. QUOTE . 



* FOLLOWING 

CHAR ALSO A 
*. QUOTE 



* MOVE CHARS 

* TO CARD AND 
*ADJUST POINTER 
*************** 



****D5 ******** 

REDUCE COUNT 

BY NUMEER 

OF CHARATERS 

MOVED 



_*_*_#_*_ 



************* 



FMTXXX 

*****E3* 
*PUTFTX 



* PUT OUT CHARS *. 
*FROM SAVE AREA * 

* TO TEXT CARDS * 
***************** 



-*-*—*—*-*-*—* 

ADD WIDTH * 

TC RECORD * 

LENGTH * 

************** 



********** 



* SAVE * 

* CHARACTER IN * 

* SAVE AREA * 

* * 
***************** 



.* TOO *. YES 

*.MANY CHARS IN.*.... 
*.SAVE AREA.* 



*G2******* 



X* TOO MANY * 

* CHARATERS IN * 

* SAVE AREA * 
***************** 



FMXCON X 

*****G4********** 
*PUTFTX EEA2* 
*-*-*-*-*-*-*-*-* 

* SEND 18 * 

* AND COUNT * 

* TO TEXT CARD * 



*****H 1 ******** 



*************** 



*** J4**** 



************* 



ADD WIDTH 

TO RECORD 

LENGTH 

*********** 



ZERO COUNT 



Chart EJ. Subroutine QUOTE/H,X 
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***** 
*EK * 
* Al* 



* SET SIGN * 

* INDICATION * 

* FOR MINUS * 

* * 
************** 

**** . 

* * . 
*EK *.X. 

* Bl* 
**** . 

FPLUS X 

*****B 1********** 
*GETWDA E0A2* 

*_*_*-*-*-* _*_*_* 2 



BLANKZ X 

*****A3*** ******* 
*GETWDA ENA2* 

*_*-.*_«_*.-«—*_#_# |sj on 

* GET WORD * 

* OR DELIMETER *ZERO 



***** 
*EF * 
* H4* 



*************** 



***** 
*EC * 

* B2* 



*************** 
. NCN 
. ZERO 



*-*-*-*-*-*-*-*-* 



***************** 



*****D 1 ********** 

* * 

* SET FACTOR * 

* EQUAL TO * 

* INTEGER * 

* * 
***************** 



DELIMETER 



*****E2 ********** 
*ERRCR E0A4* 
*_*_*_*_*_*_*^*_« 

X* ILLEGAL * 

* SIGN * 

* * 
***************** 



FILLEG X 

*****E4**** 
*ERROR 



**************** 



*****G1 ********** 

* * 

* PUT 1 BIT * 

* IN BIT OF * 

* SCALE FACTOR * 

* * 
***************** 



***** 
*EC * 
* B2* 



*****H 1 ******* 

* * 

* TURN OFF 

* MINUS SIGN 

* INDICATION 

* * 
************** 



.FSCALE X 

*****H2********** 

*FUTFIX EEA2* 

*-*-*-*-*-*-*-*-* 

X* SEND 08 AND * 

* SCALE FACTOR * 

* TO TEXT CARD * 



*. COMMA SWITCH 



*****H5 ******* 

* * 

* TURN ON 
X* COMMA 

* SWITCH 

* * 
************** 



***** 

*EC *T0 

* B2*MSGMEM 



Chart EK. Subroutines +/-/P, BLANKZ, FILLEG, FCOMMA 
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*GROUP INDICATOR* X* 



MORE THAN 1 

LEVEL CF 
NESTING ( ) 
************** 



RPAREN X 

*****A3********** 
*NOFDCT ENH4* 
*_*_*_*_*_*_*_*_* 

* CHECK * 

* COUNT * 

* SWITCH * 
***************** 



*****B1 ********** 

* SET COUNT * 

* EQUAL TO * 

* GROUP COUNT * 

* * 
***************** 



************ 



* SEND 04 * 
*AND GROUP COUNT* 

* TO TEXT CARD * 
***************** 



****D1 ********** 

SET LEADING * 

LENGTH AND * 

TAIL LENGTH * 

EQUAL TO ZERO * 

**************** 



*****E 1 ******* 

* SET COMMA, * 

* GROUP AND 

* LEADING IN- 

* DICATORS ON 

* * 
************** 



.* IS *. 

.* PAREN *. YES 


*ERROR EDA4* 
**-*-*-*-*-*-*-*-* 




*. ZERO .* 
*. .* 

* • •* 
* NO 


* ERROR * 

* * 
***************** 


X 

***** 

*EC * 

* B2* 

* * 

*T0 

MSGMEM 


.X. 
D3 *. 
.* IS *. 
.* PAREN *. YES 


FMT020 

*****D4********** 
*PUTFTX EEA2* 
*-*-*-*-*-*-*-*-* 


*****D5 ********** 
*LINECK ENE2* 
*-*-*-*-*-*-*-*-* 


*. ZERO .* 


* CARD (END OF * 


* OF RECORD * 



.* LEAD PLUS *. 
*TAIL LENGTH GT 
*. SPECIF IED.* 
*LENGTH * 



-*—*—*—*— 



FMT032 X 

*****E5 ******** 

* ADJUST 

* INPUT BUFFER 

* POINTER TO 

* A FULL WORD 



******* 



******* 



*********** 



***** 
*EH * 
* F2* 



.* TAIL * 
.LENGTH EQUAL 
*. TO ZERO .* 



FMT023 X 

*****G3********* 

* INCREMENT 

* RECORD LENGTH 

* BY LEADING 

* LENGTH * 

* GROUP COUNT 
**************** 



*****H3******* 



SET GROUP 

INDICATOR 

OFF 



RECORD 

LENGTH EQUALS 

TAIL LENGTH 



-*—*—*—*—* 



********** 



Chart EL. Subroutines LPAREN, RPAREN 
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***** 
*EM * 
* Al* 



***** 
*EL * 
* A3* 



FSUEST X 

*****A 1 ********** 
♦NCFDCT ENH4* 
*_*_*_*_*_#_*_*_* 

* CHECK * 

* COUNT * 

* INDICATOR * 
***************** 



FSLASH X 

*****A3********** 
*PUTFTX EEA2* 
*_*..*_*_*_*_*_*_* 

* SEND IE TO * 

* TEXT CARD * 

* * 
***************** 



*****B 1 ********** 
*GETWDA E0A2* 
*_*_*_ *_*_*_*_ *_*2ER0 

* GET WORD OR *•••.. 

* DELIMETER * 

* * 
***************** 

• NON 

• ZERO 



*****B2** ******** 

*ERRGR EDA4* 

*-*—*--*—* — *—*—*—* 

.X* NUMBER * 

* MISSING * 

* * 
***************** 



FMT009 X 

*****B 3 ********** 
*NOFDCT ENH4* 
*-*-*-*-*-*-*-*-* 

* CHECK * 

* COUNT * 

* SWITCH * 
***************** 



*****C 1 ********** 
*INTCON E0A4* 
*_* _#_#_* _*_■*-.*_* 

* CHECK * 

* INTEGER * 

* * 
***************** 



***** 
*EC * 
* B2* 



TO 

MSGMEM 



*****C 3**** ****** 
*LINECK ENE2* 
*_*_*_*_*_•*—*_*_* 

* CHECK * 

* RECORD * 

* LENGTH * 
***************** 



*****[>! ********** 

*PUTFTX EEA2* 
#_# _*—*_*—*_*—*— * 

* SEND 12 AND * 

* POSITION NO. * 

* TO TEXT * 
***************** 



*****D 3* ********* 

* SET RECORD * 

* AND TAIL * 

* LENGTHS EQUAL * 

* TO ZERO * 

* * 
***************** 



*****E1 ********** 
*LINECK ENE2* 
*-_*_*_*_*-.*_*_*_* 

* CHECK * 

* RECORD * 

* LENGTH * 
***************** 



Fl *• 
.* IS *. 

GROUP *. YES 
INDICATOR .*.•*. 
ON .* 



*****E3******* 



* 


SET 


* 


LEADING 


* 


INDICATOR 


* 


OFF 


************** 




X 




***** 




*EH * 




* E2* 




* * 



* • 



*****G1 ********** 

* SET RECORD * 

* LENGTH EQUAL * 

* TO POSITION * 

* NUMBER * 

* * 
***************** 



FMT011 X 

*****H1 ******* 

* * 

* SET LEADING * 

* INDICATOR *X. 

* OFF * 

* * 
************** 



FMTOIO X 

*****G2**** ****** 

* SET RECORD * 

* LENGTH =0 * 
*SET TAIL LENGTH* 

* EQUAL TO * 

* «T» NUMEER * 
***************** 



X 
***** 
*EH * 
* E3* 



Chart EM. Subroutines T, FSLASH 
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***** 
*EN * 
* A2* 



LINETH X 

*****A2** ******** 

* COMPUTE TOTAL * 

* LENGTH = * 

* FIELD LENGTH * 

* * FIELD COUNT * 

* * 
***************** 



* _ ADD TOTAL * 

* LENGTH TO * 

* RECORD LENGTH * 

* * 
***************** 



*****C3********* 
* 

* ADD TOTAL 

* LENGTH TO 
*LEADING LENGTH 
* 
**************** 



ADD TOTAL 

LENGTH TO 

TAIL LENGTH 



****D3********* 

* * 

* RETURN * 

* * 
*************** 



ADD LEAD * 

LENGTH TO * 

RECORD LENGTH * 

* 

**************** 



* F2 *.X. 



*************** 



RECORD *. 
LENGTH GT 
.SPECIFIED.* 
*.LNGTH.* 



*****P3********** 

* * 

* SET RECORD * 
.* LENGTH = * 

* TAIL LENGTH * 

* * 
***************** 



**** 

* * 

* F2 * 

* * 
**** 



RETURN 
************ 



***** 
*EN * 
* H4* 



FLDCNT 


.X 






HI 


* 




* 






IS 




*. 


COUNT 


*. 


= 





*—*—*—*— 



—*—*—*—* 



SEND 06 AND 

FIELD COUNT 

TO TEXT CARD 

************** 



***************** 



* RETURN * 

* * 
*************** 



**** J4 ********* 

* * 

* RETURN * 

* * 
*************** 



Chart EN. Subroutines LINETH, LINECK, FLDCNT, NOFDCT 
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***** 
*E0 * 
* A2* 



*STEP TRANSLATE 

* AND TEST 

* POINTER 
* 
**************** 



************* 



THIS 

CHARACTER 

BLANK 



INTEGER 



*READ INTO THIS *X. 
* BUFFER AND * 
*ADJUST POINTER * 
***************** 



* THIS THE 

END OF THE 
*. BUFFER 



******* 



CONVERT 

NUMBER TO 

BINARY 

*********** 



* C2 *.X. 



* TRANSLATE 

* AND 

* TEST 

*************** 



*****E2** 



*********** 



*****F2**** 



************* 



****F4********* 
* 
RETURN * 
* 

*************** 



.* THIS *. 

.END OF SECOND. 
*. BUFFER .* 



GET LENGTH 

OF SYMBOL 

TRANSLATED 



RTNE1 

*****G4********* 

* ADJUST TRT 

* POINTER TO 
...X* NUMBERS THAT 

* WILL BE MOVED 



.* THIS * 
.END OF FIRST 
*. BUFFER .* 



*****H4 ********** 
*PUT TRANSLATED * 

* DATA TO AREA * 

* PRECEDING * 

* FIRST INPUT * 

* BUFFER * 
***************** 



TOTAL 
LENGTH 

= 



*_*_*_*_*_*_*_*_* 

* READ INTO * 

* SECOND * 

* BUFFER * 
***************** 



****K1 ********* 

* * 

* ZERO RETURN * 

* * 
*************** 



****K3********* 

* NON ZERO 

* RETURN 
* 

*************** 



Chart EO. Subroutines GETWDA, INTCON 
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PHASE 15 



Phase 15 modifies input text and con- 
verts it to a more refined form by reorder- 
ing the sequence of text words within the 
statements. The text words may be modified 
to a form closely resembling an instruction 
format. When the text words are modified, 
registers are assigned to the operands 
depending upon the operator. Argument 
lists for external or arithmetic statement 
function references are created by modify- 
ing the input text. In-line function ref- 
erences are processed by generating the 
appropriate instruction format text or in- 
line function call word. During the input 
text processing, errors pertaining to a DO 
loop, arithmetic IF statement, statement 
number, function argument, and operand 
usage and form are recognized, and the 
proper messages are given. 



Subscript Table 



The subscript table is used as a tem- 
porary storage area for subscript text. 
Each subscript entry in the subscript table 
is two words. There may be no more than 38 
entries to the subscript table. 



Forcing Scan 



The forcing scan directs the ordering of 
the text words of the statement. It com- 
pares the forcing value of the various 
adjective codes to determine their disposi- 
tion. 



Chart 06, the Phase 15 Overall Logic 
Diagram, indicates the entrance to and exit 
from Phase 1 5 and is a guide to the overall 
functions of the phase. 



Each adjective code has a left and a 
right forcing value. The right forcing 
value applies to the adjective code within 
the text word in the input text. The left 
forcing value applies to the adjective code 
within the text word in the operations 
table. 



ORDER OF OPERATIONS 



Phase 15 implements an ordering of the 
operations within each statement of the 
text by reordering the sequence of text 
words . 

The desired order is defined by a 
hierarchy of the specific operations as 
represented by adjective codes and deter- 
mined by comparing two adjective codes. 
The text word is either processed, or 
stored in the operations or subscript table 
depending upon the hierarchy. 



Operations Table 



The operations table is a temporary 
storage area used during the ordering of 
operations within a statement for any text 
words referring to the operation. An 
exception is made for subscript text which 
is stored in the subscript table. 

The operations table may contain no more 
than 50 entries. The entries in the opera- 
tion table are accessed by a pointer to the 
last entry for the specific statement under 
consideration. 



The adjective code of the first word of 
the statement has the highest forcing value 
of any adjective code except the end of 
statement indicator. This adjective code 
is entered into the operations table. 

As a word of the input text is accessed, 
its right forcing value is compared to the 
left forcing value of the adjective code of 
the last word entered into the operation 
table. If the left forcing value is higher 
than the right forcing value of the current 
input text word, the current input text 
word is stored in the operations table. If 
the left forcing value is lower or equal, 
the current input text word is processed. 

A word is uniquely processed depending 
upon its adjective code, and then written 
onto the output data set. In this way, the 
input data set is ordered when it leaves 
Phase 15 as the output data set. 



ARGUMENT LISTS 



When an adjective code indicating a call 
to an in-line, external, or arithmetic 
statement function is detected, a list of 
arguments is constructed. An exception is 
made for the SNGL and DBLE in-line func- 
tions which are processed by Phase 15. 
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For external or arithmetic statement 
functions , the argument list is preceded by 
a text word containing information to iden- 
tify the specific function call. The first 
word of the argument list is a count word 
which indicates the number of arguments. 
It is followed by a text word for each 
argument . 

For in-line functions not processed by 
Phase 15 , only one text word is generated. 
The three parts of this text word are: 



function call adjective 
operand 



m 



1. An in-line 
code. 

2. Registers assigned to the 
the mode/type field. 

3. A code to indicate the specific in- 
line function in the address pointer 
field. 

During the processing of argument lists, 
a count of the total number of arguments is 
kept in the communications area. This 
count will be used by Phase 20. 



TEXT WORD MODIFICATION 



As each statement of Phase 15 is 
processed , the various text words are exam- 
ined and modified. The contents of the 
adjective code field may be changed to an 
operation code which is determined by the 
required operation and the mode of the 
operands. The mode field is replaced by an 
appropriate register assignment. 



Register Assignment 



Registers are assigned by Phase 15 
according to the adjective code that is 
encountered. Many operations and most 
function references require that certain or 
all operands be in registers. 

There are eight registers (general reg- 
isters 0, 1, 2, and 3; and floating point 
registers 0, 2, 4, and 6) assigned by Phase 
15 in these cases. The type of register 
used depends upon the mode of the operation 
and operands. 



When a register is required and one is 
not available , the contents of required 
registers are placed in the first available 
work area (save register technique) . 



ERROR CHECKS 



As each statement is accessed and proc- 
essed , specific error conditions are recog- 
nized. General format errors as well as 
errors connected with specific statements 
such as DO, arithmetic IF, statement num- 
ber, or an argument list are noted. DO 
loops are examined to determine if the DO 
variable is redefined or if a DO loop is 
partially nested. Arithmetic IF statements 
are examined to determine if the arithmetic 
expression contains legal symbols. They 
are also examined to determine if more or 
less than three statement numbers have been 
specified. Statements numbers are examined 
to insure that they are defined and do not 
indicate transfers to nonexecutable state- 
ments. If a function subprogram is being 
compiled, a check is made to determine 
whether the function name is defined. The 
members of an argument list are examined to 
determine whether they are valid. If the 
particular list has a required length it is 
examined to determine if that list is of 
the required length. If an error condition 
is discovered, an error message is given. 



ROUTINES/SUBROUTINES 



The routines and subroutines within 
Phase 15 fall into four groups. The first 
group contains the PRESCN routine which 
accesses each statement and determines 
which routines of the second group will 
process that statement or begin the proc- 
essing of that statement. The routines 
called by PRESCN form the second group. 

The third group refers to the routines 
which are called by the FOSCAN routine (a 
routine in the second group) . 

The routines called by the second and 
third groups, other than FOSCAN, form the 
fourth group. Figure 45 illustrates these 
groups. 
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CHART FA * 

* 

************** 



***B 1 **** * 



CHART FC 
************* 



* CHART FF 

* 

************* 



SUBROUTINES 



CALLED BY. 



* CHART FD 
*************** 



*—*—*—*—*—*—*—*—* 

* CHART FD * 

* * 
***************** 



CHART FE 



CHART FQ 



* CHART FB 
************* 



CHART FF 
*********** 



*****C5 ********** 

* MOPUP * 
*—*—*—*—*—*—*—*—* 

* * 

* CHART FG * 

* * 
***************** 



CHART FH 
************** 



CHART FI * 
************** 



CHART FK * 

* 

**************** 



—*—*—*—*—*—* 



* CHART FL 
************* 



CHART FM 



CHART FL 



CHART FN 



*********** 



_*_*_*_* 



_*_*_*_*_*_*_* 
* « 
CHART FP * 

************** 



CHART FN 



-*-*-*-*-*-*-* 



CHART FF 



******* 



* CHART FL * 

* * 
***************** 



* CHART FC * 
***************** 



*_*_*_*_*_*_* 
* CHART FT 
************* 



* CHART FX 
**************** 



*_*_*_*_*_*_* 
"* CHART FT 
************* 



*****H1 ********* 
*MSGMEN/MSGMEM/ 

* MSG 
**************** 

* CHART 

* FF 



* CHART FS 

* 

**************** 



CHART FV * 
**************** 



* CHART FV * 

* * 
***************** 



*J1 ********** 



* CHART FJ 
*************** 



CHART FR 
********** 



*_*_*_*^*_ 



***************** 



* CHART GA * 

* * 
***************** 



****K1 ********** 

PINOUT, ININ, * 

INOUT * 

**************** 

CHART * 

FW * 

**************** 



* CHART FY * 

* * 
***************** 



*****K3********** 
*FINDR, CHCKGR, * 

* SAVER, FREER, * 

* LOADR *. 
***************** 

* CHART FU * 
***************** 



_*_*_*_*_ 



* CHART GC * 

* * 
***************** 



*-*-*-*-*-*-*-*- 



***************** 



Figure 45. Organization of Phase 15 
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PRESCN Routine: Chart FA 



The PRESCN (control) routine, identifies 
each statement type and passes control to 
the appropriate processing routine. 

ENTRANCE : The PRESCN routine receives con- 
trol from the FORTRAN System Director. 

OPERATION: The PRESCN routine performs the 
necessary phase initialization. Each 
statement identification word is then 
accessed and the adjective code is examined 
to determine the appropriate processing 
routine for that statement. 

EXIT: When the END statement indicating 
the end of the input text is sensed , 
control passes to the MOPUP routine. The 
MOPUP routine exits to the FORTRAN System 
Director to call in Phase 20. 



FOSCAN Routine: Chart FB 



The FOSCAN routine, which is the arith- 
metic scan, checks the syntax of the arith- 
metic, arithmetic IF, CALL, and ASF state- 
ments. This routine removes parentheses 
and orders the arithmetic expression 
according to the hierarchy of operations. 



processed, the related subscript text is 
accessed from the subscript table. The 
related subscript text is always the latest 
subscript in the subscript table. 



If the word accessed from the input text 
is not a subscript word, the right forcing 
value associated with that word is accessed 
and compared to the left forcing value of 
the latest operations table entry for that 
statement. If the right forcing value 
forces the left forcing value (according to 
the hierarchy set up by the forcing scan) , 
the text is processed. 

If the left forcing value is not forced 
by the right forcing value, the current 
word of the input text is entered into the 
operations table. The next word of the 
input text is then accessed. 

If an attempt is made to enter informa- 
tion into the operations table when it is 
full, an error condition is recognized. An 
error message indicating that the statement 
is too long and should be subdivided is 
issued. The remainder of that statement is 
not processed. 

The end mark is written on a work tape? 
all other words, including the non- 
processed words in the subscript table are 
not written out. 



ENTRANCE : The FOSCAN routine is entered 
from the PRESCAN routine when an arithmet- 
ic, arithmetic IF, CALL, or ASF definition 
adjective code is detected. 

CONSIDERATION: The forcing scan is used 
during the arithmetic scan. It is des- 
cribed in the Introduction to Phase 15. 

OPERATION: The first text word of the 
statement is written onto the intermediate 
text output tape. The FOSCAN routine 
attempts to limit the value range of the 
adjective codes in the forcing value tables 
to increase the efficiency of working with 
the table. The FOSCAN routine equates the 
adjective code of any arithmetic, arithmet- 
ic IF, CALL, or ASF definition statement to 
a particular forcing adjective code value. 
The original adjective codes would cause a 
more extensive range of adjective codes in 
the forcing value table. The modified text 
word is placed into the operations table. 

After the first word, as modified, is 
entered into the operations table, the next 
word of the input text is accessed and 
examined. If it is a subscript word, the 
subscript text is entered into the sub- 
script table. The following word of the 
input text is then accessed and examined. 
When the word (in the operations table) 
containing the subscripted variable is 



There is additional processing for the 
CALL and ASF definition statements. For a 
CALL statement, the name of the subroutine 
subprogram called is checked to determine 
if it has been defined. If the mode/type 
field of the word indicates an external 
library subprogram, the subroutine 
subprogram name is considered defined and 
processing continues. If the subprogram 
name is not defined, the statement is not 
processed. An error message, along with 
the end mark, are written onto the output 
buffer. For an undefined subprogram name, 
the associated CALL statement output is: 



r T T 

| CALL | | 

j adjective | mode/type [subroutine 

| code j j name 



jend mark j 
I- x - 



error message 
1 byte 1 byte 



^ 

| internal sequence ) 
j number j 

x H 



2 bytes 



For an ASF definition, the ASF switch is 
set. This indicates to the various rou- 
tines called by the arithmetic scan that an 
ASF definition statement is being proc- 
essed. 
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Table 1. Right and Left Forcing Tables 



F 

( 

I- 

) 

I- 






/ 



Adjective 
Code 



Left 

Forcing 

Value 

64 

00 



n 



F( 



_+— 



u 



end mark 



+ 
u 

ASF 
Forcing 

ARITH 
Forcing 

CALL 
Forcing 



h 



L 



IF 
Forcing 



70 



49 



80 



09 



f 



09 
05 



05 



04 
64 



-+ 



05 



00 



._+. 






05 
72 
72 









72 



72 



Address of Associated 
Routine 



a (LFTPRN) 



a (RTPRN) 
a (EQUALS) 



a (COMMA) 






^ 



never forced out 






a (ADD) 



a (ADD) 



a (MULT) 



a (MULT) 






a (EXPON) 
a (FUNC) 



a (UMINUS) 



never forced out 



a (UPLUS) 



a (END) 



a (END) 



a (CALL) 



a (END) 



1 byte 



1 byte 



2 bytes 



-I 



Right Forcing 
Value 



I— 



I- 

h 

h 

(. 

I- 



01 
69 
70 
48 
01 
09 
09 



H 



05 



I- 



^ 

05 

03 
-I 

01 



h 



01 



80 



-H 



01 



70 



H- 



70 
70 



70 
1 byte 



Right and left forcing tables of the CALL, and ASF) which may appear as input to 



format in Table 1 are used to determine the 
right and left forcing values of the var- 
ious operators. 

Input/Output Formats : There are four 
statement types (arithmetic, arithmetic IF, 



the Phase 15 Arithmetic Scan. An arithmet- 
ic scan within the FOSCAN routine passes 
control to the associated operator routine 
to process the individual text words. 
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A simple arithmetic statement such as: 

HERBIE = MACK - WINDY 

appears in the input to Phase 15 as: 



T" 



| arithmetic 
(adjective 
j code 

y 

i 



— + 



|end mark 

L X 



integer 
variable 



j a (HERBIE) 
I 



integer 
variable 



integer 
variable 



I 

| a (MACK) 

-+ 



1 byte 



1 byte 



2 bytes 



— I 



H 



| a (WINDY) 

__ + -I 

| internal statement 
| number 

X . . 



The address pointer field contains 
the address of the resultant field 
of the arithmetic statement. 



The output from Phase 15 for this statement is: 



j arithmetic 
(adjective 
j code 



|L 



\s 



JST 
I 

I- 

I 

(end mark 

I __. 



integer 
variable 



"*T~ 

i 



| a (HERBIE) 



register j variable j a (MACK) 
#3 | | 

4 x _ H 



register | variable | a (WINDY) 
#3 | I 

register j variable j a (HERBIE) 
#3 | I 
x x x ., 

(internal statement 
j number 

. x 



1 byte 



1 byte 



2 bytes 



The first operand , MACK, is loaded 
into register #3. 

The second operand f WINDY, is sub- 
tracted from MACK. 

The result is stored in the resul- 
tant field, HERBIE. 
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A complex arithmetic statement such as: 
A (IOAD) = JETHRO * MOOSE + A (IOAD) 
appears in the input to Phase 15 as: 



arithmetic | real 
adjective j subscripted 
code | variable 

| residual 
SAOP j mode/ type 

| information 

p (subscript) 

| real 
= (variable 
j. x 

| real 
* (variable 

j real 
+ j subscripted 

(variable 
j. + 

| residual 
SAOP | mode/ type 

j information 

x 






p (subscript) 



4 



end mark | 
X- 



a(A) 



Offset 



p (dimension) 
a (JETHRO) 






a (MOOSE) 
a (A) 






., 



Offset 



p (dimension) 






internal statement 
number 



j 



1 byte 1 byte 



2 bytes 



These two words contain the sub- 
script text for A (IOAD) . 



These two words contain the sub- 
script text for A (IOAD) • 
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The output from phase 15 for this statement is: 



t r i 

arithmetic! real 

adjective j subscripted 

code j variable 

LE j register 

| #6 

j. + 

ME (register (real 

#6 variable 



h 



h 



a (A) 

+ 
subscripted | a (JETHRO) 
variable 

a (MOOSE) 



SAOP 



-+- 



p (subscript) 



AE 



I | register 

| #3 



| register 
| #6 

SAOP | | register 

#3 

p (subscript) 



STE | register 
|#6 



Offset 






real 

subscripted 

variable 



real 

subscripted 
variable 
+ 



end mark | 






p (dimension) 



a (A) 



^ 



Offset 

p (dimension) 



a (A) 



H 



1 byte 



1 byte 



internal 
statement number 

2 bytes 



Phase 15 zeros residual mode infor- 
mation and replaces residual type 
information with a work register. 

These three words contain the 
subscript text for + A (IOAD) . 



Phase 15 zeros residual mode infor- 
mation and replaces residual type 
information with a work register. 

These three words contain the 
subscript text for A (IOAD) =. 



A simple arithmetic IF statement such as: 

IF (MART) 11,5,63 

appears in the input to Phase 15 as: 



j arithmetic 
| IF 

j adjective 
I code 



-+- 



00 



0000 



I ( 
I— 



integer 
variable 



I) 



statement 
number 



-+■ 



a (MART) 



statement 
number 



P(11) 
-I 



4 



lr 



P(5) 



statement 
number 



P(63) 



00 



| end mark 
1 byte 1 byte 



internal statement 
number 






2 bytes 
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The output from Phase 15 for this statement is: 



r t 

| arithmetic 
| IF 

(adjective I 00 I 0000 

] code 

| LE | register | variable j a (MART) 
|#0 



^ — 

| IF forcing 
| adjective 
(code 

I- 

I) 






-f 



|end mark 

L 

1 byte 



50 



statement number 
statement number 






statement number 



-I 



0000 






p(11) 

P(5) 






p(63) 



-H 



internal statement 
number 



1 byte 



2 bytes 



The value of the arithmetic portion 
of the arithmetic IF is . loaded 
into register 0. 

The mode field indicates the 
address pointer field indicates 
register 0. 



A complex Arithmetic IF statement such as: 
IF (IR(H) + M - 18) 6, 26, 64 
appears in the input to Phase 15 as: 



r " " - t " - ~ — " 

| arithmetic | 
| IF | 
(adjective | 00 
| code j 


(00 00 | 

d | a (IR) | 

i i 


I*'™ ~"" ~ I" 

| | integer 

j ( j subscripte 

| (variable 

I | ,; ., ,,, _ _..„. _ 


r 1 t 1 

| | residual | | 
JSAOP (mode/ type j Offset j 
j j information j j 

j p (subscript) jp (dimension) j 

L - _ _ _, -. ^ - „, „„., ., _, 1 • - ■ • ■ 


r — t 

| | integer 

| + | variable 

i i „• _ 


T 1 

|a(M) | 

,, i , - „, „ ,., | 


r ■ ■ t ■ 

| | integer 

j - j constant 

i , „,.,,.. .,. i ,„ .. 


1 . 1 
|a(18) | 

_ + ^ 

|P(6) I 
IP(26) | 

I •' 1 


r r 

| | statement 
j ) j number 

j „„ j ,„;.. 


| j statement 

j , | number 

i . „ ' i „ 


I t 

| | statement 
| , j number 

1 1 
(end mark | 


t ■ ■ 1 

|p(64) | 

(internal statement j 
(number | 



These two words contain subscript 
information for IR (H) . 



1 byte 1 byte 



2 bytes 
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The output from Phase 15 for this statement is: 



Form Z28-6620-0 
Page Revised 1/11/66 
By TNL Z28-2117 



r T 

arithmetic] 
IF | 
adjective | 00 
code | 

h 



h 



SAOP 



10 



(register 
|#3 

-X 



p(subscript) 



| register | subscripted 
| #3 (variable 



(register [variable (a(M) 
(#3 | 

S j register | constant (a (18) 
| #3 | 

IF forcing j register | 1 (000 3 

adjective (#3 j 
code j j 
I I 



-H 



) 


-+ x - 

| statement 
x 


number 


„ + 

|p(16) 

+ - - 


e 


t 

j statement 

X 


number 


|p(16) 

i — — — 


9 


T 

| statement 


number 


|p(26) 




-+ 

1 




_ + --- 

| internal 


end mark 


1 




| statement number 




-X . 




x. 



0000 



offset 



p (dimension) 



a(IR) 



H 



— H 
^ 



1 byte 



1 byte 



2 bytes 



Phase 15 zeros residual mode infor- 
mation and replaces residual type 
information with a work register. 
These three words contain the sub- 
script information for IR(H). 



The value of M is added to 
value of IR(H) in register #3, 



the 



The value of 18 is subtracted from 
the value of IR(H)+M in register 3, 

A 1 in the mode/type field indi- 
cates a register in the address 
pointer field. Register #3 will 
contain the value of the arithmetic 
portion of the arithmetic IF. 



A CALL statement with no parameters; 



CALL SUBRTN 



appears in the input to Phase 15 as: 



r T . — .. T _. 1 

(CALL ( | | 

j adjective (real (a (SUBRTN) j 

j code (subprogram j j 

L X + _ ^ 

| II internal statement | 

j end mark j j number j 

L„ X_ . X J 

1 byte 1 byte 2 bytes 
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The output from Phase 15 for this statement is; 



r t t 

| CALL | J 

| adjective jreal j a (SUBRTN) 

| code j subprogram j 

h 



| CALL | real | 
(forcing j subprogram | a (SUBRTN) 

h 



|00 
h 



00 



0000 



|end mark | 

L X- 



| internal statement 
I number 



1 byte 1 byte 



2 bytes 



-H 



There is no argument. 



A simple CALL statement: 



CALL SUBRTN (A, 1.0) 



appears in the input to Phase 15 as: 



r 

j CALL 

j adjective 

j code 

h 



T T 

real | 
external j a (SUBRTN) 
subprogram j 



i< 



real | 
variable ja(A) 



I, 



real 
constant 



|a(1.0) 



| end mark 

L 



| internal statement 
| number 

x 

1 byte 2 bytes 



1 byte 



230 



The output from Phase 15 for this statement is: 



r t t 

| CALL | real | 

| adjective | external | a (SUBRTN) 

j code | subprogram | 

I. + ^ 

I I real | 

j CALL | external | a (SUBRTN) 

j forcing j function | 

|. X X 



^ 



I 00 



00 



0002 



I- 



T T 

| real | 
| ( (variable (a (A) 

I I real | 

| , | constant | a (1 . 0) 

j j (internal statement 

(end mark j (number 

L X JL 



^ 



1 byte 



1 byte 



2 bytes 



There are two arguments. 



A complex CALL statement: 
CALL OAJK (A,B<I) ,C*2.+D) 
appears in the input to Phase 15 as: 



h 



T — " T 

CALL j 

ad j e cti ve j real 

code j subprogram 

f 



( 



(real 

| variable 

-+ 

(real 
f | subscripted 

| variable 

j residual 
SAOP j mode/ type 

information 



h 



p (subscript) 



h 



| real 
(variable 

(real 

* j constant 
j. + 

(real 

♦ (variable 

\ 



(00 



end mark | 

X- 



a (OAJK) 



a (A) 
a(B) 






Offset 



p (dimension) 



a(C) 
a (2.) 






-I 



a(D) 



0000 



internal statement 
number 



1 byte 1 byte 



2 bytes 



These two words refer to B (I) • 
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The output from Phase 15 for this statement is: 



T T 

CALL | J 

adjective jreal subprogram ja(OAJK) 
code j | 

LE j register | variable | a (C) 
|#6 | | 



ME 



| register j constant j a (2) 
| #6 | | 
_ + + + - 



AE 



STE 



| register | variable | a (D) 
|#6 | | 

j register | work jwork area 
| #6 jarea j 

.x x x 



00 







0003 



SAOP 



T T T 

| register | register | Offset 
|#3 |#3 | 
x x 1 

p (subscript |p (dimension) 
T T x 

LA | B | type | a (B) 



-H 



-H 



H 






jreal jwork j 

(type jarea ja (work area) 

j | (internal statement 
end mark j j j number 

X X X 

1 byte 1 byte 2 bytes 



The arithmetic expression is cal- 
culated first: the result is then 
stored in a work area. 



There are three arguments. 



These three words refer to B (I) . A 
general register is assigned as a 
work register.. 



The expression was calculated above 
and placed in a work area. 



Exit: The FOSCAN routine passes control to 
various routines associated with certain 
operators encountered by Phase 15. These 
routines are: ADD, MULT, EXPON, UMINUS r 
UPLUS, RTPRN, LFTPRN, CALL r FUNC, EQUALS, 
INVOP, COMMA, and END. 



DO Routine and Subroutine DVARCK: Chart FC 



OPERATION: The referenced statement number 
and the DO variable are entered into the DO 
table. The statement number is checked to 
ensure that it is defined. If not, an 
error condition is noted. Subroutine 
DVARCK is called to check that this DO 
statement does not redefine an existing DO 
variable, or to check for a level of 
nesting greater than 25. If either condi- 
tion occurs, an error is noted and control 
is passed to the MSGNEM/MSGMEM/MSG routine 
to eliminate the following text words of 
the statement. 



DO Routine 



The DO routine examines the DO statement 
for a statement number that defines the 
last statement of the DO loop, for a DO 
variable not multi-defined, and for a DO 
loop nested to a depth no greater than 25. 



ENTRANCE : The DO routine receives control 
from the PRESCN routine when a DO or 
implied DO adjective code is detected or to 
complete processing of a computed GO TO. 



If no error exists, subroutine PINOUT is 
used to place the input word onto the 
output data set. This portion of the 
processing is also used by the COMP GO TO 
and BEGIO routines. 



EXIT: The DO routine passes control to the 
MSGNEM/MSGMEM/MSG routine when an end mark 



is detected. 



SUBROUTINE CALLED: During execution the DO 
routine calls subroutines LAB and PINOUT. 
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Subroutine DVARCK 



Subroutine DVARCK processes a DO or implied 
DO variable. 



ENTRANCE : 



Subroutine DVARCK is entered 



from the BEGIO and DO routines. 

OPERATION; Subroutine DVARCK checks for 
two possible errors. The first is a DO 
variable that has been defined as the DO 
variable for a DO loop within which this DO 
loop is defined, i.e., multi-definition. 
If this error is not present, the DO 
variable is entered into the DO or the 
IMPLIED DO table. If either table is full, 
a level of nesting greater than 25 is 
present and an error is indicated. 



ENTRANCE : The statement number referenced 
by the GO TO statement is checked using 
subroutine LAB to insure that it is 
defined. The current input word is then 
written onto the output data set. 

EXIT: The GO TO routine passes control to 
the MSGNEM/MSGMEM/MSG routine to put out 
the remainder of the statement, including 
the end mark. 



BEGIO Routine: Chart FE 



The BEGIO routine processes the 
input/output lists of READ and WRITE state- 
ments . 



EXIT: After execution subroutine DVARCK 
returns control to the subroutine which 
called it. If any errors are detected, 
control passes to the MSGNEM/MSGMEM/MSG 
routine. 

SUBROUTINE CALLED: Subroutine DVARCK calls 
the ERROR subroutine if any errors are 
detected . 



ENTRANCE : The BEGIO routine is entered 
from the PRESCN routine when a BEGIO adjec- 
tive code is detected. 

OPERATION: When the statement is checked 
and an implied DO is found, the DO variable 
is processed by subroutine DVARCK. As each 
word of the statement is checked, it is put 
onto the output data set by subroutine 
PINOUT. 



COMP GO TO, GO TO Routines: Chart FD 



EXIT: When the end mark is detected, 
control is passed to the MSGNEM/MSGMEM/MSG 
routine. 



COMP GO TO Routine 



SUBROUTINES 



CALLED: 



The BEGIO routine 



calls subroutines DVARCK and PINOUT. 



The COMP GO TO routine checks each 
statement number used in the computed GO 

TO. 

ENTRANCE : The COMP GO TO routine is 
entered from the PRESCN routine when a 
computed GO TO is detected. 

OPERATION: The COMP GO TO routine essen- 
tially examines the pointer field of a text 
word in a computed GO TO statement. When a 
statement number reference is encountered, 
subroutine LAB determines if that number is 
defined. Each text word that is processed 
by the COMP GO TO routine is put into the 
output data set by subroutine PINOUT. 

EXIT: The COMP GO TO routine passes con- 
trol to the DO routine. 



ERWNEM, SKIP, MSGNEM/MSGMEM/MSG, INVOP 
Routines: Chart FF 



These routines control the processing of 
miscellaneous text words in Phase 15. 



ERWNEM Routine 



The ERWNEM routine processes three 
adjective codes encountered in the PRESCN 
routine. 

ENTRANCE: The ERWNEM routine is entered 
from the PRESCN routine when an end mark, 
ERROR, or WARNING adjective code is recog- 
nized in the PRESCN routine. 



GO TO Routine 



The GO TO routine checks the statement 
number referenced by the GO TO statement. 



OPERATION: Subroutine PINOUT is referenced 
to put the word containing the end mark, 
WARNING, or ERROR adjective code into the 
output buffer. Subroutine PINOUT also 
updates both the input and output pointers. 
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EXIT; The ERWNEM routine returns control 
to the PRESCN routine, 

SUBROUTI NES CALLED ; During execution, the 
ERWNEM routine calls subroutine PINOUT. 



SKIP Routine 



If a statement represented the end of 
one or several DO loops, ENDDO text words 
are generated for each loop. Any error or 
warning messages generated for this state- 
ment by Phase 15 are now written onto the 
output data set using the ISN found in the 
address pointer field of the text word 
whose adjective code is an end mark. The 
word containing the ISN can now be elimi- 
nated by updating the input buffer pointer. 



The SKIP routine begins the processing 
of the Return and Continue statements. 

ENTRANCE ; The SKIP routine is entered from 
the PRESCN routine when a RETURN or CONTIN- 
UE adjective code is detected. 



EXIT: 



The MSGMEM/MSGNEM/MSG routine 



returns control to the PRESCN routine. 

SUBROUTINES CALLED; The MSGNEM/MSGMEM/MSG 
routine calls subroutines ININ and INOUT. 



OPERATION: 



Subroutine PINOUT is referenced INVOP Routine 



to put one word onto the output buffer, and 
to update both the unput and output poin- 
ters. 

EXIT: The SKIP routine passes control to 
the MSGNEM/MSGMEM/MSG routine to complete 
the processing of the statement. 

SUBROUTINE CALLED: During execution the 
SKIP routine calls subroutine PINOUT. 



MSGNEM/MSGMEM/MSG Routine 



The MSGNEM/MSGMEM/MSG routine processes 
the remaining text words of a statement, 
and puts any ERROR and WARNING messages 
and/or any necessary ENDDO text onto the 
output data set. 



The INVOP routine processes invalid 
adjective codes detected by the PRESCN 
routine. 

ENTRANCE: The INVOP routine is entered 
from the PRESCN routine when an invalid 
adjective code is detected. 

OPERATION: The INVOP routine calls subrou- 
tine ERROR to process an invalid adjective 
code message. 

EXIT: The INVOP routine passes control to 
the MSGNEM/MSGMEM/MSG routine. 



SUBROUTINES 



CALLED: 



The INVOP routine 



calls subroutine ERROR. 



ENTRANCE : The MSGNEM/MSGMEM/MSG routine is MOPUP Routine: Chart FG 
entered from all statement processing rou- 
tines except the ERWNEM and LABEL DEF 
Routines . 



OPERATION: The MSGNEM/MSGMEM/MSG routine 
has three entry points for the current word 
of the statement text. It is entered at 
MSGNEM if the current word does not have an 
end mark adjective code, MSGMEM if there 
may be an end mark adjective code, and MSG 
if there is an end mark adjective code. 

At MSGNEM, the current input word is 
eliminated by updating the input buffer 
pointer without moving the current word to 
the output buffer area. Control is then 
passed to entry point MSGMEM to check the 
adjective code. If it is not an end mark, 
the text word is eliminated using MSGNEM 
and the next word is processed by MSGMEM. 
When an end mark indicator is found, con- 
trol passes to entry point MSG to move the 
input word to the output data set. The 
output buffer pointer is updated; the input 
buffer pointer is not updated. 



The MOPUP routine performs the final 
processing for the phase. 

ENTRANCE: The MOPUP routine is entered 
when the END statement is detected by the 
PRESCAN routine. 

CONSIDERATION: The END statement may be 
followed on the input data set by error or 
warning message text words. The final text 
word contains all zeros. These text words, 
followed by an end of data set, are written 
on the output work tape. 

During the phase, whenever it is neces- 
sary to utilize a register that is not 
available, an instruction is generated to 
load the contents of the register into a 
work area. A count is kept of the maximum 
size of the work area required at object 
time. This count is used to update the 
location counter in the FORTRAN communi- 
cations area. 
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If the output does not exceed one output 
buffer, it is not written onto the tape but 
remains within main storage, A bit is set 
in the communications area to indicate the 
location of the Phase 15 output data set to 
Phase 20. 

OPERATION; The final text words are writ- 
ten onto the output data set. An addition- 
al error message is written onto the output 
data set if a FUNCTION subprogram is being 
compiled, but the function name has not 
been defined. 



entered for an RX instruction, assumes that 
the left operand is a register and the 
right operand is not. The text word is 
modified to meet this condition.) 

If the right operand is in a register 
and the left operand is not, the RX condi- 
tion could be met by interchanging the 
operands. This interchange is made for the 
operands of ADD and MULTIPLY operators 
because their order of operands is imma- 
terial. Interchanging cannot be made for 
the SUBTRACT and DIVIDE operators. 



The location counter is updated by the 
maximum size of the work area, and the work 
tapes are rewound. 

EXIT: The MOPUP routine passes control to 
the FORTRAN System Director which passes 
control to Phase 20. 



If neither operand is in a register, or 
the right operand alone is in a register 
but is not the operand of an ADD or 
MULTIPLY operator, a register is assigned 
to the left operand. Prior to this assign- 
ment, the left operand is checked for a 
subscripted variable. If one is present, 
subroutine MVSBXX is called to process the 
subscripted variable. 



ADD Routine: Chart FH 



The ADD routine prepares text referring 
to the ADD, SUBTRACT, MULTIPLY, and DIVIDE 
operators for the COMPILE routine. It 
determines which operands are registers and 
then, if necessary, interchanges the oper- 
ands or assigns a register to the left 
operand. 



Next, subroutine FINDR is referenced to 
assign a register to the left operand. All 
other subscript occurrences within operands 
are processed by Phase 15 in the COMPILE 
routine. After a register is assigned to 
the left operand, subroutine L0ADR1 is 
called to generate an instruction to load 
the left operand into a register at object 
time. Now, the left operand can be 
referred to as a register. 



CONSIDERATION: The word in the operations 
table which was forced by the FOSCAN rou- 
tine is considered the current text word. 
Its address pointer field references the 
right operand. The pointer field of the 
preceding word references the left operand. 
The operator for both operands is in the 
adjective code field of the current word in 
the operations table. 



EXIT: The ADD routine passes control to 
the COMPILE routine either to process an RR 
or an RX instruction. 

SUBROUTINES CALLED: The ADD routine calls 
subroutines SYMBOL, MODE, MVSBXX, FINDR, 
and L0ADR1. 



ENTRANCE : The ADD routine is entered from 
the forcing scan of the FOSCAN routine when 
a text word, whose adjective code refers to 
an ADD or SUBTRACT operator is forced. The 
ADD routine is also entered from the MULT 
routine. 

OPERATION: The ADD or SUBTRACT operands 
are checked for mixed-mode and legality of 
the symbol using subroutines MODE and SYM- 
BOL, respect i vely . 

The operands for ADD, SUBTRACT, MULTI- 
PLY, and DIVIDE operators are processed 
together. If both the left and right 
operands are in registers, control is 
passed to the COMPILE routine to process an 
RR instruction. 



MULT Routine: Chart FI 



The MULT routine aids in the processing 
of the operands of the multiply and divide 
instructions . 

ENTRANCE: The MULT routine is entered from 
the FOSCAN routine when the forcing scan 
forces a word out of the operations table 
whose adjective code indicates a multiply 
or divide instruction. 



CONSIDERATION: 



The left and right operands 
multiply instruction are the multi- 



of a 

plicand and the multiplier, respectively 



If the right operand is not in a reg- 
ister but the left operand is, control is 
passed to the COMPILE routine to process an 
RX instruction. (The COMPILE routine, when 



In multiplication, it is possible to 
interchange the multiplier and the multi- 
plicand without changing the value of the 
product. 
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The multiply instruction for integer 
quantities requires that the multiplicand 
be in an odd register. The even register 
which precedes the multiplicand (the odd 
register) must be made available unless it 
contains the multiplier. Both even and odd 
registers are required for the multi- 
plication procedure. 

The multiply instruction for real quan- 
tities requires that at least the multi- 
plicand (the left operand) be in a reg- 
ister. 



OPERATION: 



The 



operands of a multiply or 
divide operation are checked for symbol 
validity by subroutine SYMBOL. Subroutine 
MODE assures that the modes agree. If the 
operands are real, control is passed to the 
ADD routine to place the left operand in a 
register. 

For integer quantities which are oper- 
ands of a divide operation, control is 
passed to the DIV routine. The MOLT rou- 
tine completes the processing for integer 
quantities which are the operands of a 
multiply instruction. If both operands are 
in registers, they are manipulated so that 
the left operand is in an odd register. 
Control is then passed to the COMPILE 
routine to process an RR instruction. 

If neither operand is in a register, the 
left operand is placed into an odd register 
and the even register preceding the odd 
register is made available. Control is 
then passed to the COMPILE routine to 
process an RX instruction. 

If either operand is in a register, the 
operands are switched and processed so that 
the left operand is in an odd register. 
Control is then passed to the COMPILE 
routine to process an RX instruction. 

During the processing, the various reg- 
isters are checked for availability by 
subroutine CHCKGR. If a register is 
required, but is not currently available, 
its contents are placed into a work area by 
subroutine CHCKGR. 

EXIT; Control is passed to the ADD routine 
for real operands. Control is passed to 



the DIV routine for integer operands 
divide operator. 



of 



For integer operands of a multiply oper- 
ator, control is passed to the COMPILE 
routine. If both fixed point operands of a 
multiply instruction are in a register at 
the completion of the MULT routine, control 
is passed to the COMPILE routine to process 
an RR instruction. If only the left inte- 
ger operand of a multiply instruction is in 
a register at the completion of the MULT 



routine, control is' passed to the COMPILE 
routine to process an RX instruction. 



SUBROUTINES CALLED; The MULT routine calls 
subroutines MVSBXX, INOUT, FREER, CHCKGR, 



MODE, SYMBOL, and L0ADR1. 



DIV Routine: Chart FJ 



The DIV routine processes integer oper- 
ands of a divide operation. 



ENTRANCE: The DIV routine is entered from 
the MULT routine. 

CONSIDERATION: For integer division, the 
dividend must be in an even-odd register 
pair. The dividend of a divide operation 
is represented by the left operand; the 
divisor, by the right operand. 

OPERATION: If the dividend is already in a 
register, the appropriate even or odd reg- 
ister is made available. 

If the dividend is not in a register, 
the operands are processed for the presence 
of subscript expressions. Subroutine 
MVSBRX processes the left operand, while 
subroutine MVSBXX processes the left and/or 
right operands. The dividend (left 
operand) is then placed into an even-odd 
register pair. 

EXIT: The DIV routine passes control to 
the COMPILE routine at one of three points 
depending upon whether the right operand is 
a register, is subscripted, or is neither 
subscripted nor a register. 

SUBROUTINES CALLED: The DIV routine calls 



subroutines 
and L0ADR1. 



CHCKGR, FREER, MVSBXX, MVSBRX, 



EXPON Routine: Chart FK 



The EXPON routine processes the text 
word whose adjective code indicates 
exponent i at ion . 



ENTRANCE: 



The EXPON 



routine 

from the FOSCAN routine when a 



is entered 
word con- 
taining an exponentiation adjective code is 
forced out of the operation table by the 
forcing scan. 

CONSIDERATION: The phrase A**B appears in 
the text input to Phase 15 as: 
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(adjective jreal j 

j code j variable j a (A) 

I I real | 

j** | variable |a(B) 

l x x 



I 



1 byte 



1 byte 



2 bytes 



The second word is forced out by the 
forcing scan. The adjective code for this 
word (**) indicates exponentiation. 



OPERATION: 



TJhe base and exponent are 

checked for validity using subroutines SYM- 
BOL and CKARG, respectively. If the base 
is an integer number while the exponent is 
a real number, subroutine MODE converts the 
base to a real number. 

Exponentiation requires library subrou- 
tines; therefore, specific registers are 
required. (This is identical to the proc- 
essing done in the COMMA routine for an 
external subprogram reference.) 

The mode of the base and the exponent 
determine the library subprogram to be 
called. An internal code to indicate the 
subprogram name is entered in the pointer 
field of the text word with an exponentia- 
tion ad j ecti ve code . 

The argument count in the FORTRAN com- 
munications area is incremented by 2 since 
exponentiation requires exactly two argu- 
ments. The argument list, consisting of 
the base and exponent, is written out. 

If the exponentiation appears within an 
ASF definition the contents of register 14 
(the linkage register) and register 9 (the 
ASF argument register) are saved. The 
instructions to restore registers 9 and 14 
are generated on return from any function 
call. 

EXIT: The EXPON routine passes control to 
the FOSCAN routine. 

SUBROUTINES CALLED: The EXPON routine 
calls subroutines SYMBOL, MODE, and CKARG. 



when a text 
refers to a ^ 
the operations table. 



word whose adjective code 
unary minus is forced out of 



I OPERATION: The operand of the unary minus 
is checked for validity by subroutine TYPE. 
If the operand is not a register, subrou- 
tine MVSBRX is called to check for and 
process a subscript expression in the oper- 
and. The operand is then loaded into a 
register. 



When the operand is in a register, an 
instruction is generated to complement the 
register and complete processing the unary 
minus . 

EXIT: The UMINUS routine passes control to 
the FOSCAN routine. 

SUBROUTINES CALLED : The UMINUS routine 
calls subroutine TYPE, INOUT, FINDR, and 
L0ADR1. 



UPLUS Routine 



The UPLUS routine deletes the unary plus 
adjective code word. 

ENTRANCE: This routine is entered from the 
forcing scan of the FOSCAN routine when a 
unary plus adjective code is forced. 

CONSIDERATION: The unary plus serves no 
logical function; however, it is not con- 
sidered an error. 

A unary plus only occurs in the text 
following a word whose adjective code rep- 
resents an equal sign or a left parenthe- 
sis. 

OPERATION: The word containing a unary 
plus is deleted from the input text. The 
information in the address pointer and 
mode/ type fields is moved into those fields 
in the preceding word of the operation 
table. 



UMINUS, UPLUS, RTPRN Routines: Chart FL 



The text 
table as: 



would appear in the operation 



UMINUS Routine 



The UMINUS routine processes the operand 
of a unary minus and generates an instruc- 
tion to reverse the sign of the operand. 



ENTRANCE: 



The UMINUS routine is entered 



from the forcing scan of the FOSCAN routine 



or 



I ( 
h 



j unary 
l + 



1 byte 



T T I 

joo | 0000 j 

i I I 

.+_„- 1 _ 1 

I mode/type | a (operand) | 

I I I 

.x x . -jJ : 

1 byte 2 bytes 
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The text would be revised in the operation 
table to: 






| or 
I ( 



mode/type j a (operand) 
2 bytes 



1 byte 1 byte 






EXIT; The UPLUS routine passes control to 
the FOSCAN routine. 



RTPRN Routine 



The RTPRN routine is only entered for an 
error condition and checks for a further 
error . 

ENTRANCE : The RTPRN routine is entered 
from the forcing scan of the FOSCAN routine 
when a text word with a right parenthesis 
adjective code is forced out of the opera- 
tions table. 

CONSIDERATION; A right parenthesis forced 
out of the operations table by the forcing 
scan is an error. If the right parenthesis 
is followed by an operator. Phase 10 has 
generated a warning message. 

OPERATION: If the right parenthesis is not 
followed by an operator. Phase 15 gives an 
illegal delimiter or symbol missing error 
message. 

EXIT: The RTPRN routine returns control to 
the FOSCAN routine. 



The RTPRN routine 



SUBROUTINES CALLED: 
calls subroutine ERROR. 



LFTPRN Routine: Chart FM 



The LFTPRN routine processes a left 
parenthesis. 

ENTRANCE : The LFTPRN routine is entered 
from the FOSCAN routine when a text word 
with a left parenthesis adjective code is 
forced out of the operations table by the 
forcing scan. 

CONSIDERATION: The three uses of a left 
parenthesis considered by the LFTPRN rou- 
tine are: in a CALL statement, an arithmet- 
ic IF statement, or as a regular left 
parenthesis (i.e., when used to change the 
hierarchy of operations) . 



OPERATION: If a left parenthesis is part 
of a CALL statement, the argument is 
checked for validity and the argument count 
is set to 1 . Control is passed to the 
COMMA routine to continue processing. 



If a left parenthesis is part of an 
arithmetic IF statement, the parenthesized 
expression is checked to determine the 
following: 



1 . The symbol used in the arithmetic 
expression is valid. 

2. The expression result is in a reg- 
ister. 

3. The operation that placed the resul- 
tant value of the arithmetic expres- 
sion in a register sets the condition 
code so the proper branch can be taken 
as a result of that value. 



An IF forcing text word is entered into the 
output, it has the following format: 



IF forcingl | | 

ad j ective j mode | indi cator j register 

code j | | number 

JL JL JL .- 



1 byte 



1 byte 



2 bytes 



Register number indicates the register that 
contains the value of the arithmetic 
expression; indicator denotes whether the 
condition code is set or not. 

If this is a regular left parenthesis 
used to change hierarchy, it is deleted, 
from the operations table. 



EXIT: There are three normal exits for the 
LFTPRN routine, depending upon the use of 
the left parenthesis. Within the CALL 
statement, control passes to the COMMA 
routine; within the arithmetic IF state- 
ment, control passes to the ARTHIF routine; 
for a regular left parenthesis, control is 
returned to the FOSCAN routine. 

An error condition exists and control 
passes to the MSGNEM/MSGMEM/MSG routine if 
the left parenthesis is not one of the 
three normal occurrences, if there is an 
invalid symbol in an arithmetic IF, or if 
the left parenthesis is not forced by a 
right parenthesis indicating an invalid 
statement . 



SUBROUTINES CALLED : 



The LFTPRN routine 



calls subroutines CKARG and ERROR. 
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FUNC, CALL, and END Routines: Chart FN 



If the CALL 
appears as: 



has 



arguments. 



the word 



FUNC Routine 



The FUNC routine processes 
functions. 



one- argument 



JCALL j 

(forcing j 

j ad j ective j mode 

| code | 

L X 



ENTRANCE : The FUNC routine is entered from 
the FOSCAN routine when the forcing scan 
forces a text word with a FUNC adjective 
code out of the operations table. 



1 byte 



1 byte 



j address of CALL j 
j subroutine j 

-X J 

2 bytes 



CONSIDERATION: 



OPERATION: The address pointer field is 
examined to determine if the CALL has been 
processed. If the CALL has arguments, it 
In-line, external, and ASF has been processed and an exit is taken. 



functions may have one argument. 



OPERATION: The in-line functions are proc- 
essed separately by the INLIN1 routine. An 
argument for ASF and external functions is 
processed by checking the validity of the 
argument using subroutine CKARG and setting 
up an argument count of 1 . 

EXIT: Control is passed to the COMMA 
routine to complete the processing of a 
one-argument function. 

SUBROUTINES CALLED: The FUNC routine calls 
subroutine CKARG. 



CALL Routine 



If the CALL has not been processed, it 
is a CALL with no arguments. There are two 
words written onto the output buffer, the 
first indicates a CALL and the subroutine 
to which the CALL is made; the second 
indicates no arguments. These two words 
appear as follows: 



The CALL routine processes the CALL 
statement. 

ENTRANCE : The CALL routine is entered from 
the FOSCAN routine when a text word whose 
adjective code is a CALL forcing adjective 
code is forced out of the operations table. END Routine 



| CALL | | 

(adjective j mode/type j a (CALL subroutine) 

j code j j 

j. x T x 

| argument III 

| count |0 |0 j 00 00 

(adjective | j | 

| code | | | 

L X J X . J 

1 byte 1 byte 2 bytes 

EXIT: The CALL routine passes control to 
the MSGNEM/MSGMEM/MSG routine to move the 
end mark to the output buffer. 



CONSIDERATION: If a CALL statement has no 
arguments, the CALL forcing adjective code 
word indicates that a CALL is to be proc- 
essed. If a CALL statement has arguments, 
either the LFTPRN, FUNC, or COMMA routine 
has determined that a CALL is to be proc- 
essed and has processed it. 

The CALL forcing adjective code word may 
take one of two forms. If the CALL has 
arguments, the word appears as: 



| CALL | | 

| forcing j | 

{adjective jmode | 0000 

j code | | 

L X . X 



1 byte 



1 byte 



2 bytes 



The END routine determines if the arith- 
metic IF, arithmetic, and ASF statements 
were processed. 

ENTRANCE: The END routine is entered from 
the FOSCAN routine when a text word within 
Arith, Arith IF, or ASF adjective code is 
forced out of the operations table. 

OPERATION: The END routine examines the 
address pointer field. If it is 0, the 
statement has been processed and the exit 
is taken. If it is not 0, the statement 
has not been processed, and an illegal 
statement error message is given. The exit 
is then taken. 

EXIT: The END routine passes control to 
the MSGNEM/MSGMEM/MSG routine. 
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SUBROUTINE CALLED: 
subroutine ERROR. 



The END routine calls 



EQUALS Routine: Chart FO 

The EQUALS routine processes a text word 
containing an equal adjective code. 

ENTRANCE : The EQUALS routine is entered 
from the FOSCAN routine when the forcing 
scan forces a word with an equal adjective 
code out of the operations table. 

CONSIDERATION: The arithmetic and ASF 
definition statements contain an equal 
adjective code. The result of an ASF 
definition must be in register (general or 
floating-point) , while the result of an 
arithmetic statement is in the field which 
represents the symbol to the left of the 
equal sign in an arithmetic statement (the 
resultant field) . 



The result of the ASF must be in general 
register if the ASF is an integer func- 
tion and in floating point register if it 
is a real function. If the result is not 
in the correct register , a load instruction 
is generated to put the result into the 
correct register. 

The final processing for an equal adjec- 
tive code word in an ASF definition is the 
generation of the return instruction. This 
allows the ASF coding to return to that 
portion of coding which referenced the ASF 
during the object program execution. 

EXIT: At the completion of the EQUALS 
routine, control is returned to the FOSCAN 
routine. If errors were detected during 
the processing, control passes to the 
MSGNEM/MSGMEM/MSG routine. 

SUBROUTI NES CALLED : The EQUALS routine 
calls subroutines ERROR, TYPE, and MODE. 



OPERATION: If the text word containing the 
equal adjective code is part of an arith- 
metic statement, the first part of the 
processing checks the resultant field. If 
an invalid symbol is represented in the 
resultant field, an error message is given, 
and control is passed to the 
MSGNEM/MSGMEM/MSG routine to eliminate the 
remainder of the statement. 

If the resultant field is valid, subrou- 
tine TYPE is referenced to check the right 
operand which represents the result of the 
computations on the right side of the equal 
sign. If the right operand is invalid, an 
error message is given and control is 
passed to the MSGNEM/MSGMEM/MSG routine to 
eliminate the remainder of the statement. 
If the right operand is valid, the MODE 
routine is called to insure that the right 
operand and the resultant field modes are 
the same. 

Because the mode of the resultant field 
determines the mode of the value resulting 
from the arithmetic operation, the mode of 
the right operand, if different, is con- 
verted to the resultant field mode. An 
instruction to store the right operand in 
the resultant field is then generated. 

If the ASF switch, which is set on at 
the beginning of ASF definition statement 
processing in subroutine FOSCAN, indicates 
an ASF definition, different processing is 
followed. The type of the right operand is 
checked for an error by subroutine TYPE. 
If an error is found, an error message is 
given and the rest of the statement is 
eliminated using the MSGNEM/MSGMEM/MSG rou- 
tine. Subroutine MODE compares the modes 
of the ASF and the right operand if the 
right operand is valid. 



COMMA Routine: Chart FP 



The COMMA routine processes an argument 
list. 

ENTRANCE: The COMMA routine is entered 
from the FOSCAN routine when the forcing 
scan forces a word whose adjective code 
refers to a comma out of the operations 



table. 



CONSIDERATION 



A comma occurs in the input 
when an argument list is to be 
This argument list may be part 



text only 
processed. 

of an in-line function, external function, 
or ASF call. An argument list is set off 
in the original FORTRAN statement by a left 
parenthesis preceding the list and a fol- 
lowing right parenthesis. 

The processing for an ASF definition and 
call is basically the same as the external 
function call. The processing for an in- 
line function differs and is in the INLIN2 
routine. 

For a function call, general registers 
and 1 and all floating-point registers in 
use are saved. 

If an ASF definition is being processed, 
register 14 is saved before and restored 
after the function call. Register 14 is 
the linkage register for an ASF. 

OPERATION: Each argument represented is 
checked by subroutine CKARG for validity. 
A count is kept of the number of arguments 
used in the argument list. This count is 
added to the count of arguments in a 
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counter within the FORTRAN communications EXIT; The LABEL DEF routine returns con- 
area, trol to the PRESCN routine. 



The required registers are examined for 
availability. If they are not available, 
subroutine SAVER is referenced to store the 
contents of the registers in a work area. 



SUBROUTINES CALLED : The LABEL DEF routine 
calls subroutines PINOUT and ERROR. 



Certain error checks are made. If the 
function name is invalid, an error message 
is given. If an argument is followed by an 
end mark, a warning message is given to 
indicate a missing right parenthesis. If 
neither a right parenthesis nor an end mark 
follows the argument, an error message 
indicating an illegal delimiter is given. 

EXIT; The COMMA routine passes control to 
the forcing scan in the FOSCAN routine. 

SUBROUTINE CALLED; The COMMA routine calls 
subroutines CKARG, ERROR, and WARN. 



Subroutine LAB 



Subroutine LAB checks for 
ment number references. 



legal state- 



ENTRANCE; 
the GOTO, 
routines . 



Subroutine 
COMP GOTO, 



LAB is entered from 
ARITH IF, and DO 



referenced statement number 
insure that the statement 



OPERATION; 
is checked to 
number has been defined and is not that of 
a FORMAT statement. Because a branch can- 
not be made to either an undefined state- 
ment number or a FORMAT statement, an error 
message is printed for each such reference. 



LABEL DEF Routine, Subroutine LAB; Chart FQ EXIT; Subroutine LAB returns control to 

the subroutine which called it. 



LABEL DEF Routine 



The LABEL DEF routine checks the 
occurrence of statement numbers used to 
indicate the end of a DO loop. 

ENTRANCE ; The LABEL DEF routine is entered 
from the PRESCN routine when a statement 
number definition adjective code is encoun- 
tered. 

CONSIDERATION; As each DO definition is 
encountered, the ending DO loop statement 
number (the ENDDO) is entered into the DO 
table along with the DO variable. By 
checking the current statement number 
against the latest statement number in the 
DO table, it can be determined if this 
ENDDO is properly nested with respect to 
the other DO loops. 

OPERATION; If the statement number defini- 
tion is not referenced as an ENDDO, the 
text word is put onto the output data set 
using subroutine PINOUT. A statement num- 
ber referenced as an ENDDO is checked 
against the entries in the DO table. If a 
DO nesting error is detected, an error 
message is given and the text word is put 
onto the output data set using subroutine 
PINOUT. 

If the statement number is a legal 
ENDDO, an indicator is set for the 
MSGNEM/MSGMEM/MSG routine to generate the 
ENDDO word of text. The input word is then 
put onto the output data set using subrou- 
tine PINOUT. 



SUBROUTINE CALLED : 



Subroutine LAB calls 

subroutine ERROR if either error condition 
is found. 



ARITH IF Routine; Chart FR 



The ARITH IF routine processes the 
statement number portion of an arithmetic 
IF for two errors; undefined statement 
numbers and an incorrect number of state- 
ment numbers specified. 

ENTRANCE; The ARITH IF routine is entered 
from the LFTPRN routine. 

CONSIDERATION ; Phase 10 may have truncated 
the text of an arithmetic IF due to various 
error conditions encountered (i.e., invalid 
delimiters or statement numbers) . If less 
than three statement numbers are specified 
by the user, the input text appears as if 
truncated due to error conditions. 

OPERATION; Each statement number is exam- 
ined by subroutine LAB. If the statement 
number has been defined, it is put into the 
output text of Phase 15 and the next input 
text word is accessed using subroutine 
PINOUT. If the number was not defined, 
subroutine LAB does not return to the ARITH 
IF routine. 

As each statement number is being proc- 
essed, a count is kept. If it is other 
than three, an error message is entered for 
the statement. If the statement was trun- 
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cated by Phase 10, an error message is not 
given for the error condition represented 
by less than three statement numbers. 

EXIT: The ARITH IF routine takes one of 
three exits: when an end of statement 
indicator is known to be r may be, or is not 
present. 

SUBROUTINES CALLED: The ARITH IF routine 
calls subroutines LAB, PINOUT, and ERROR. 



COMPILE Routine: Chart FS 



The COMPILE routine creates text in the 
form of RR and RX instructions, moves 
subscript text from the subscript table to 
the output data set, increments the output 
buffer pointer, and decrements the pointer 
to the operations table. 

ENTRANCE : The COMPILE routine is entered 
from the ADD, MULT, DIV, EXPON, UMINUS, 
UPLUS, and SYMBOL routines. 

OPERATION: When text is to be created in 
the form of an RR instruction, the left 
operand becomes the resultant register. 
The FREER routine is then called to free 
the right operand register, and processing 
continues as for an RX instruction. 



ENTRANCE: 



Subroutine SYMBOL is entered 



from the ADD, MULT, and EXPON routines. 



OPERATIONS: Subroutine SYMBOL calls sub- 
routine TYPE to check for errors in the 
left and right operands. 

If an error is discovered in the right 
operand, control is passed to the COMPILE 
routine to decrement the pointer to the 
operations table. Subroutine TYPE gives an 
error message for the specific error. By 
decrementing the pointer to the operations 
table, the word being processed is deleted. 
The COMPILE routine passes control to the 
forcing scan in the FOSCAN routine. 

If an error is detected in the left 
operand by subroutine TYPE, an error mes- 
sage is given. Subroutine SYMBOL elimi- 
nates the left operand from the operations 
table by overlaying it with the right 
operand. Control is then passed to the 
COMPILE routine. 



EXIT: If there is no error detected in the 
left or right operand, control is returned 
to the routine which called subroutine 
SYMBOL. If there is an error, control is 
passed to the COMPILE routine. 



The right operand is checked. If it is 
subscripted, it is entered into the output 
text. If not, that part of the processing 
is skipped. 

The operation code and the register 
number are entered into the current word of 
the operations table. The output buffer 
pointer is then incremented, and the poin- 
ter to the operations table is decremented. 



Subroutine TYPE 

Subroutine TYPE checks each symbol used 
as an operand for errors. 

ENTRANCE: Subroutine TYPE is entered from 
the UMINUS, EQUALS, and INLIN1 routines and 
subroutine SYMBOL. 



EXIT: The COMPILE routine passes control 
to the FOSCAN routine. 



SUBROUTINES CALLED: 



The COMPILE routine 



calls subroutines FREER and INOUT. 



CONSIDERATION: 
have a valid 
text word. 



A symbol, to be valid, must 
type code in the associated 



Subroutines SYMBOL and TYPE: Chart FT 



These subroutines process operands for 
symbol validity. 



OPERATION : The type code associated with 
the symbol is examined to determine if the 
symbol is invalid or if the symbol is 
multi-defined. If either condition exists, 
or if the symbol is missing, an error 
message is given. This error message indi- 
cates the specific error encountered. 



Subroutine SYMBOL 



This subroutine processes the left and 
right operands of an operator. 



EXIT: If no errors are discovered, subrou- 
tine TYPE returns control to the routine 
which called it. If an error is detected, 
control is passed to the error return 
specified by the routine which called sub- 
routine TYPE. 
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Subroutines FINDR, FREER, CHCKGR, SAVER , 
and L0ADR1: Chart FU 



byte which indicates register availability 
is set to available. 



These five subroutines perform the var- 
ious register manipulations necessary dur- 
ing the Phase 15 text processing. 

CONSIDERATION: There are eight registers 
(floating-point registers 0, 2, 4, and 6; 
general registers 0, 1, 2, and 3) available 
to Phase 15 for assignment as work reg- 
isters. A record of register availability 
is kept using a 1-byte indicator. Each of 
the eight bits of the 1-byte indicator 
represents a different register (see Figure 
46) . 



EXIT; Subroutine FREER returns control to 
the routine or subroutine which called it. 



Subroutine CHCKGR 



Subroutine CHCKGR accesses a specific 
general register. 

ENTRANCE: Subroutine CHCKGR is entered by 
the MULT, DIV, INLIN1, and INLIN2 routines 
and subroutine MODE. 



r t • 1 

| General | Floating-point | 

| Registers | Registers j 

I3I2T1I0I6I4I2I0I 

L J X X . X X X J J 

Figure 4 6. 1-Byte Indicator 



The register routines are utilized dur- 
ing the processing of the operands of 
arithmetic operators. They are also used 
to insure the availability of registers 
and 1 for external references. 



OPERATION: 
determine 
general register 



Subroutine CHCKGR is entered to 
the availability of a specific 



When that register is found to be avai- 
lable, it is marked occupied and the return 
is made to the calling routine. 

When that register is unavailable, con- 
trol is passed to subroutine SAVER to make 
a register available by storing the con- 
tents of the specified register in a work 
area. 

EXIT: Subroutine CHCKGR returns control to 
the routines which called it. 



Subroutine FINDR 



Subroutine FINDR finds a register and 
indicates that it is unavailable. 

ENTRANCE : The FINDR routine is called by 
the ADD routine and subroutine MODE. 



Subroutine SAVER 



Subroutine SAVER stores the contents of 
a specified register into the next availa- 
ble area of the work area. 



OPERATION: Subroutine FINDR accesses the 
first available general register for inte- 
ger quantities and the first available 
floating-point register for real quanti- 
ties. 



EXIT: 



Subroutine FINDR returns control to 



the routine which called it. 



Subroutine FREER 



Subroutine FREER indicates that a reg- 
ister is available. 

ENTRANCE : Subroutine FREER is entered from 
the COMPILE and INLIN2 routines and subrou- 
tines CKARG and MODE. 

OPERATION: When it is determined which 
register is to be freed, that bit in the 



CONSIDERATION: When a register is required 
and it is not available, the contents of 
the register is stored into a work area. 

ENTRANCE: Subroutine SAVER is entered from 
the COMPILE, COMMA, DIV, or FINDR routines. 

OPERATION: The latest entry in the opera- 
tion table is accessed. If it utilizes the 
register being treated, an instruction to 
store the contents of that register in the 
next available area of the work area is 
generated. This instruction word is moved 
to the output buffer. 

If this entry does not utilize the 
register in question, the next entry is 
accessed and examined. 

Note that if the register in question is 
used for a double- precis ion quantity, the 
work area is aligned on a double-word 
boundary. 
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EXIT: The SAVER subroutine returns control 
to the routines which called it. 

SUBROUTINES CALLED: Subroutine SAVER calls 
subroutine INOUT. 



Subroutine L0ADR1 



Subroutine L0ADR1 enters an operand into 
a specific register. 



ENTRANCE: 



Subroutine L0ADR1 is entered 



from the ADD, MULT, DIV, EQUAL, LFTPRN, and 
INLIN1 routines and subroutines MODE and 
INARG. 

OPERATION: Subroutine L0ADR1 generates the 
instruction to load the contents of the 
left operand, being processed in the rou- 
tine or subroutine which referenced subrou- 
tine L0ADR1, into a specific register. The 
instruction word is then placed into the 
output buffer. 

EXIT: Subroutine L0ADR1 returns control to 
the routine which called it. 



SUBROUTINES 



CALLED: 



Subroutine L0ADR1 



calls subroutine INOUT. 



Subroutine WARN/ERROR: Chart FV 



Subroutine WARN/ERROR is called when a 
warning or error condition is encountered 
during text processing. It generates the 
error or warning message text entry for the 
specific condition encountered. 



CONSIDERATION: 



There 

for a maximum of four 



is a reserved area 
error and warning 
messages for any given statement. The end 
of the area contains a message that indi- 
cates more than four error and/or warning 
messages. The area has the following form: 



internal sequence number is entered by the 
MSGNEM/MSGMEM/MSG routine after the word 
containing the end mark is processed. 

ENTRANCE: Subroutine WARN/ERROR has two 
entry points. It is entered from the COMMA 
routine and subroutine CKARG, TYPE, and 
INARG at entry point WARN and from the 
INVOP, EQUAL, ARITH IF, RTPRN, COMMA, 
LFTPRN, and LABEL DEF routines and subrou- 
tines TYPE, LAB, INARG, and CKARG at entry 
point ERROR. 

OPERATIONS: At entry point WARN, subrou- 
tine WARN/ERROR generates a warning message 
text word using the warning number passed 
to it by the calling routine. The warning 
message is then entered into the error and 
warning message area. If there are already 
four error and warning message text words, 
processing for this statement is terminat- 
ed. 

At entry point ERROR, subroutine 
WARN/ERROR computes the error number from 
the information passed by the calling rou- 
tine. The error message text word is then 
constructed and placed in the error and 
warning message area. If there are already 
four error and warning message text words, 
processing for this statement is terminat- 
ed. 

When a warning condition occurs, control 
is returned to the calling routine. When 
an error condition occurs within a state- 
ment, control is normally returned to the 
MSGNEM/MSGMEM/MSG routine to eliminate the 
rest of that statement. In some instances, 
the MSGNEM/MSGMEM/MSG routine does not 
receive control to process any remaining 
error or warning conditions for the state- 
ment. This decision is made prior to 
calling subroutine WARN/ERROR. 

EXIT: Subroutine WARN/ERROR returns con- 
trol to the calling routine. If there are 
more than four error and warning messages 
detected in Phase 15, control is passed to 
the MSGNEM/MSGMEM/MSG routine. 



reserved area for message 1 

reserved area for message 2 

^ 



reserved area for message 3 
,. H 

reserved area for message 4 

"too many messages" message text entry 



Subroutines PINOUT, ININ, INOUT: Chart FW 



These three subroutines alone or in 
combination perform the input/output opera- 
tions for Phase 15. 



Subroutine PINOUT 



Subroutine WARN/ERROR does not place the 
internal sequence number in the error and 
warning message text word save area. The 



Subroutine PINOUT performs both input 
and output functions. 
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ENTRANCE : Subroutine PINOUT is entered 
from any Phase 15 routine whenever the 
current input word is to be put out. 



OPERATION: Subroutine PINOUT moves the 
current input word to the output buffer. 
Subroutines ININ and INOUT are then called 
to update the input and output pointers 



respectively . 



EXIT; Subroutine PINOUT returns control to 
the routine which called it. 



SUBROUTINES CALLED: Subroutine PINOUT 
calls subroutines ININ and INOUT. 



Subroutine ININ 



Subroutine ININ updates the input buffer 
pointer and refills a buffer if necessary. 



ENTRANCE : Subroutine ININ is called by 
subroutine PINOUT and the MSGNEM/MSGMEM/MSG 
routine. 



Subroutine MODE: Chart FX 



Subroutine MODE checks two operands and 
changes them, if necessary , so that both 
are the same mode. 

ENTRANCE: Subroutine MODE is entered from 
the ADD, EXPON, EQUAL, INLIN1, and MULT 
routines . 

CONSIDERATION : A hierarchy of modes exists 
(double- precis ion, real, and integer) with 
double-precision being the highest. 

OPERATION: Subroutine MODE determines if 
there is a difference in the modes of the 
two operands under consideration. If there 
is, an appropriate in-line call word is 
generated to change the operand whose mode 
is lower in the hierarchy of modes to the 
higher mode. 

There is one exception to the rule that 
the mode is changed according to the 
hierarchy of modes. This exception occurs 
when the operator is '='. In this case the 
right operand is adjusted to the left 
operand regardless of the hierarchy. 

When subroutine MODE is entered from 
INLIN1, only the appropriate function call 
is generated. 



CONSIDERATION: There are two buffers used 
for input. 



Subroutines MVSBXX and MVSBRX: Chart FY 



OPERATION: The input buffer pointer is 
updated. A check for the end of the buffer 
is then made. If the end of the buffer has 
been reached, the buffer is refilled and 
the other buffer is made current. 



Subroutine MVSBXX 



Subroutine MVSBXX processes a left oper- 
and subscripted variable when the right 
operand might also be a subscripted varia- 
ble. 



Subroutine INOUT 



Subroutine INOUT updates the output buf- 
fer pointer and empties a buffer if neces- 
sary. 

ENTRANCE : Subroutine INOUT is entered from 
subroutines PINOUT, MSGNEM/MSGMEM/MSG, and 
MVSBXX, and the DIV, MULT, UMINUS, and save 
register routines. 

CONSIDERATION: There are two output buf- 
fers. 

OPERATION: The output buffer is updated 
and the end of the buffer is checked. If 
it has been reached, the buffer is written 
out and the other buffer is made current. 

EXIT: Subroutine INOUT returns control to 
the subroutine or routine which called it. 



ENTRANCE: Subroutine MVSBXX is entered 
from the ADD, MULT, and DIV routines and 
subroutine MODE to process an existing left 
operand subscripted variable. 

CONSIDERATION: If the right operand is not 
a subscripted variable and the left operand 
is a subscripted variable, the left operand 
subscripted variable is the last entry in 
the subscript table. 



If the right and 
subscripted variables, 
subscripted variable 
the subscript table, 
subscripted variable 
entry. 



left operands are 
the right operand 

is the last entry in 
The left operand 

is the next to last 



OPERATION: If the left operand is not a 
subscripted variable, no processing need 
take place, and an immediate return is 
made. 
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If the left operand is a subscripted 
variable and the right operand is not, the 
left operand is moved to the output buffer 
using subroutine INOUT. The pointer to the 
last entry in the subscript table is updat- 
ed. 

If the left and right operands are 
subscripted variables , the left operand is 
moved to the output buffer. After the left 
operand subscripted variable is moved from 
the subscript table , the right operand 
subscripted variable is moved to the place 
in the table previously occupied by the 
left operand. This avoids blank areas in 
the subscript table which would cause 
errors. 

EXIT: Subroutine MVSBXX returns control to 
the routine which called it. 

SUBROUTINE CALLED; During execution sub- 
routine MVSBXX calls subroutine INOUT. 



Subroutine MVSBRX 



Subroutine MVSBRX is entered when only 
the left operand may be a subscripted 
variable. If the left operand is a sub- 
scripted variable, it is processed. 



OPERATION: 



Instructions 



ENTRANCE : 



Subroutine 



MVSBRX is entered 

from the EQUALS, UMINUS, and DIV routines 
and subroutine MODE. 



OPERATION: 



If the 



left operand is not a 

subscripted variable, no processing need 
occur and a return is made. 



are generated to 
form the functions for the SNGL and DBLE 
in-line functions. For the IFIX, FLOAT, 
DFLOAT, IABS, ABS, and DABS functions, an 
in-line function call word is generated. 
This word is in the following format: 



fin-line TIT ] 

(function |R2|R1|code number for the | 

| adjective j j | in-line function j 

L GOde i i A J 

1 byte 1 byte 2 bytes 



Depending upon the specific in-line 
function, up to three registers are made 
available by Phase 15. For ABS, IABS, and 
DABS only an argument register is required. 
This register is indicated in the R1 field, 
and the R2 field is zero. 

For IFIX, FLOAT, and DFLOAT in-line 
functions, three registers are required: an 
argument register, a result register, and a 
work register. The argument register is 
indicated in R1, the result register in R2. 
The work register is R1-1; it is freed by 
Phase 15. If the mode of the argument is 
incorrect, an error message is given. 

EXIT: The INLIN1 routine passes control to 
the COMMA routine. If there were errors in 
the argument, control is passed to the 
MSGNEM/MSGMEM/MSG routine. 

SUBROUTINES CALLED: During execution the 
INLIN1 routine calls subroutines ERROR, 
MODE, and INARG. 



If the left operand is a subscripted 
variable, it is moved to the output buffer 
using subroutine INOUT. 



Subroutine INLIN2: Chart GA 



EXIT: 



Subroutine MVSBRX returns control to 



the routine which called it. 



Subroutine INLIN2 processes an in-line 
function with two arguments. 



SUBROUTINE CALLED: Subroutine MVSBRX calls 
subroutine INOUT. 



ENTRANCE: Subroutine INLIN2 is entered 
from the COMMA routine. 



INLIN1 Routine: Chart FZ 



The INLIN1 routine processes the single 
argument in-line functions. 

ENTRANCE : The INLIN1 routine is entered 
from the FuNC routine. 

CONSIDERATION : There are eight single- 
argument in-line functions: IFIX, FLOAT, 
DFLOAT, SNGL, DBLE, ABS, IABS, and DABS. 



CONSIDERATION: In an in-line function with 
two arguments, the result of the function 
is in the register assigned to the first 
argument. Due to this fact, the register 
assigned to the second argument should be 
indicated as free. 

OPERATION: Both arguments are checked by 
subroutine INARG to determine if they are 
valid and in a register. Subroutine INARG 
will assign them to a register, if neces- 
sary. Then the register assigned to the 
second argument, R2, is indicated as free, 
because the R2 register is not used to 
contain the result. 
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An in-line function call word is 
ated. It has the following format: 



j in-line 
j function 
| adjective 
j code 

l 



I 



gener- EXIT; The CKARG routine returns control to 
the routine which called it. 

SUBROUTINES CALLED: Subroutine CKARG calls 
FINDR, L0ADR1, FREER , ERROR, 



| R2 | R 1 | code number for the 
j | | in-line function 
I I I 

-X X — X 



1 byte 



1 byte 2 bytes 



If the in-line function does not have a 
code of an in-line function with two argu- 
ments , or if the argument is not of the 
same mode as the function, an error message 
is given. 

EXIT: The INLIN2 routine normally passes 
control to the COMMA routine. If an error 
message is given an exception is made, and 
control is passed to the MSGMEM routine. 

SUBROUTINES CALLED: The INLIN2 routine 
calls subroutines ERROR, INARG, and FREER. 



Subroutine CKARG: Chart GB 



Subroutine CKARG checks the argument in 
an external call for validity. It also 
assures that the arguments have an assigned 
storage location. 

ENTRANCE ; Subroutine CKARG receives con- 
trol from the EXPON, LFTPRN, COMMA, and 
FUNC routines. 

CONSIDERATION : The calling sequence for an 
external call requires that each argument 
have an assigned main storage address. An 
argument has an assigned address if it is a 
constant, a variable (not an ASF dummy 
variable or a subscripted variable with 
variable subscripts) , or if it is in a work 
area. 

OPERATION; Entering subroutine CKARG an 
argument has no assigned address. The 
argument is assigned to a register, if not 
already in one, and the contents of the 
register are stored into a work area (i.e., 
assigning an address) . This procedure is 
also used to save the contents of a reg- 
ister when that register is to be used for 
another purpose. 

Subscripted variables, which are used as 
arguments, remain in the subscript form, 
but are not assigned a main storage 
address. 

If a symbol, which is not a valid 
argument, is used within an argument* list, 
an error or warning message is given, 
depending upon the severity. If an argu- 
ment is missing, an error message is given. 



subroutines : 
and WARNING. 



Subroutine INARG: Chart GC 



Subroutine INARG processes an in-line 
function argument. 

ENTRANCE; Subroutine INARG is entered from 
the INLIN1 and INLIN2 routines. 



CONSIDERATION: 



An in-line function call 



word has the following form: 



j in-line 
j function 
j adjective 
j code 

1 byte 



|R2|R1|code number for the 
in-line function 



I I l 

X X X 

1 byte 2 bytes 



j 



If there is only one argument, it 
appears in register R1. If there is a 
second argument, it appears in register R2. 
If there is no second argument, register R2 
is zero. 

Due to this form of the in-line function 
call text word, the arguments must be in a 
register. 

OPERATION : The argument is examined to 
determine if a register assignment is 
required. If so, a register is assigned. 

If the argument is a subscripted varia- 
ble or a dummy subscripted variable, the 
mode/type fields are modified to agree so 
that, during the remainder of Phase 15, 
they are indistinguishable. The subscript 
table is updated to access the next sub- 
script, which may be the next argument. 

If an argument is missing or if an 
invalid argument is used, an error message 
is given. If an array or a dummy array is 
used as an argument, a warning message is 
given. 

EXIT: Subroutine INARG returns control to 
the subroutine which called it. An excep- 
tion is made if an error message is given. 
In that case, control is returned to the 
MSGNEM/MSGMEM/MSG routine. 



SUBROUTINES CALLED: 



subroutines 
L0ADR1. 



ERROR, 



Subroutine INARG calls 
WARNING, FINDR, and 
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*****A3**** ****** 

* * 

* PERFORM * FROM FORTRAN 

* INITIAL PHASE * SYSTEM DIRECTOR 

* PROCESSING * AFTER PROCESSING 

* * PHASE 14 
***************** 



******B3********** 

* ACCESS * 

INPUT 

* STATEMENT * 

************* 



****C3**** ****** 

REORDER * 

OPERATIONS * 

WITHIN STATE- * 

MENT IF * 

NECESSARY * 

**************** 



*****D3********* 

* MODIFY TEXT 

* WORDS TO IN- 
*STRUCTION FOR- 

* MAT ASSIGNING 
*REGS IF NEEDED 
**************** 



*****E3********** 

* * 

* PROCESS ANY * 

* FUNCTION * 

* REFERENCES * 

* * 
***************** 



*****F3********** 

* * 

* INDICATE * 

* ANY ERRORS * 

* ENCOUNTERED * 

* * 
***************** 



*****G3********** 
ENTER STATEMENT 

* ON OUTPUT * 

DATA 

* SET * 



********** 



f** 



END 

OF 

TEXT 



***J3********** 

* 

PERFORM * 

FINAL * 

PROCESSING * 

* 

*************** 



****K3********* 
♦FORTRAN SYSTEM * 

* DIRECTOR TO * 

* LOAD PHASE 20 * 
*************** 



Chart 06. Phase 15 Overall Logic Diagram 



248 



***** 

*FA * 

* CI* 

* * 



START X 

*****C 1 ********** 



*INITIALIZATION * 



***************** 



PRESCAN X 

*****D1 ********** 

* GET * 

* STATEMENT * 
..X* IDENT WORD * 

* FROM INPUT * 

* FILE * 
. ***************** 



*FA * 
* Dl* 
***** 



* * 

* PICK UP * 

* ADJECTIVE * 

* CODE * 

* * 
***************** 



*****F 1 ********** 

* * 

* BRANCH * 

* ACCORDING TO *. 

* CODE * 

* * 
***************** 



********************************************************************* 

* STATEMENT * ROUTINE * ID * 
********************************************************************* 

.XCCNTINUE * SKIP * FFB4 * 

********************************************************************* 

* GO TO * GO TO * FDB4 * 
********************************************************************* 

* COMPUTED GO TC * COMP GO TO * FDB2 * 
********************************************************************* 

* I/O OPERATIONS * BEG I/O * FBB2 * 
********************************************************************* 

* LABEL DEFINITION * LABEL DEF * FGB2 * 
********************************************************************* 

* ARITH * FOSCAN * FBB3 * 
********************************************************************* 

* CALL * FOSCAN * FBB3 * 
********************************************************************* 

* ASF * FOSCAN * FBB3 * 
********************************************************************* 

* ARITH IF * FOSCAN * FBB3 * 
********************************************************************* 

* RETURN * SKIP * FFB4 * 
********************************************************************* 

* ERROR WARNING * ERWNEM * FFB1 * 
********************************************************************* 

* END * MOP UP * FGB2 * 
********************************************************************* 

* DO * DO * FCA2 * 
********************************************************************* 



Chart FA. PRESCAN Routine 
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**** 
* 
* A4 



*****A2********* 

* INITIALIZE 
*ALL INDICATORS 

* USED IN THE 

* FOSCAN 

* ROUTINE 
**************** 



_*-*—*_*_ 



******** 



h******** 



FOS020 

*****B1 ******* 

* «5F.T 



************** 



.* CALL, 
* ASF, 

ARITHIF 
*. ARITH 



* CHECK * 
X* SUBROUTINE * 

* NAME * 

* * 
***************** 



*****B4********** 

* MOVE * 

* INPUT TO '* 

* OPERATIONS * 

* TABLE * 



************** 



f-** 



*****F l********** 

* MOVE * 

* SUBSCRIPT * 

* TEXT TO *X 

* SUBSCRIPT * 

* TABLE * 
***************** 



FCS025 X 

*****C2** ******** 
♦CHANGE ADJECTVE* 

* CODE TO * 
...X* ADJECTIVE *X 

* FORCING * 
« * CODE * 
' ***************** 



FCRSCAN X 

***** D2 ********** 

* MOVE * 

* INPUT * 

* TO OPERATIONS * 

* TABLE * 

***************** 



* E2 *.X. 



***E2** ******** 
GET * 
NEXT * 
WORD * 
FROM * 
INPUT * 

*************** 



*****G2** ******** 

* GET RIGHT * 

* FORCING VALUE * 

* CF INPUT * 

* WORD * 

* * 
***************** 



*****H2** 

* GET 

* FORCING 

* OF L 

* OPERAT 

* TABLE 
********* 



******* 
EFT 

VALUE 
AST 
ICNS 
ENTRY 
******* 



************************************** 

* LEFT * * 

* OPERATOR * EXPLANATION * ROUTINE 



*************** 
CHART * 



LEFT 

FORCED 

RIGH 



+ 


* 


ADD 


* 


ADD 


* 


FH 


- 


* 


SUETRACT 


* 


ADD 


* 


FH 


* 


* 


MULTIPLY 


* 


MULT 


* 


FI 


/ 


* 


DIVIDE 


* 


MULT 


* 


FI 


** 


* 


EXPONENTIATE 


* 


EXPON 


* 


FK 


u 


* 
* 


UNARY MINS 


* 
* 


UMINUS 


* 
* 


FL 


( 


* 


LEFT PAREN 


* 


LFTPRN 


* 


FM 


) 


* 


RIGHT PAREN 


* 


RTPRN 


* 


FL 


C FORC 


* 


CALL FORCING* 


CALL 


* 


FN 


= 


* 


EQUAL 


* 


EQUAL 


* 


FO 


• 


* 


ARGUMENT 


* 


COMMA' 


* 


FP 


F( 


* 


FUNCTION 


* 


FUNC 


* 


FN 


ILLEGALOP 


* 


ILLEGALOP 


* 


INVOP 


* 


FF 



Chart FB. FOSCAN Routine 
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***** 
*FC * 
* B2* 



***** 
*FC * 
* 84* 



*****B2 ********** 
*LAB FQB4* 

*-*-*-*-*-*-*-*-* 

* INSURE * 

* STMT NO. IS * 

* DEFINED * 
***************** 



MRCK .X. 

B4 *. 
•*IS THIS*. 
.*DO VARIABLE*. YES 
*. ALREADY IN .*.... 
*. EITHER .* 
*. TABLE.* 
*. .* 
* NO 



*****B5 ********** 

♦ERROR FVB4* 

*-*-*-*-*-*-*-*-* 

•X* DO VARIABLE * 

* REDEFINED * 

* * 
***************** 

« **** 



*****C2* ********* 

* SAVE * 

* STATEMENT * 

* NUMBER IN * 

* END DC * 

* TABLE * 
***************** 



• X. 
C4 *. 
.* IS *. 
.* THIS 
*. AN IMPLIED 
*. DO 

*. .* 
*• •* 
* NO 



..X*FF * 
* B3* 
**** 

*****C5********** 

* ENTER * 

* VARIABLE * 
<* IN IMPLIED * 

* DO TABLE * 

* * 
***************** 



*****D2** ******** 
*DVARCK FCB4* 
*_*_*_*_*_*_*_*_* 

* CHECK * 

* DO * 

* VARIABLE * 
***************** 



*****D4 ********** 

* ENTER * 

* VARIABLE * 

* IN * 

* DO * 

* TABLE * 
***************** 



***** 
*FC * 

* E2* 



D02 X 

*****E2********** 
*PINCUT FWB1* 
*_*_*_*_*_*_*_*_* 

,..X* MOVE *X. 

* INPUT WORD * 

* OUT * 
***************** 



IS 

TABLE 
FULL 



*****E5 ********** 
*ERROR FVB4* 
*_*_*_*_*_*_*_*_# 

.X* MORE THAN * 

* 25 LEVELS * 

* OF DO NESTING * 
***************** 



***** 
*FC * 
* F2* 



CEM .X. 

F2 *. 
.*IS THIS*. 
.* ADJ CODE 
...X*. AN END 
*. MARK 



X 

***** 

*FF * 

* B3* 

* * 



****F4********* 

* * 

* RETURN * 

* * 
*************** 



X 
***** 
*FF * 
* D3* 



Chart FC. DO Routine , Subroutine DVARK 
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***** 
*FD * 
* B2* 



***** 
*FD * 
* B4* 



CGOTC X 

***** 82 ********** 

*FINCUT FWB1* 

*-*-*-*-*-*-*-*-* 

. ..X* PUT INPUT * 

* WORD * 

* OUT * 
***************** 



GOTO X 

*****B4* ********* 
*LAB FQB4* 

*-*-*-*-*-*-*-*-* 

* INSURE THAT * 

* STMT NO. * 

* IS DEFINED * 
***************** 



*****C 1 ********** 
*LAB FQB4* 

* INSURE THAT *X. 

* STMT NO. IS * 

* DEFINED * 
***************** 



• X. 
C2 *. 
•* DOES *. 
YES .* NEXT WORD * 
....*. POINT TO A 

*. STMT .* 
*. NO. .* 
*. .* 
* NO 



*****C4 ********** 
*PINOUT FWB1* 
*-*-*-*-*-*-*-*-* 

* PUT INPUT * 

* WORD * 

* OUT * 
***************** 



X 

***** 

*FC * 

* F2* 

* * 



X 
***** 
*FF * 
* B3* 



Chart FD. COMP GO TO, Go TO Routines 
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***** 
*FE * 

* B3* 



BEGIO X 

*****B 3 ********** 
*PINOUT FWB1* 
*-*-*-*-*-*-*-*-* 

..X* PUT INPUT * 

* WORD * 

* OUT * 
***************** 



C3 *. 

.* IS *. 
* THERE *• YES 

AN IMPLIED .*.... 
*. DO .* 



*****C4********** 

*DVARCK FCB4* 

*-*_*_*_*_*_*_*-* 

»X* CHECK * 

* IMPLIED DO * 

* VARIABLE * 
***************** 



• X. 

D3 *. 

* IS 

THERE 

AN END 

MARK 



X 

***** 

*FF * 

* D3* 

* * 
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***** 
*FF * 
* Bl* 



***** 
*FF * 

* B3* 



ERWNEM X 

*****B1 ********** 
*PINOUT FWB1* 
*-*-*-*-*-*-*-*-* 

* PUT * 

* INPUT WORD * 

* OUT * 
***************** 



MSGNEM X 

*****B3********** 
*ININ FWB3* 
*—*—*—*—*—*-*—*—* 
X* INCREMENT * 

* INPUT * 

* POINTER * 
***************** 



SKIP 

*****B4********** 
*PINCUT FWB1* 
*—*—*—*—*—*—*—*—* 

* PUT * 

* INPUT WORD * 

* OUT * 
***************** 



INVOP X 

*****B5 ********** 
*ERROR FVB4* 
*—*—*—*—*—*—*—*—* 

* INVALID * 

* ADJECTIVE * 

* CODE * 
***************** 



***** 
*FA * 
* Dl* 



END MARK 



*FF * 
* C3* 
***** 



*****D3********** 

* PUT INPUT * 

* WORD OUT * 
•X* DO NOT UPDATE * 

* INPUT * 

* POINTER * 
***************** 



.*IS THIS*. 

USED AS 

AN END DO 



*****E4«* ******** 

* PUT * 

* OUT END * 
X* DO TEXT * 

* WORD(S) * 

* * 
***************** 



*****F2** ******** 

* PUT * 

* MESSAGES * 

* ONTO OUTPUT *X 

* DATA SET * 

* * 
***************** 



.* ANY * 

WARNING 

OR ERROR 

. MESSAGE 



*—*-*-*-*-*-*-*-* 
X* UPDATE * 

* INPUT * 

* POINTER * 
***************** 



***** 
«FA * 
* Dl* 
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25*1 



MCPUF X 

*****B2** ******** 

* PUT * 

* THE FINAL * 
♦TEXT WORDS ONTC* 

* THE OUTFUT * 

* DATA SET * 
***************** 



*****C l********** 

* * 

* PUT * 

* MESSAGES *X 

* OUT * 

* * 
***************** 



ANY 
MESSAGES 
. FROM 
*. INPUT.* 



WITHIN A 
FUNCTION 
. SUBPRC- 
*.GRAM .* 



FUNCTION 

NAME 

. DEFINED 



*-*-*-*-*-*-*-*-* 
.X* FUNCTION NAME * 

* NOT * 

* DEFINED * 
***************** 



*****E2** ******** 

* PUT THE * 

* END OF OUTPUT * 
*TEXT WORD ONTO *X. 

* THE OUTPUT * 

* DATA SET * 
***************** 



*****F2** ******** 

* UPDATE THE * 

* LOCATION * 
♦COUNTER EY THE * 

* WORK AREA * 

* SIZE * 
***************** 



*****<52** ******* 

* MOVE 

* OUTPUT 

* INDICATOR TO 
*THE COMMUNICA- 

* TION AREA 
**************** 



OUTPUT IN 

MAIN 

. STORAGE . 



******H3******** 
WRITE END 
* OF DATA 
•X SET ON 
* OUTPUT 
TAPE 
************* 



****** J2** ********* 

* REWIND * 

WORK X. 
* TAPES * 

************* 



****K2** ******* 

* FSD TO * 

* READ IN * 

* PHASE 20 * 
*************** 
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***** 
♦FH * 

* B3* 



*****B3********** 
♦SYMBOL FTB1* 
*-*_*_*.-*.-*--*_*-* 

* DELETE ANY * 

* SYMBOL * 

* ERROR * 
***************** 



X 

***** 

♦FS * 

* B3* 

* * 



D2 ♦ . 

.* IS *. 

.* LEFT *. 

OPERAND A .♦X. 
*. REGISTER .* 



*****C 3 ********** 
♦MODE FXB3* 
*_*_*_*..*_*_*_*.-* 

* UNMI,X ANY * 

* MIXED * 

* MODE * 
***************** 

**** 

* * 
*FH *.X. 

* B3* 
**** 

ACDAD .X. 

03 *. 

.* IS ♦. 

YES .* RIGHT *• NO 

....*. OPERAND A .♦... 

♦.REGISTER .♦ 

♦. .♦ 



***** 
*FH ♦ 
* D4^ 



• X. 

D4 ♦. 

.♦ IS * 

LEFT 
OPERAND fi 
•REGISTER 



E2 ♦. 
.♦ IS ♦• 
.♦ OPERATOR ♦. YES 
. SUBTRACT OR ...... 

♦. DIVIDE .♦ 



SUBSUB X 

*****E 4 ********** 

♦MVSBXX FYB2^ 

*-*-*-*-*-*-*-*-* 

. ..X^ PROCESS LEFT ♦ 

♦ OPERAND, IF ♦ 

♦ SUBSCRIPT ♦ 
***************** 



***** 

♦ FS ♦ 

♦ C3^ 



*****F2** ******** 

♦ SWITCH ♦ 

♦ LEFT AND ♦ 

♦ RIGHT ♦ 

♦ OPERANDS ♦ 

♦ * 
***************** 



X 

***** 

♦FS ♦ 

♦ C3^ 

* * 



*****F4*« ******** 

♦FINDR FUBl^ 
»_*_»_♦_*_*._#_*_# 

♦ GET A FREE ♦ 

♦ REG AND MARK ♦ 

♦ IT OCCUPIED ♦ 
***************** 



*****G4 ********** 
♦L0ADR1 FUF5^ 
*_*-*_*_*..*-*—*_* 

♦ GENERATE LOAD ♦ 

♦ OF LEFT OPER- ♦ 

♦ AND INTO REG, ♦ 
***************** 



• X. 
H4 ♦. 

.♦ IS ♦. 
♦ RIGHT ♦. YES 
OPERAND A •♦•••• 




♦.REGISTER .♦ 
♦• •♦ 
♦• .♦ 
♦ NO 


* X 

***** 
♦FS ♦ 
♦ B3^ 



X 
***** 

♦ FS ♦ 

♦ C3^ 
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***** 
*FI * 
* B3* 



MULT X 

*****B3********* 
*SYMBOL FTE1 


* DELETE 

* ANY SYMBOL 

* ERROR 
**************** 



*—*—*—*—*—*—*—*—* 

* UNMIX * 

* ANY MIXED * 

* MODE * 
***************** 



***** 
*FH * 
* D3* 



*****F1 ********** 

* SWITCH REGIS- * 

* TERS IF NEC. * 

* TO MAKE LEFT *X 

* OPERAND THE * 

* HIGHER REG. * 
***************** 



*****G1 ********** 

* GET * 

* AN EVEN-ODD * 

* REGISTER * 

* PAIR * 

***************** 



BOTH ARE REGISTERS 



.* ARE 

OPERANDS 
♦.REGISTERS. 



NEITHER IS A REGISTER 



*ONE IS A REGISTER 



* WHICH ONE 

IS A 
♦.REGISTER . 



RIGHT 
*........ 

OPERAND 



*****G4** ******** 

* SWITCH * 

* RIGHT AND * 
X* LEFT * 

* OPERANDS * 

* * 
***************** 



*****H3* ********* 

* MAKE SURE * 

* LEFT OPERAND * 

* IS IN AN *X 

* ADD REGISTER * 

* * 
***************** 



*****J3********** 

* MAKE EVEN * 

* REGISTER * 

* AVAILABLE FOR * 
♦MULTIPLICATION ♦ 

* * 
***************** 



*****F5 ********** 

♦ PROCESS * 

♦ LEFT OPERAND * 
X* SUBSCRIPT * 

♦ IF ANY ♦ 

♦ * 
***************** 



*****G5 ********** 

* DETERMINE * 

* WHICH * 

* REGISTER PAIR * 

* TO USE * 

***************** 



****H5** ******** 

SAVE * 

REGISTERS * 

IF * 

NECESSARY * 



*_*_*—*_*_*_*_*_« 

* GENERATE LOAD * 

* OF LT OPERAND * 

* INTO ODD REG. * 
***************** 



***** 
*FS * 
* C3* 



***** 
*FS * 
* C3* 
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DIV 
YES 



LEFT 
OPERAND A 
•REGISTER 



.*IS LEFT*. 
OPERAND 
AND OCD 

.REGISTER . 



RIGHT 
OPERAND A 
.REGISTER 



.X* PROCESS LEFT * 

* SUBSCRIPT * 

* IF ANY * 
***************** 



ODDIV X 

#*#*#D1 ********** 
*CHCKGR FUF1* 
*_*—*_*_*_*_*_*_* 

* SAVE EVEN * 

* REGISTER * 

* IF NECESS. * 
***************** 



* SAVE ODD * 

* REGISTER * 

* IF NECESS. * 
***************** 



* PROCESS * 

* SUBSCRIPT * 

* IF ANY * 
***************** 



*****£ 1 ********** 

* GENERATE * 

* LOAD OF * 

* ODD INTO EVEN * 
» REGISTER * 

* * 
**>** 



*********** 



****E2** ******** 

MARK * 

CDC REGISTER * 

OCCUPIED * 

* 

**************** 



*****E4********** 

* ASSIGN * 

* LEFT OPERAND * 

* TO A REGISTER * 

* PAIR * 

* * 
***************** 



*****F1 ********* 

* GENERATE 

* SHIFT OF 

* EVEN INTO ODD 

* REGISTER 
* 
**************** 



*-*—*—*—*-*—*-* 

* MARK EVEN 

* REGISTER 

* FREE 
*************** 



*****P4********** 
*LOADRl FUF5* 
*—*—*—*—*—*—*—*—* 
*LOAD LEFT OPER-* 

* AND INTO THE * 

* REGISTER PAIR * 
***************** 

.X. 
G3 *. 
.* IS *. 
.* RIGHT *. YES 

OPERAND A .* 

♦.REGISTER .* X 

*. .* ***** 

*• •* *FS * 

* NO * B3* 



***** 
*FS * 
* D3* 



YES .* RIGHT *. 
. ...*.OPERAND SUB- . 
♦.SCRIPTED .* 



***** 
*FS * 
* G3* 
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***** 
*FK * 
* B2* 



EXPON X 

*****B2** ******** 
*SYMEOL FTG3* 
*_*~*_*_*_* _*_*_* 

* DELETE * 

* ANY SYMEOL * 

* ERROR * 
***************** 



*****C2* ********* 

* * 

* CHANGE MODE * 

* OF BASE * 

* IF NECESSARY * 

* * 
***************** 



***** 02** ******** 

* * 

* GO TO COMMA * 

* ROUTINE TO * 
*STORE REGISTERS* 

* * 
***************** 



*****E2** ******** 
*CKARG GEA2* 
*_*_*_*_*_*_*_*_* 

* PROCESS THE * 
*BASE AND EXPO- * 
*NENT AS ARGMNTS* 
***************** 



*****F2* ********* 

* PUT AN * 
♦EXPONENTIATION * 

* WORD INTO * 

* THE OUTPUT * 

* DATA SET * 
***************** 



*****G2** ******** 

* GENERATE AN * 
*ARGUMENT COUNT * 

* TEXT WORD AND * 

* ADD 2 TO THE * 
*ARGUMENT COUNT * 
***************** 



H2 *. 

• * * • 

.* WITHIN *• 

AN ASF 

*DEFINITION * 



************************ 
*EXPON • SPECIFIC * 
*ADJ . EXPONENTIATION* 
*CODE . CODE * 

************************ 



*. 



************************ 
*COUNT . * 

*ADJ • 2* 

*CODE • * 

************************ 



*****H3* ********* 

* GENERATE * 

* INSTRUCTION * 
X* TO RESTORE * 

* REGISTERS * 

* 14 AND 9 * 
***************** 



X NO 



***** 

*FA * 

* Dl* 

* * 
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***** 
*FL * 
* B2* 



***** 
*FL * 
* B4* 



UMINUS X 

*****B2** ******** 
*TYPE FTB3* 
*—*—*—*—*—*—*—*-* 

* FIND * 

* ANY SYMBOL * 

* ERROR * 
***************** 



UPLUS X 

*****B4 ********** 

* * 

* DELETE * 

* UNARY PLUS * 

* TEXTWORD * 

* * 
***************** 



C2 *• 
.* IS *. 

* OPERAND 
A REGISTER 



X 
***** 
*FA * 
* Dl* 



• X. 
D2 *. 
.*IS OP- *. 
•* ERAND A *• NO 
• SUBSCRIPTED .*.., 
*. EXPRESS- .* 
*. ION .* 
*. .* 
* YES 



*****E2** ******** 
*MVSERX FYB4* 
*—*—*—*—*—*—*-*—* 

* PROCESS * 

* SUBSCRIPT * 

* EXPRESSION * 
***************** 



LOAD X 

*****F2 ********** 
*FINDR FUB1* 

* — *-.*—*_*-*_*._*_« 

*GET A FREE REG.*X. 

* AND MARK IT * 

* OCCUPIED * 
***************** 



*****G2** ******** 
*LCADR1 FUF5* 
*_*_*_*_*-*_*_*_* 

* GENERATE LOAD * 

* OF OPERAND * 

* INTO REGISTER * 
***************** 



LCR X 

*****H2** ******** 

* GENERATE * 
INSTRUCTION TO * 

..X*CCMPLEMENT REG-* 
*ISTER AND ENTER* 

* IT IN OP TBL * 
***************** 



***** 

*FL * 

* F4* 

* * 



RTPRN 


• X. 




F4 *. 




,* * 


NO .* 


MISSING 


• • •*• 


OPERATOR 


* 






*. .* 




*. •* 




* YES 



*****G4 ********** 
*ERROR FVB4* 
*-*-*-*-*-*-*-*-* 

* MISSING * 

* OPERATOR * 

* * 
***************** 



• •X. 

X 

***** 

*FS. * 

* C3* 



X 
***** 
*FS * 
* C3* 
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***** 
*FM * 
* B2* 



CALL1 

*****B4********** 
*CKAR6 GBA1* 
*—*—*—*—*—*—*—*—* 



*****B5 ********** 

* SET * 

* ARGUMENT * 

* COUNT * 



***************** 



***************** 



* * YES .* THE ARITH *. 

* H2 *X. ...*. EXPRESSION IN.*X. 

* * *. A REG- .* 
**** *.ISTER.* 



02 *. 
.* ARITH *. 
.♦EXPRESSION *. YES 
.A VARIAELE OR.*. 
*DUMMY VAR- * 
*.IABLE.» 
*• •* 
* NO 



***** 
*FP * 
* D4* 



******** 



t******** 



.* SUBSC *. 
* OR DUMMY * 

SUBSC VARI- 
*. ABLE .* 



****E3********** 

DELETE * 

LFTPRN * 

FROM * 

OPERATIONS * 

TABLE * 

**************** 



ASF030 X 

*****F2*« ******** 

* PUT THE * 

* TWO WORDS * 

* CF SUBSCRIPT * 

* TEXT CUT * 

***************** 



ASF020 X 

*****G2*» ******** 
*GENERATE INSTR.* 
*TC LOAD. SUBSCP* 
*CR INTEGER VAR *X 

* INTO A * 

* REGISTER * 
***************** 

**** . 



* H2 *.X. 



*****H2** ******** 

* PUT * 

* AN IF FORCING * 

* TEXT WORD * 

* INTO INPUT * 

* * 
***************** 



.* WAS *. 

LFTPRN 
FORCED BY 
. RTFRN 



ASF050 

*****j 3**** ****** 
*ERROR FVB4* 
*—*—*—*—*—*—*—*—* 



***************** 



***** 
*FR * 
* A3* 



***** 
*FF * 
* D3* 
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*** ** 

*FN * 
* B2* 



***** 
*FN * 
* B4* 



INLINE *. YES 
FUNCT ICN •*•••• 




.* 
* • • * 
*• • * 

* NO 


X 

***** 
*FZ * 

* E3* 



• X. 
B4 *. 
.* HAS *. 
.* CALL BEEN *. YES 
PROCESSED .*. 
*. .* 

*. .* 
*. .* 
* NO 



*****C2 ********** 
*CKARG GEA1* 
#_*_*_*_*_*_*_*_* 

* CHECK * 

* ARGUMENT * 

* * 
***************** 



*****D2********** 

* SET * 

* ARGUMENT * 

* COUNT * 

* TO 1 * 

* * 
***************** 



*****C4********** 

* GENERATE * 

* CALL * 

* TEXT * 

* WORDS * 

* * 
***************** 



***** 
*FF * 
* D3* 



***** 
*FP * 
* D4* 



***** 
*FN * 
* G3* 



*****G2 ********** 
* ERROR FVEC * 



* ILLEGAL * 

* STATEMENT * 
***************** 



NO .* WAS *. 
...*. STATEMENT .* 
*. PROCESSED.* 
*. .* 
*. .* 
* YES 



***** 
*FF * 
* C3* 



***** 
*FF * 
* D3* 
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***** 
*F0 * 

* B3* 



*****B1 ********** 
♦ERROR FVB4* 
*-*-*-*-*-*-*-*-* 

* INVALID *X. 

* RESULT * 

* FIELD * 
***************** 



B2 *. 
.* IS *. 

THE 

RESULT 

FIELD 

*. VALID.* 

*. .* 

* YES 



EQUALS .X. 

B3 *. 
•*WITHIN *. 
NO .* AN ASF 
....*. DEFINITION 



ASFDEF 

*****B4* ********* 

* MOVE ARGUMENT * 

* COUNT WORD * 
• ..X* OUT OF * 

* OPERATIONS * 

* TABLE " * 
***************** 



X 
***** 
*FF * 

* D3* 



*****C2********** 

*TYPE FTB3* 

ERROR*-*-*-*-*-*-*-*-* 

• •• * CHECK RIGHT * 

X * OPERAND * 
***** * NORMAL * 
*FF * ***************** 
* D3* .NORMAL 



*****C4 ********** 
*TYPE FTB3* 

*_*_*_*_*_*_*_*_*£ RROR 

* CHECK * 

* RIGHT * X 

* OPERAND * ***** 
***************** *FF * 

•NORMAL * B3* 
. * * 



*****D2********** 
*NCDE FXB3* 

* UNMIX * 

* AND * 

* MIXED MODE * 
***************** 



*****E2** ******** 

* * 

* GENERATE * 

* STORE * 

* INSTRUCTION * 

* * 
***************** 



*****04********** 
*MODE FXB3* 
#_*_#_*_*_*_*_*_* 

* UNMIX ANY * 

* MIXED MODE * 

* * 
***************** 



• X. 

E4 *. 

.* IS *. 

.* RESULT 

IN PROPER 
*. REGISTER • 



X 
***** 
*FA * 
* Dl* 



*****F4********** 

* LOAD * 

* RESULT * 

* IN * 

* PROPER * 

* REGISTER * 
***************** 



*****G4** ******** 
♦GENERATE RETURN* 

* INSTRUCTION * 

* ACCORDING TO *X. 

* ARGUMENT * 

* COUNT * 
***************** 



X 
***** 
*FA * 
* Dl* 
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***** 
*FP * 
* Bl* 



INLINE 

FUNCTION 

CALL 



*-*-*-*-*-*-*-*-* 
X*PROCESS INLINE * 

* FUNCTION * 

* CALL * 
***************** 



*****B4********** 

* * 

* MARK RESULT * 

* REGISTERS * 

* FREE * 

* * 
***************** 



*****C 1********** 

* INITIALIZE * 

* COUNT OF * 

* NUMBER OF * 

* ARGUMENTS IN * 

* THIS STATEMENT * 
***************** 



.*WITHIN *. 
* ASFDEF 
PROCESSING 



*****C5 ********** 

* SAVE LINKAGE * 

* REGISTER 14 * 
.X* AND ARGUMENT * 

*LIST REGISTER 9* 



************* 



t*** 



***** 
*FP * 
* D4* 



*CHECK ARGUMENT * 
* * 

***************** 



COM025 X 

*****D4 ********** 
* PUT FUNCTION * 
♦CALL AND PRMTR * 
,..X*LIST IN OUTPUT *X. 
*INCRMT ARG CNT * 
♦FRTRN COMM ADDR* 
***************** 



**E 1 ********** 

INCREMENT * 

ARGUMENT * 

COUNT * 



************** 



.♦WITHIN *. 
* ASF DEF 
PROCESSING 



*****E5********** 

* RESTORE * 

* LINKAGE * 
♦REGISTER 14 AND* 

* ARGUMENT LIST * 

* REGISTER 9 * 
***************** 



.* FORCED BY 
END MARK 
*. INDICATOR. 



FUNCTION 
NAME 
VALID 



*****H2********** 

* SAVE GRO GR1, * 

* FPOt FP2i FP4 * 
X* AND FP6 * 

* AND MARK * 

* THEM FREE * 
***************** 



*****G3********** *****G4********* 

♦WARNING FVB2* * DELETE WORD 

*_*_*_*_*_*_*_*_* * IN OPERATIONS 

* MISSING * * TABLE THAT 

* ) * * CONTAINS A 

* * * RIGHT PAREN 
***************** **************** 

I x! 

X 

***** 
*FA * 
* Dl* 
*****H3********** * * 

♦ERROR FVB4* * 

*—*-*—*—*—*-*—*—* 
X* ILLEGAL * 

* DELIMETER * 

* * 
***************** 



*—*-*—*—*—*—*—*—* 

* INVALID * 

* FUNCTION * 

* NAME * 
***************** 



***** 
*FF * 

* B3* 
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LABEL DEF 



**** 

FQ * 

B4* 



ACCESS 

STATEMENT 
NUMBER 
POINTER 



*—*_*—*_*_ 



********** 



THIS 
ENDDO 
VAL IC 



X* STMT NO. * 

* NOT * 

* DEFINED * 
***************** 



**D2** ******* 
INDICATE 
AN ENDDO 
FOR THE 

MSG 
ROUT INE 
************* 



D4 *. 

.*IS THIS*. 

STMT NO. 

OF FORMAT 

• STATE- . 

*.MENT .* 

*. .* 

* NO 



.X*ILLEGAL TRNSFR * 
*TO NON-EXCUTBLE* 
* STATEMENT * 
***************** 



*E4********* 
* 
RETURN * 
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***** 
*FR * 
* A3* 



ARTHIF .X. 

B3 *. 

.*IS NEXT*. 

.* OPERAND A *• NO 

..X*. STATEMENT .* . . . 

*. NUMBER .* 



WAS THE 

STATEMENT 

.TRUNCATED. 



X 
***** 
*FF * 
* D3* 



*****C3********** 
*LAB FQB4* 

*-*-*-*-*-*-*-*-* 

* INSURE STATE- * 
*MENT NUMBER IS * 

* DEFINED * 
***************** 



*****D3 ********** 
*PINOUT FWB1* 
*-*-*-*-*-*-*-*-* 

* PUT WORD OUT * 

* AND ACCESS * 

* NEXT WORD * 
***************** 



• X. 

E3 *. 
.* ARE 3 *. 

STATEMENT 

NUMBERS 

•PROCESSED. 



*****C4********** 
*ERROR FVB4* 
*-*-*-*-*-*-*-*-* 
*LESS THAN THREE* 

* STATEMENT * 

* NUMBERS * 
***************** 



X 
***** 
*FF * 
* B3* 



*****F2 ********** 
*ERRCR FVB4* 
*-*-*-*-*-*-*-*-* 
*MCRE THAN THREE*X. 

* STATEMENT * 

* NUMBERS * 
***************** 



END 
MARK 
NEXT 



• .* 
* YES 



X 
***** 
*FF * 
* C3* 



X 
***** 
*FF * 
* D3* 
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***** 
*FS * 

* B3* 



*****B 3*** ******* 
*FREER FUB5* 
*-*-*-*-*-*-*-*-* 

* MARK RIGHT * 

* OPERAND * 

* FREE * 
***************** 



***** 

*FS * 

* L3* 

* * 



C3 *. 
.* IS *. 

.♦RIGHT OPRND*. 
.X*. SUBSCRIPTED . 



***** 
*FS * 
* C3* 



***** 
*FS * 
* G2* 



L30 X 

*****D 3*** ******* 
*MOVE LAST SUB- * 

* SCRIPT FROM * 
. ..X*SUBSCRIPT TABLE* 

* TO OUTPUT * 

* BUFFER * 
***************** 



*****E3*** ******* 
*INOUT FWB5* 
*-*-*-*-*-*-*-*-* 

* INCREMENT * 

* OUTPUT * 

* POINTER * 
***************** 



*****F3********** 

* DECREMENT * 

* POINTER TO * 

* SUBSCRIPT * 

* TABLE * 

* * 
***************** 



REG X 

*****G3********** 

* GENERATE * 

* OPERATION AND * 
...X* ENTER RESULT *X.. 

* REG NUMBER * 

* INTO OP TBL * 
***************** 



***** 

*FS * 

* H3* L27 X 

* * *****H3********** 

* *INOUT FWB5* 

. * — *—*—•*_*_*_*-*—* 

X* INCREMENT * 

* OUTPUT * 

* POINTER * 
***************** 



***** 

*FS * 

* J3* 

* * 



L22 X 

*****J3********** 



* DECREMENT * 
<* POINTER TO * 

* OPERATIONS * 

* TABLE * 
***************** 



X 

***** 

*FA * 

* Dl* 

* * 
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SYMBOL X 

*****B l********** 
*TYPE FTB3* 
*_*_*_*_*_*_*_*_* ERROR 

* CHECK RIGHT * 

* OPERAND * 

* * 
***************** 



***** 
*FS * 
* J3* 



*****C l********** 
*TYPE FTB3* 
*_*_*-*_*_*_*-*_* error 

* CHECK LEFT * 

* OPERAND * 

***************** 



*****C2********** 

* OVERLAY LEFT * 

* OPERAND WITH * 
•X* RIGHT OPERAND * 

* IN OPERATIONS * 

* TABLE * 
***************** 



***************** 



TYPE CODE 
TOO HIGH 
• OR LOW 



*_*—*—*—*_*—*—*—* 



***************** 



****B5 ********* 

* ERROR * 

* RETURN * 

* * 
*************** 

IF AN ERROR IS 
DETECTED, CON- 
TROL IS PASSED 
TO THE ERROR 
RETURN SPECIFIED 
BY THE ROUTINE 
WHICH CALLED SUB- 
ROUTINE TYPE. 



***************** 



***D 1********* 

RETURN * 
* 
************** 



*—*—*—*—*—*— 



***************** 



****E3********* 

* * 

* RETURN * 

*************** 
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***** 
*FU * 
* Bl* 



* FIND A * 

* FREE * 

* REGISTER * 

* * 
***************** 



*****B3********** 

* * 

* DETERMINE * 

* REGISTER TO * 

* BE TREATED * 

* * 
***************** 



FREER X 

*****B5 ********** 

* DETERMINE * 
♦WHICH REGISTER * 

* IS TO BE * 
*MADE AVAILABLE * 

* * 
***************** 



*****C l********** 

* * 

* MARK THAT * 

* REGISTER * 

* UNAVAILABLE * 

* * 
***************** 



****C 3 ********** 

INITIALIZE * 

POINTER TO * 

THIS WORK * 

AREA ENTRY * 

* 

**************** 



*****C5 ********** 

* * 

* MARK THAT * 

* REGISTER * 

* AVAILABLE * 



********* 



****D 1 ********* 

* * 

* RETURN * 

* * 
*************** 



* ACCESS * 

* OPERATIONS *X 

* TABLE ENTRY * 

***************** 



****D5 ********* 

* * 

* RETURN * 

*************** 



***** 
*FU * 
* Fl* 



.*IS REG *. 
* NUM BEING 
TREATED IN 
♦. THIS 

*. ENTRY.* 
* • •* 
* YES 



SPECIFIER 
REGISTER 
. AVAIL- 
♦.ABLE .* 



•X* STCRE PRESENT * 
* CONTENTS OF * 
*SPECF. REGISTER* 
***************** 



LOADR1 X 

*****F5 ********** 
♦GENERATE INSTR.* 

* TO LOAD LEFT * 

* OPERAND INTO * 

* SPECIFIED * 

* REGISTER * 
***************** 



*****G1 ********** 

* * 

* MARK THAT * 

* REGISTER * 

* UNAVAILABLE * 

***************** 



NOTDBL X 

*****G3**** ****** 
♦GENERATE INSTR.* 
*TO STORE CONTNT* 

* OF REGISTER *X 
*INTO WORK AREA * 

* * 
***************** 



****G4 ********** 

INSURE THAT * 

PTR TO THIS * 

WORK AREA IS * 

ON A DOUBLE * 

WORD BOUNDARY * 

**************** 



* INCREMNT PTR * 

* TO OUTPUT FOR * 

* GENRTED INSTR * 
***************** 



****H1 ********* 

* * 

* RETURN * 

* * 
*************** 



*****H3**» 



******* 



****H5 ****** 
* 
* RETURN 

************ 



*—*—*—*—*—*—*—*—* 
*INCREMENT OUTPT* 
*BUFFER PTR FOR * 
♦GENERATED INSTR* 
***************** 



****K3********* 

* RETURN * 

* * 
*************** 
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***** 
*FV * 
* B2* 



***** 
*FV * 
* B4* 



WARN X 

*****B2********** 

* * 

* GET * 

* MESSAGE * 

* NUMBER * 

* * 
***************** 



ERROR X 

*****B4********** 

* * 

* COMPUTE * 

* MESSAGE * 

* NUMBER * 

* * 
***************** 



*****C2 ********** 

* * 

* GENERATE * 

* WARNING TEXT *. 

* WORD * 

* * 
***************** 



*****C3********** 
*PLACE GENERATED* 

* WORD IN * 
•X* ERROR AND *X . 

^WARNING MESSAGE* 

* AREA * 
***************** 



*****C4********** 

* GENERATE * 

* ERROR * 
.* TEXT * 

* WORD * 

* * 
***************** 



• X. 




D3 *. 




•*IS ERR *. 




AND WARNING*. YES 




MESSAGE .*.... 




AREA .* 


X 


*.FULL •* 


***** 


*. .* 


*FF * 


* NO 


* B3* 



****E3********* 
a * 

* RETURN * 

* * 
*************** 
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***B 1 ** ******** 

MOVE * 

INPUT V»ORD * 

TO * 

OUTPUT * 

BUFFER * 

*************** 



*****B3********** 

* * 

* UPDATE * 

* INPUT * 

* POINTER * 

***************** 



UPDATE 
OUTPUT 
POINTER 



********** 



-*-*—*—* 



UPDATE 

INPUT 

POINTER 



THIS 

BUFFER 

FULL 



UPDATE * 

OUTPUT * 

POINTER * 

************* 



*****D3********** 

* READ INTO * 

* THIS BUFFER. * 

* SELECT NEXT * 

* BUFFER * 
***************** 



*****D5 ******** 

* WRITE OUT 

* THIS BUFFER. 

* SELECT NEXT 

* BUFFER 
*************** 



****E 1 ********* 

* * 

* RETURN * 

* * 
*************** 



****E3********* 

* RETURN * 

* * 
*************** 



****E5******** 
* RETURN 
************** 
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***** 
*FX * 
* E3* 



.* SAME 
*. MODE 



• X. 

C3 *. 
* IS *. 
RIGHT *. 
OPERAND 
INTEGER .* 



*****C4 ********** 

♦GENERATE AN IN-* 

*LINE FUNC CALL * 

•X*TO FLT RT OPRND*. 

* ACCORDING TO * 

* LFT OPRND * 
***************** 



****C5 ********* 

* * 
. X* RETURN * 

* * 
*************** 



*****D2* ********* 
♦GENERATE AN IN-* 
♦LINE FUNC CALL * 

* TO CONVERT RT ♦X. 
♦OPRND ACCORDING* 

* TO LEFT CPRND * 
***************** 



IS 
OPERATOR 



E3 *. 
.* *. 

LEFT *. YES 
OPERAND .*.... 
. INTEGER .* 
*. .* 
*. .* 
* NO 



*****F 3* ********* 

* * 

* EXTEND SINGLE * 

* OPERAND TO * 
*DOUBLE OPERAND * 

* * 
***************** 



*****E4**** ****** 
*GENERATE INLINE* 

* FUNC CALL TO * 
•X* FLT LFT OPRND * 

* ACCORDING TO * 

* LFT OPRND * 
***************** 



****G3********* 

* * 

* RETURN * 

* * 
*************** 
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***** 
*FY * 
* B2* 



***** 
*FY * 
* B4* 



MVSEXX .X. 

B2 *. 
.* IS *. 
.* LEFT *. 
*. OPERAND 

*SUBCRIPTED * 
*. .* 
*• • * 
* YES 



****B3********* 

* * 
•X* RETURN *X. 

* * 
*************** 



vivsbxr .x, 

B4 *. 

.* IS *. 

NO .* LEFT *. 

...*. OPERAND 

*SUBCRIPTED * 



C2 *. 
.* IS *. 

. * RIGHT 
OPERAND 
*SUBCRIPTED 
* # .* 
*. .* 



X 
*****C4********** 

* MOVE LAST * 

* ENTRY IN * 
,X*SUBSCRIPT TABLE* 

* TO OUTPUT * 

* BUFFER * 
***************** 



*****D2** ******** 

* MOVE NEXT * 

* TO LAST ENTRY * 

* IN SUBSCRIPT * 
*TABLE TO OUTPUT* 

* BUFFER * 
***************** 



*****E2** ******** 

* CVERLAY LAST * 

* ENTRY IN * 
^SUBSCRIPT TAELE* 

* NEXT TO * 

* LAST ENTRY * 
***************** 



*****F3 ********** 

*INOUT FWB5* 

*-*—*-*-*—*—*—*—* 

•X* INCREMENT *X. 

* POINTER TO * 

* OUTPUT EUFFER * 
***************** 



*****G3********** 

* * 

* DECREMENT * 
*SUBSCRIPT TABLE* 

* POINTER * 

* * 
***************** 



****H3********* 

* * 

* RETURN * 

* * 
*************** 
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***** 
*FZ * 
* E3* 



X 


**** 


FF * 


B3* 



*****B2** ******** 
*ERRCR FVB4* 
*_*_*_*_*_*_*_*_* 

* WRONG NO. OF *X. 

* ARGUMENTS * 

* * 
***************** 



YES .* IS 
.»•*. ARG MODE 
*• INTEGER 



YES .* FUNCTION 
....*• MODE 

*. INTEGER 



B3 *. 
• * *. 

* ONE 

ARGUMENT 

*. FUNCTION • 

*. .* 

*• •* 

* YES 



• X. 

C3 *• 

.* IS *. 

YES .* FUNCTION *• 

....*.IFIX FLOAT OR, 

*. DFLOAT .* 



X 


*. .* 


*. • 


**** 
* 
E2 * 


* NO 


* 






* 






**** 








X 


• X. 


* 


****D1 ********** 


D2 


*ERROR FVB4* 


.* IS 


* 


_*_*_*_*_#_*_*_* 


NO .* ARG 


• .X* 


WRONG MODE *X... 


*. MODE 


* 


OF * 


*. REAL 


• * 


ARGUMENT * 


*• 


# ***************** 


*. • 


**** 


m 


* 


* 


. 




Dl * 


. 




* 


X 




**** 


***** 
*FF * 






* B3* 


X 



*****E2** ******** 
*MCDE FXB3* 
*_*_*_*_*_*_*_#_* 

..X* GENERATE AN * 

* INLINE FUNC * 

* CAL WARD * 
. ***************** 

**** 



E2 



*• 



D3 *. 
.* IS * 

•* FUNCTION 

*• SNGL OR 

*. DBLE 



.*. 
D4 *. 
•DOES ARG • 
•*MODE MATCH 
.X*. FUNCTION 
*• MODE 



E3 *. 
•DOES ARG • 
•*MODE MATCH 
FUNCTION 
*. MODE 

*• •* 



*****E4 ********** 
*CHANGE ARGUMENT* 

* WORD AS * 

* INDICATED BY * 

* FUNCTION * 

* * 
***************** 



* 
* 
* 




* YES 


**** , 

* * . 

* Dl * 

* * . 
**** # 


) 

*****F2*^ 

* REVISE 

* IN OPEf 

* TABLf 

* ELIM 

* FUNCTK 
********4 


< 

********* 
E TEXT * 
RATIONS * 
E TO * 
[NATE * 
3N REF, * 
********* 


X 
*****F 3 ********** 
*INARG GCA1* 
*_*_*_*_*_*_*_*_* 

* * 

* PROCESS * 

* ARGUMENT * 
***************** 

X 
*****G3********** 

* GENERATE AND * 

* OUTPUT A WORD * 
♦REPRESENTING A * 

* CALL IS AN * 
*INLINE FUNCTION* 
***************** 

X.X 





***** 
*FP * 

* F4* 
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***** 
*GA * 
* Al* 



.* IS THIS A *. NO 
*.TWO ARGUMENT .*... 
*. FUNCTION .* 



*****A2 ********** 

*ERRCR FUB4* 

*-*-*—*—*-*—*-*-* 

X* WRONG NO. *. 

* OF * 

* ARGUMENTS * 
***************** 



***** 
*FF * 
* C3* 



Bl * . 

.* DOES *. 
•*MODE OF 1ST*. NO 
*.ARG MATCH THE.*... 
*. FUNCTION .* 
*.MODE .* 
* . •* 
* YES 



*****B2********** 

*ERRCR FUB4* 

*-*-*—*—*-*—*-*-* 

.X* WRONG *. 

* ARGUMENT * 

* MODE * 
***************** 



***** 
*FF * 
* C3* 



*****C 1 ********** 
*INARG GCA1* 

■a-* _*_#_# _•*_*_#_* 

* PROCESS * 

* FIRST * 

* ARGUMENT * 
***************** 



Dl *. 

.* DOES *. 
.*MCDE OF 2ND*. NC 
*.ARG MATCH THE.*... 
*. FUNCTION .* 
*.MODE .* 
*. .* 
* YES 



*****E 1 ********** 
*INARG GCA1* 

#_*_•*_#_.*_*_*-.■*_* 

* PROCESS * 

* SECOND * 

* ARGUMENT * 
***************** 



*****F 1********** 
*FREER FUB5* 

*—*-*—*—*—*—*—*—* 

* FREE REGISTER * 

* ASSIGNED TO * 
*SECOND ARGUMENT* 
***************** 



*****G i,,********** 

* FORM AN * 

* INLINE FUNCTION* 

* CALL WORD * 

* AND ENTER IN * 

* OUTPUT * 
***************** 



***** 
*FP * 
* F4* 



Chart GA. I NLIN2 Routine 



Phase 15 



275 



***** 
*GB * 
* Al* 



CKARG .X. 

Bl 



.* IS *. YES 
ARGUMENT •*.... 
*. MISSING .* 



*****B2********** 
*ERRCR FVB4* 
*-*_*_*—*..*—*—* — * 

• X* * • 

* ARGUMENT * 

* MISSING * 
***************** 



X 

***** 

*FF * 

* E3* 

* * 



TO MSGMEM 



CI *. 

.* IS *. 

.* ARGUMENT * 

IN A 

*. REGISTER .* 



Dl *. 

.♦ARG IS *. 

.♦CONSTANT IN*, 

♦A WORK AREA OR 

♦ .A REGULAR.* 

*.VARI .* 

*. .* 

* NC 



****D2** ******* 

* * 
•X* RETURN * 

* * 
*************** 



• X. 

El *. 

.* IS *. 

.* ARGUMENT *• YES 

*. A DUMMY .*.... 

♦.VARIABLE .* 



WITHIN 
AN 
ASF 



*****E3********** 

* * 

* ASSIGN * 
.X* ARGUMENT TO *• 

* A REGISTER * 

* * 
***************** 



*****E4** ******** 

* * 
♦GENERATE INSTR * 

.X* TO STORE REG * 
*IN A WORK AREA * 

* * 
***************** 



Fl *. 
.*WITHIN *. 
.* ASF 
. DEFINITION 
♦PROCESSING 



*****F 4**** ****** 
♦FREER FUB5* 
*-*-*-*-*-*-*-*-* 

* MARK THE * 

* REGISTER * 

* FREE * 
***************** 



.* IS *. 

ARGUMENT 
*. SUBSCRIPT.* 



HI *. 
.* IS *. 
•ARGUEMENT AN • YES 
*ARRAY OR DUMMY *.... 
*. ARRAY .* 
*. .* 
*• .* 
* NO 



*****j i********** 

♦ERROR FVB4* 

*-*-*—*-*-*-*-*-* 

• X* *. 

* INVALID * 

* ARGUMENT * 
***************** 



*****G2* ********* 
♦MAKE SUBSCRIPT * 

* CODE UNIFORM. * 

♦RESET SUBSCRIPT^* 

♦ POINTER. ♦ 
***************** 



*****H2** ******** 

♦WARNING FVB2^ 

*-*-*-*—*-*-*-*-* 

•X^ ARRAY ♦. 

♦ USED AS ♦ 

♦ ARGUEMENT ♦ 
***************** 



****J4* ******** 

* * 
•X* RETURN * 

* * 
*************** 
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***** 
*GC * 
* Al* 



Al 



* • 



.* IS *. 

ARGUMENT 

*. MISSING .* 

*• • * 

*. .* 
* NO 



*****A2»* ******** 

*ERRCR FVB4* 

*-*-*-*-*-*-*-*-* 

• X* *. 

* ARGUMENT * 

* MISSING * 
***************** 



***** 
*FF * 

* C3* 



.* IS *. YES 
*. ARGUMENT IN A.*.... 
*. REGISTER .* 



CI *. 
•*IS ARG *. 
.* IN A WORK *. YES 
*AREA A CONSTANT*.... 
*OR A REGUL * 
*.VARI .* 
*. .* 
* NO 



*****C2** ******** 
*FINDR FUB1* 
*_*_*_*—*-*—*-*-* 

.X* FIND A *. 

* FREE * 

* REGISTER * 
***************** 

X 



*****C 3* ********* 
*LOADRl FUF5* 
*_*_*_*_*_*_*_*_* 

.X* LOAD ARGUMENT * . 

* INTO A * 

* REGISTER * 
***************** 



****C4********* 

* * 
. X* RETURN * 

* * 
*************** 



Dl *. 
.* *. 
.* IS *. YES 
• ARGUMENT **.... 
*. SUBSCRIPT.* 
*. .* 
* s .* 
* NO 



*****D2** ******** 

* * 

* PROCESS * 
X* THE * 

* REGISTER * 

* * 
***************** 



El *. 
.* IS *. 
.♦ARGUMENT AN*. YES 
*ARRAY OR DUMMY *.... 
*. ARRAY .* 
*• •* 
*. .* 
* NO 



*****E2* ********* 
♦WARNING FVB2* 
*_*_*_*_*_*_*_*_* 

•X* ARRAY *. 

* USED AS * 

* ARGUEMENT * 
***************** 



*****p i ********** 
*ERROR FVB4* 
*-*-*-*-*-*-*—*-* 

* * 

* INVALID * 

* ARGUMENT * 
***************** 



X 

***** 

*FF * 

* D3* 

* * 
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PHASE 20 



Phase 20 increases the efficiency of the 
object program by decreasing the amount of 
computation associated with subscript 
expressions. Phase 20 in addition, per- 
forms miscellaneous functions, such as the 
generation of ESD and RLD records for any 
required library exponentiation subroutines 
and for any reference to IBCOM. 

Chart 07, the Phase 20 Overall Logic 
Diagram, indicates the entrance to and exit 
from Phase 20 and is a guide to the overall 
functions of the phase. 



SUBSCRIPT OPTIMIZATION 



A subscript expression can reoccur fre- 
quently in a FORTRAN program. Recomputa- 
tion at each occurrence is time-consuming 
and results in an inefficient object pro- 
gram. Therefore, Phase 20 performs the 
initial computation of any given subscript 
expression and assigns a register which ,at 
object time, contains the results of the 
computation. Phase 20 then modifies the 
text (previously referred to as intermedi- 
ate text in order to differentiate it from 
COMMON and EQUIVALENCE text) for subsequent 
occurrences of the expression. This text 
modification (optimization) essentially 
replaces the computation of the subscript 
expression with a reference to its initial 
computation (that is, to the assigned 
register) . The text for each subsequent 
occurrence of the subscript expression can 
be modified in this manner as long as the 
values of the integer variables in the 
expression remain unchanged. 



Index Mapping Table 



The index mapping table, used to aid the 
implementation of subscript optimization, 
maintains a record of all information pert- 
inent to a subscript expression. Because 
the computation of any unique subscript 
expression is placed in a register, the 
number of entries in the table depends on 
the number of registers available for this 
purpose. The initial register used for 
assignment to a subscript expression is 
determined during the initialization proc- 
ess for Phase 20. The format for an entry 
in the index mapping table is shown in 
Figure 47. 



Register | 
Number 



Number of 
Dimensions 



| Status 

_JL 



Offset 



H 



Subscript Entry Pointer 



— ^ 

Dimension Entry Pointer 



Register Number 

contains the register number. 

Number of Dimensions 

contains the number 1 , 2 , or 3 
indicating the number of dimen- 
sions. 

Status 

contains a number which indicates 
whether the register referenced by 
this entry is: 

1. Unassigned. 

2 . Assigned to a normal sub- 
script expression for index- 
ing computation (e.g., C*V+J 
where V represents the inte- 
ger variable and C and J 
represent constants. 

3. Assigned to the address of a 
dummy variable. 

Offset 

contains the offset portion of an 
indexing factor used to access the 
correct element of an array ref- 
erenced by a particular subscript 
expression. 

Subscript and Dimension Entry Pointers 
contain pointer references to 
addresses in the overflow table. 
(For more information on the over- 
flow table, see the introduction 
to Phase 10.) 

L , , 

Figure 47. Index Mapping Table Format 



Statements Subject to Optimization 



Before Phase 20 can attempt subscript 
optimization, it must first find text that 
can include subscript expressions. Thus, a 
search of text is made for: 

1. Arithmetic statements. 

2. IF statements. 
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3. CALL statements. 

4. I/O lists (treated as statements in 
text) . 

When Phase 2 encounters one of these 
statements containing a subscripted varia- 
ble , the optimization process begins. The 
index mapping table is used to determine if 
the subscript expression of the subscripted 
variable has been previously encountered. 



SUBSCRIPT TEXT INPUT; The text input to 
Phase 20 for a subscript expression is 
shown in Figure 4 8. 



SAOP | | 



OP 
I- 

SAOP 



W | Offset 

p (subscript) | p (dimension) 
+- 



| Type | a (variable) 
-X X- 



1 

— i 



l x x ^ 



w 



contains the adjective code for a 
subscripted variable portion of 
text. 



contains a zero value. 



contains a work register assigned 
by Phase 15. 



Offset 

contains the value of the offset 
portion of the array displacement. 

p (subscript) 

contains the pointer to subscript 
information in the overflow table 
for this subscript expression. 

p (dimension) 

contains the pointer to dimension 
information in the overflow table 
for this subscript expression. 



OP 



contains the operation 
assigned by Phase 15. 



code 



contains the register assigned by 
Phase 15. 



Type 

contains the last half of the 
Mode/Type code (see Phase 10) . 

a (variable) 

contains the address of the sub- 
scripted variable. 

L , J 

Figure 4 8. Subscript Text Input Format 



Register Assignment 



When the index mapping table indicates 
the first occurrence of the current sub- 
script expression, a register is assigned 
and a corresponding entry is made in the 
index mapping table. When a register is 
not available for assignment, the register 
that is currently assigned to the subscript 
expression of the least dimension is reas- 
signed to the current subscript expression. 



If the current subscript expression has 
been previously encountered, the text for 
its computation can be effectively replaced 
by a reference to the register assigned at 
the first encounter of the expression. 
However, redefinition of any integer varia- 
ble in the expression invalidates the pre- 
vious computation and prohibits the assign- 
ment of the same register to the current 
expression. 



Generation of Literals 



Phase 20 generates literals associated 
with the array displacement represented by 
any given subscript expression. The calcu- 
lation of an array displacement is 
explained in Appendix C. This explanation 
includes a discussion of the offset and CDL 
(constant, dimension, length) portions of 
the array displacement. Literals are gen- 
erated by Phase 20 under the following 
conditions: 

1. Phase 20 adds the offset portion of 
the array displacement to the dis- 
placement of the variable address. A 
resulting value outside the addressa- 
ble range of through 4095 bytes 
causes Phase 20 to make the offset a 
literal. The generation of an offset 
literal allows Phase 25 to produce 
instructions without assigning a new 
base register whose contents are unk- 
nown. 

2. Phase 20 generates a literal for each 
component of the CDL portion of the 
array displacement. For example, the 
value of C2*D1*L (the CDL component 
associated with the second dimension 
of an array displacement) is generated 
as a literal by Phase 20. Literals 
associated with the CDL portion of the 
array displacement are used by Phase 
25 in its generation of machine lan- 
guage instructions. (If the first 
component of the CDL portion of the 
array displacement is a power of 2, 
that power, instead of the address for 
the literal C1*L, is placed in text.) 
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Subscript Text Output 



Subscript text output from Phase 20 
depends on the previous optimization of the 
subscript expression. Three adjective 
codes used to indicate the different condi- 
tions that can be present in subscript text 
output and the conditions are explained in 
the following paragraphs. 



SAOP ADJECTIVE CODE: This code indicates 
that a subscript expression has not been 
previously optimized, and that an offset 
literal was not generated for the value 
resulting from the addition of the offset 
portion of the array displacement to the 
the variable address displacement. Sub- 
script text output associated with an SAOP 
adjective code is shown in Figure 49. 



r _ T T _ 

SAOP j N | 
X X- 



Offset 



p (subscript) 



j a(C1*L) 



a (C2*D1*L) 



OP 



R 



1 

-I 

— ^ 
— ^ 

| X | a (variable) 
j x ^ 



j a(C3*Dl*D2*L) 



SAOP 



N 



contains an adjective code desig- 
nating the form of subscript text. 



contains the number of dimensions 
of the subscripted variable. 



a(C1*L) , a(C2*D1*L) , and a (C3*D1*D2*L) 

contain the addresses of the 
literals which combine to form the 
CDL portion of the array displace- 
ment. N determines which address- 
es must appear. For example, if N 
is 1, only a (C1*L) appears. (If 
the first literal, C1*L, is a 
power of 2, that power appears 
instead of the address of that 
literal.) 



contains the register assigned to 
the subscript computation by Phase 
20. 

a (variable) 

contains the address of the sub- 
scripted variable. 



Note : All other entries are as defined 
in Figure 48. 



Figure 4 9. Subscript Text Output From 
Phase 20 - SAOP Adjective Code 



XOP ADJECTIVE CODE: This code indicates 
that the subscript expression has not been 
previously optimized, and that an offset 
literal was generated for the value result- 
ing from the addition of the offset portion 
of the array displacement to the displace- 
ment of the variable address. The sub- 
script text output associated with an XOP 
adjective code is shown in Figure 50. 



h 



XOP 



T" 

N | 
X- 



T 1 

W I a (generated literal) 

p (subscript) j a (C 1 *L) 

a (C2*D1*L) | a (C3*D1*D2*L) 

OP | R | X | a (variable) 
,. x x x 



_ .) 



XOP 



contains an adjective code desig- 
nating the form of subscript text. 



a (generated literal) 

contains the address of the offset 
literal generated by Phase. 



Note : All other entries are as defined 
in Figures 48 and 49. 



L 



J 



Figure 50. Subscript Text Output From 
Phase 20 - XOP Adjective Code 



AOP ADJECTIVE CODE: This code indicates 
that the subscript expression has been 
previously optimized. The subscript text 
output associated with an AOP adjective 
code is shown in Figure 51. 



AOP | I B | Offset 

x x 1 1 



OP 



R 



| X | a (variable) 

-X X— 



H 



AOP 



contains an adjective code desig- 
nating the form of subscript text. 



contains a zero value. 



contains an indicator. A hexa- 
decimal indicates that the 
actual offset is in the offset 
field. A hexadecimal F indicates 
that the address of the generated 
offset literal appears in the off- 
set field. 



Note : All other entries are as in 
Figure 48 and 49. 



Figure 51. Subscript Text Output From 
Phase 20 - AOP Adjective Code 
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Special Considerations 



DO 25 K=1,1000 



The preceding discussion of subscript 
optimization applies to subscript expres- 
sions that are neither constant nor asso- 
ciated with a dummy subscripted variable. 
These two conditions are discussed in the 
following paragraphs. 



SUBSCRIPTED DUMMY VARIABLE: 



In addition to 
normal optimization, a base register is 
assigned to any dummy variable to access 
the variable during the execution of the 
object program. The assignment is entered 
in the index mapping table. 

Preceding subscript text output asso- 
ciated with a dummy variable , an instruc- 
tion to load the address of the variable 
into the base register is generated and 
placed in the output buffer. Because that 
base register , at object time, contains the 
address of the variable, the displacement 
portion of the text address field is set to 
zero. The base register number replaces 
the register portion of the text address 
field. 



CONSTANT SUBSCRIPT EXPRESSION: Phase 20 
does not assign a register to a constant 
subscript expression whose value is within 
the addressable range of through 4095 
bytes . 

Subscript text output with an AOP adjec- 
tive code is modified for a constant sub- 
script expression, as follows: 

1. The field following the AOP adjective 
code contains an F instead of a zero. 

2. The X field can contain a temporary 
register, if an offset literal was 
generated. 



the integer variable K is a bound variable. 

Any encounter of a bound variable causes 
Phase 20 to examine subscript expressions 
assigned a register in the index mapping 
table. A bound variable in a subscript 
expression invalidates any previous compu- 
tation for that expression and causes the 
register assigned to that expression to be 
deleted. 



ARITHMETIC, CALL, AND IF STATEMENTS: Any 
subprogram argument that is an integer 
variable causes redefinition of all sub- 
script expressions containing that integer 
variable. 



REFERENCED STATEMENT NUMBER: When a state- 
ment number is referenced by other state- 
ments (e.g., a GO TO statement) , Phase 20 
does not know if the value of previously 
encountered integer variables can still be 
used by subscript expressions containing 
those variables. Because any given integer 
variable may now be a bound variable, Phase 
20 considers a- statement number referenced 
by some other pertinent statement as a 
point of definition and deletes all reg- 
ister assignments to subscript expressions 
in the index mapping table. 



END STATEMENT: The END statement indicates 
the end of Phase 2 processing. If the end 
of the input tape is reached before the END 
statement, compilation is aborted because 
input to Phase 20 is limited to one tape. 



ESD/RLD RECORDS 



Statements That Affect Optimization 



In addition to previously mentioned 
statements, various other statements that 
can affect optimization are processed by 
Phase 20. 



DO AND READ STATEMENTS: 



These statements 

sometimes cause the redefinition of an 
integer variable that exists in a subscript 
expression. (Arithmetic statements are 
also processed for a possible redefinition 
of an integer variable.) Any integer vari- 
able that is redefined (i.e., changes 
value) becomes a bound variable . For exam- 
ple, in the DO statement: 



When Phase 20 encounters exponentiation, 
it references one of the library exponenti- 
ation subroutines. Because this reference 
is external to the program being compiled, 
Phase 20 generates text, ESD, and RLD 
records for the first encounter of any 
given exponentiation subroutine. 

References to IBCOM, CGOTO, and IBERR 
also cause Phase 20 to generate ESD and RLD 
records. 



STORAGE MAP 



The storage map for Phase 20 is shown in 
Figure 52. 
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OK, 

4K 
11.888K 



h 



f 

F 



h 



16K 



FORTRAN System Director 



I/O Routines 
PHASE 20 



— ^ 



I/O Buffers 



Work Area 



t 



DOLIST 



SYMLST 



i 



Bound Variable List 






^ 



Overflow Table 



Figure 52. Storage Map for Phase 20 



assignment of addresses to literal con- 
stants generated during phase 20 is ini- 
tialized to the location counter value in 
the communications area. The INIT routine 
determines the first register number avai- 
lable for assignment in Phase 20 by using 
the contents of that location counter. The 
beginning address of the index mapping 
table is determined according to this reg- 
ister. 

The INIT routine also opens the input 
and output data sets, primes the first 
input buffer area, and determines the ini- 
tial address of the work area and the bound 
variable list. This list contains the 
addresses of all current bound variables. 

The INIT routine initializes the 
addresses for the ESD, RLD, and text card 
output areas. The program name is then 
moved to all three output areas, if the 
program being compiled is a main program, 
an ESD and RLD record are immediately put 
onto the output data set. 

EXIT: The INIT routine exits to the Con- 
trol routine for Phase 20. 



Control Routine: Chart HB 



ROUTI NES/SUBROUTI NES 



The routines and subroutines that per- 
form subscript optimization, process sub- 
script text input and output, and generate 
ESD and RLD records are shown in Figure 53. 



The routines and subroutines 
gorized as follows: 



are cate- 



1. Charts HA and HB: Phase 20 initializa- 
tion and control. 

2. Charts HC through HJ: Processing rou- 
tines for the various statements. 

3. Charts HK through HT: Optimization 
routines . 

4. Charts HU through ID: General purpose 
utility subroutines. 



INIT Routine: Chart HA 



The Control routine controls Phase 20 
processing. 



ENTRANCE: 



The Control routine receives 



control from the INIT routine. 

OPERATION: The initial text word for a 
statement is accessed and its adjective 
code is checked to determine if optimiza- 
tion is to be performed. Optimization 
occurs in Phase 20 if the adjective code 
indicates an arithmetic, IF, or CALL state- 
ment, or an I/O list substatement. Upon 
encountering the code for one of these 
statements, the Control routine moves the 
entire text for the associated statement to 
the work area, and the adjective code in 
each word is examined for exponentiation at 
this time. Exponentiation requires an 
external reference to one of the library 
exponentiation subroutines. The text word 
that contains an adjective code for 
exponentiation appears as follows: 



The INIT routine performs the required 
initialization for Phase 20. 



ENTRANCE: 



The INIT routine receives con- 



trol from the FORTRAN System Director. 

OPERATION: An indicator is set in the 
communications area to indicate to the 
FORTRAN System Director that Phase 20 is in 
control. The location counter used in the 



| Code | 00 | 000N | 



1 byte 



1 byte 



2 bytes 



where N is any integer constant whose value 
depends upon the required library exponen- 
tiation subroutine. 
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***** A3*** ******* 

* * 
♦INITIALIZATION * 

* (INIT) * 

* CHART HA * 

* * 
***************** 



*****B3********** 

* * 
♦CONTROL ROUTINE* 

* (CONTROL * 

* CHART HB * 

* * 
********.******** 



*****C l********** 

* END * 

* STATEMENT * 

* PROCESSOR *. 

* (PHEND) * 

* CHART HE * 
***************** 



*****C2»* ******** 

* DO * 

* STATEMENT * 
.* PROCESSOR *. 

*(DOtIMPDO.ENDDO* 

* CHART HD * 
***************** 



PROCESSING 
No'oPTI 



ROUTINES 
.MIZAT ION 



*****C4** ******** 

* READ * 

* STATEMENT * 
.* PROCESSOR *. 

* (READ) * 

* CHART HC * 
***************** 



*****C5 ********** 

* STATEMENT * 

* NUMBER * 
.* PROCESSOR * 

* (LABEL) * 

* CHART HF * 
***************** 



*****D1 ********** 

* ARITHMETIC * 

* STATEMENT * 

* PROCESSOR *. 

* (ARITH) * 

* CHART HH * 
***************** 



*****D2** ******** 

* IF * 

* STATEMENT * 
.* PROCESSOR *. 

* (IF) * 

* CHART HJ * 
***************** 



PROCESSING 



ROUTINES 



OPTIMIZATION 



*****D4 ********** 

* CALL * 

* STATEMENT * 
.* PROCESSOR *. 

* (CALL) * 

* CHART HI * 
***************** 



*****D5 ********** 

* I/O LIST * 

* PROCESSOR * 
.* (LIST) * 

* CHART HG * 

* * 
***************** 



*****E3*. ******** 

* OPTIMIZATION * 

* DISPATCH * 

* ROUTINE * 

* (OPTMIZ) * 

* CHART HK * 
***************** 



OPTIMIZATION 



ROUTINES 



*****F2** ******** 

* SUBSCRIPTED * 

* VARIABLE * 

* ROUTINE * 

* (SUBVP) * 
♦CHARTS HM.HN.HO* 
***************** 



*****F3********** 

* INTEGER/REAL * 

* CONVERSION * 

* ROUTINE * 

* (FIXFLT) * 

* CHART HP * 
***************** 



*****F4* ********* 

* CALLING * 

* SEQUENCE * 

* ROUTINE * 

* (CALSEQ) * 

* CHART HL * 
***************** 



*****G1*» ******** 

* OFFSET * 

* LITERAL ADDRESS* 

* GENERATION * 

* ( GENER ) ♦ 

* CHART HR ♦ 
***************** 



*****G2* ***♦♦♦♦** 

♦ CDL ♦ 
♦LITERAL ADDRESS^ 

♦ GENERATION ♦ 

♦ (GENGEN) ♦ 

♦ CHART HS ♦ 
***************** 



*****G3* •**♦♦♦♦♦♦ 

♦ CUMMY ♦ 

♦ VARIABLE ♦ 

♦ PROCESSING ♦ 

♦ (DUMPR) ♦ 

♦ CHART HQ ♦ 
***************** 



*****G4* •♦♦♦♦♦♦♦♦ 

♦ ROUTINE FOR ♦ 
♦MAKING REGISTERS 

♦ AVAILABLE ♦ 

♦ (GETN) ♦ 

♦ CHART HT ♦ 
***************** 



SUBROUTINES 



*****H5 ********** 

♦ FIXFLO ♦ 

♦ CONSTANT AND * 
♦AREA GENERATION^ 

♦ (GENCON) ♦ 

♦ CHART ID ♦ 
***************** 



*****j i ********** 

♦ INPUT ♦ 

♦ BUFFER ♦ 

♦ AVAILABILITY ♦• 

♦ (NIB) ♦ 

♦ CHART HU ♦ 
***************** 



*****J2 ********** 

♦ OUTPUT ♦ 

♦ BUFFER ♦ 
.♦ AVAILABILITY ♦. 

♦ (NOB) ♦ 

♦ CHART HV ♦ 
***************** 



*****J4********** 

♦ BOUND ♦ 

♦ VARIABLE LIST ♦ 
.♦ ENTRANCE ♦. 

♦ (BVLSR) ♦ 

♦ CHART HW ♦ 
***************** 



*****J5 ********** 

♦ INDEX MAPPING ♦ 

♦ TABLE ENTRY ♦ 
.♦ REMOVAL ♦ 

♦ (RMVBVL) ♦ 

♦ CHART HX ♦ 
***************** 



*****K1 ********** 

♦ DETERMINATION ♦ 

♦ OF LITERAL IN ♦ 

♦ SYMBOL LIST ♦. 

♦ (SYMSRC) ♦ 

♦ CHART HY ♦ 
***************** 



*****K2^ ♦♦♦♦♦♦♦♦♦ 

♦REMOVAL OF ALL ♦ 

♦ASSIGNMENTS IN ♦ 

.♦IDX MAPPING TBL^. 

♦ (CLEAR) ♦ 

♦ CHART H2 ♦ 
***************** 



*****K 3* •*****♦♦♦ 

♦ CARD * 

♦ PUNCHING ♦ 
.♦ (PUNCH) ♦. 

♦ CHART IA ♦ 

♦ * 
***************** 



*****K4* ********* 

♦ FUNCTION ♦ 

♦ REFERENCE ♦ 
.♦ PROCESSING ♦. 

♦ (HANDLE) ♦ 

♦ CHART IB ♦ 
***************** 



*****K5 ********** 

♦ ESD-RLD ♦ 

♦ CARDS ♦ 
•* (ESDRLD) ♦ 

♦ CHART IC ♦ 

♦ * 
***************** 



Figure 53. Organization of Phase 20 
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The ESDRLD routine assigns the address 
at which the particular library subroutine 
is located at object time, and then places 
that address in the pointer field of the 
text word* The first encounter of any 
given library subroutine causes text, ESD, 
and RLD records to be generated unless the 
ESD table indicates that this subroutine 
has been used previously. When the entire 
text for the statement under consideration 
is moved to the work area, control is 
passed to the associated routine which 
processes the text. 

If the adjective code in the initial 
text word for a statement does not indicate 
that optimization is to be performed, a 
further check is made of the adjective 
code. Each of these codes causes control 
to be passed to an associated routine that 
may do either of the following: 



ENTRANCE: The READ routine receives con- 
trol from the Control routine. 



OPERATION: 



An 



indicator is set to notify 

the LIST routine that the current I/O list 
is part of a READ statement. The statement 
is put on to the output data set, word by 
word. A check is then made for the END I/O 
list. If it is encountered, the indicator 
is set off. 



EXIT: 



The READ routine exits to the CON- 



TROL routine to process the next statement. 

SUBROUTINES CALLED: During execution the 
READ routine references the ESDRLD routine. 



DO, IMPDO, and ENDDO Routines: Chart HP 



1. Generate certain information used by 
the subscript optimization process 

(e.g., a DO variable is placed on the 
bound variable list) . 

2. Refine the text to increase the effi- 
ciency of Phase 25 in producing 
machine language instructions. 

Upon completion of its processing, the 
referenced routine either returns control 
to the Control routine to move the text to 
the current output buffer area, or includes 
the text in its own processing. Subroutine 
NOB is requested to make an output buffer 
area available for the next word, as each 
word is placed in the output buffer area. 

Any adjective codes not previously men- 
tioned in this discussion cause the Control 
routine to move the text to the current 
output buffer area. 

EXIT: Control is passed from the Control 
routine to one of the following routines 
depending on the adjective code: 

1. LIST routine. 

2. ARITH routine. 

3. IF routine. 

4. CALL routine. 

ROUTINES CALLED: During execution the Con- 
trol routine references the READ, DO, 
ENDDO, and PHEND routines, and subroutines 
NIB and NOB. 



READ Routine: Chart HC 



The READ routine indicates that the I/O 
list is part of a READ statement. If the 
I/O list references items that are external 
to the program being compiled, text, ESD 
and RLD records are put onto an output data 
set. 



The DO, IMPDO, and ENDDO routines per- 
form DO statement processing. The process- 
ing involved in each of the three routines 
is limited. 

CONSIDERATION: Each iteration of a DO loop 
increments the DO variable and causes that 
DO variable to become bound. 



DO Routine 

The DO routine processes a DO statement. 

ENTRANCE: The DO routine receives control 
from the Control routine. 

OPERATION: Upon entry to the DO routine, a 
DO loop indicator is turned on. (This 
indicator, upon interrogation within SUBVP, 
indicates that the current statement is 
within a DO loop.)' To indicate any nested 
DO loops, the count of the current number 
of DO loops is incremented by 1. A list of 
subscript expressions within the DO loop 
(DO list) is cleared. 

The DO variable of the current DO state- 
ment is accessed and control is given to 
subroutine BVLSR to place the DO variable 
on the bound variable list. Because of 
this new entry on the bound variable list, 
subroutine RMVBVL is used to remove reg- 
ister assignments for subscript expressions 
which utilize that DO variable in the index 
mapping table. 



The DO routine exits to the Control 



EXIT: 
routine. 



SUBROUTINES CALLED: During execution the 
DO routine references subroutines BVLSR and 
RMVBVL. 



Phase 20 
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IMPDO Routine 



PHEND Routine: Chart HE 



The IMPDO routine processes the DO vari- 
able of an implied DO statement. 



The PHEND routine completes the process- 
ing performed by Phase 20. 



ENTRANCE: 



The IMPDO routine receives con- 



trol from the LIST or Control routine . 



OPERATION: Upon entry to the IMPDO rou- 
tine , the DO loop indicator is turned on; 
the count of the current number of DO loops 
is incremented by 1; and the DO list is 
cleared. 

Subroutine BVLSR places the DO variable 
of an implied DO statement on the bound 
variable list, and subroutine RMVBVL 
removes register assignments from the index 
mapping table for subscript expressions 
that utilize the DO variable. 



EXIT: 



The IMPDO routine exits to the 



OPTMIZ or Control routine. 



SUBROUTINES CALLED: During execution the 
IMPDO routine references subroutines BVLSR 



and RMVBVL. 



ENTRANCE: The PHEND routine receives con- 
trol from the Control routine , when the 
adjective code for an END statement is 
encountered. 

CONSIDERATION: The END statement is not to 
be confused with the end mark indicator , 
which merely indicates the conclusion of a 
given statement. 

OPERATION: When the END statement is 
reached, the contents of the text, ESD, and 
RLD buffers are put onto an output data 
set, and the END statement word is moved to 
the output buffer. Additional text beyond 
the END statement (due to an error condi- 
tion in the END statement) is also moved to 
the output buffer. Miscellaneous closing 
procedures are performed, including a 
branch into subroutine NOB to write the 
contents of the output buffer on the work 
tape. Upon return to the PHEND routine, 
the output work tapes are rewound. The 
communications area is updated according to 
the contents of the location counter whose 
value has changed since Phase 20 assigned 
addresses to generated literals. 



ENDDO Routine 



The ENDDO routine ensures that the end 
of a DO loop is recognized. 



EXIT: If the error flag in the communi- 
cations area is set off (indicating that 
any errors are minor) , the PHEND routine 
passes control to Phase 25. If the error 
flag in the communications area is set on, 
PHEND exits according to the following 
conditions: 



ENTRANCE : The ENDDO routine receives con- 
trol from the Control routine. 



CONSIDERATION: The 



word containing an 
(indicating the end of 



ENDDO adjective code 

a DO loop) may be followed by an end mark. 
If it is, the next statement is accessed. 
If ' it is not followed by an end mark, the 
Control routine would (without ENDDO 
processing) continue the scan for the end 
mark, and an entire statement might not be 
processed. 



OPERATION: The ENDDO routine decrements NOB, and PUNCH, 
the count of the number of DO loops encoun- 
tered. If the count equals zero, the DO 
loop indicator is turned off. 



1. If the GOGO bit in the communications 
area is set (indicating compilation of 
the object program is to continue 
regardless of the presence of errors) , 
control is passed to Phase 25. 

2. If the GOGO bit in the communications 
area is not set (implying that compi- 
lation of the object program is not to 
continue) , control is passed to Phase 
30. 

SUBROUTINES CALLED : During execution the 
PHEND routine references subroutines NIB, 



ENDDO is interpreted as an end mark and 
returns to a point in the Control routine 
at which it is assumed an end mark had been 
found . 

EXIT: The ENDDO routine passes control 
back to the Control routine. 



LABEL Routine: Chart HF 



The LABEL routine removes all current 
register assignments from subscript compu- 
tations for pertinent referenced statement 
numbers . 
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ENTRANCE : The LABEL routine receives con- 
trol from the Control routine when a state- 
ment number is being processed. 

CONSIDERATION; A statement number ref- 
erenced by other statements represents a 
point of definition, unless it is either 
the statement number for a FORMAT statement 
or only referenced by a DO statement. 

OPERATION; The LABEL routine determines if 
a point of definition exists by checking 
the status of appropriate bits in the Usage 
field of the overflow table entry for the 
statement number (see the introduction to 
Phase 10). If a point of definition 
exists , subroutine CLEAR sets the status of 
all entries in the index mapping table to 
unassigned; all registers are then availa- 
ble. 

EXIT; The LABEL routine exits to the 
Control routine to continue processing the 
statement referenced by the statement num- 
ber. 

SUBROUTINE CALLED; During execution the 
LABEL routine references subroutine CLEAR. 



for 'Integer. 1 If "Integer 1 is found r the 
corresponding integer variable is accessed 
and control is passed to subroutine BVLSR 
to place that variable on the bound varia- 
ble list. 

When the end mark indicator is reached , 
the OPTMIZ routine optimizes the I/O list 
substatement. When control is returned to 
the LIST routine, all registers assigned to 
subscript expressions with bound variables 
are made available by calling subroutine 
RMVBVL. 

When the READ statement indicator is 
off, the List routine detects that the 
current I/O list is not associated with a 
READ statement. Control is passed to OPT- 
MIZ to optimize the I/O list. Return from 
OPTMIZ, in this case, causes a direct exit 
from the LIST routine. 

EXIT; The LIST routine exits to the Con- 
trol routine to process the next statement. 



ROUTINES CALLED 



During execution the LIST 
references the OPTMIZ routine and 



routine 

subroutines BVLSR and RMVBVL. 



LIST Routine; Chart EG 



ARITH Routine; Chart HH 



The LIST routine processes the I/O 
substatement of a READ statement. 



list The ARITH routine optimizes an arithmet- 
ic statement. 



ENTRANCE ; The LIST routine receives con- 
trol from the Control routine when an I/O 
list substatement is detected. 

CONSIDERATIONS; An I/O list substatement 
is part of a statement; however, it is 
treated within text as if it were a state- 
ment. 

When an I/O operation is caused by a 
READ statement, the value of the variables 
in the I/O list substatement changes; 
(i.e., they become bound). When a READ 
statement is encountered by the Control 
routine, control is passed to the READ 
routine to set a READ statement indicator 
for the LIST routine. In this way, the 
LIST routine knows that the current I/O 
list substatement is associated with a READ 
statement . 

OPERATION; If the READ statement indicator 
is on, it is then set off in preparation 
for the processing of subsequent I/O list 
substatements . During the processing which 
follows, the LIST routine searches for 
integer variables that become bound as a 
result of the read that occurs because of 
the READ statement. The LIST routine, as 
it processes an I/O list substatement with- 
in a READ statement, checks the mode code 



ENTRANCE; The ARITH routine receives con- 
trol from the Control routine. 

CONSIDERATION; The symbol preceding an 
equal sign in an arithmetic statement (the 
initial symbol) changes value during the 
execution of the object program. If this 
symbol is an integer variable, it is a 
bound variable. Function arguments may 
also be bound variables. 

OPERATION; The ARITH routine accesses and 
examines a text word for a function ref- 
erence. If such a reference is found, the 
ARITH routine passes control to subroutine 
HANDLE, which sets an indicator. This 
indicator is examined by the ARITH routine 
after optimization to determine if a func- 
tion is referenced in the arithmetic state- 
ment and to set the exit from ARITH, 
accordingly. HANDLE also places any func- 
tion argument that is an integer variable 
on the bound variable list. 

If no function reference is found by the 
ARITH routine, the text word is checked for 
an operation code of "Store Integer." When 
this code is present, subroutine BVLSR 
places the associated integer variable (the 
initial symbol of the arithmetic statement) 
on the bound variable list. 
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When the end mark for the statement is 
encountered , the OPTMIZ routine is used to 
optimize the statement. The point of 
return from the OPTMIZ routine is used to 
check the status of the indicator set by 
HANDLE. If this indicator is on, control 
is passed to the CALL routine. At this 
time, a variable which is both in COMMON 
and part of a subscript expression within 
the index mapping table causes that sub- 
script expression to be deleted from the 
index mapping table. 

Regardless of the indicator setting, 
subroutine RMVBVL is used to make available 
those registers assigned to subscript 
expressions with bound variables. 

EXIT: The ARITH routine exits either to 
the CALL routine as a result of the indica- 
tor set by HANDLE being set on or to the 
Control routine to process the next state- 
ment. 

ROUTINES CALLED: During execution, the 
ARITH routine references the HANDLE and 
OPTMIZ routines and subroutines BVLSR and 
RMVBVL. 



CALL Routine: Chart HI 

The CALL routine causes optimization 
a CALL statement. 



of 



ENTRANCE : 



The 



CALL routine receives con- 
trol from the Control routine. It is also 
entered at a midpoint from the ARITH and IF 
routines when a function CALL is part of an 
arithmetic or IF statement. 

CONSIDERATION: Integer variables which are 
arguments in a CALL statement or are locat- 
ed in COMMON, may become bound as the 
result of a subprogram execution. 

OPERATION: The mode code of each parameter 
is examined. If an integer type code is 
found, subroutine BVLSR places the corres- 
ponding integer variable on the bound vari- 
able list. 

When the end mark indicator is encoun- 
tered, the OPTMIZ routine optimizes the 
CALL statement. When control is returned 
to any CALL routine, the variable which is 
both in COMMON and part of a subscript 
expression within the index mapping table 
causes that subscript expression to be 
deleted from the index mapping table. 

Subroutine RMVBVL then removes all reg- 
ister assignments in the index mapping 
table from those subscript expressions con- 
taining bound variables. 



EXIT: The CALL routine exits to the Con- 
trol routine to begin processing the next 
statement. 



ROUTINES CALLED: During execution, the 
CALL routine references the OPTMIZ routine 
and subroutines BVLSR and RMVBVL. 



IF Routine: Chart HJ 

The IF routine optimizes the arithmetic 
expression of an IF statement. 



ENTRANCE: The IF routine receives control 
from the Control routine. 



CONSIDERATION: 



The 



arithmetic expression 
of the IF statement may contain a function 
reference and, therefore, function argu- 
ments which may be bound variables. 

OPERATION: The IF routine accesses and 
examines a text word for a function ref- 
erence. If such a reference is found, the 
IF routine passes control to subroutine 
HANDLE which sets an indicator. This indi- 
cator is examined by the IF routine, after 
optimization, to determine if a function is 
referenced in the IF statement. HANDLE 
also places any function argument that is 
an integer variable on the bound variable 
list. 

The IF routine processes the IF state- 
ment text until it encounters an IF forcing 
adjective code (set in Phase 15) denoting 
the end of the arithmetic expression or an 
end of statement indicator. When this code 
is encountered, the OPTMIZ routine is used 
to optimize the arithmetic expression. 

The point of return from the OPTMIZ 
routine is used to check the status of the 
indicator set by HANDLE. If this indicator 
is on, it is turned off and control is 
passed to a point within the CALL routine. 
At this time, a variable which is both in 
COMMON and part of a subscript expression 
within the index mapping table causes that 
subscript expression to be deleted from the 
index mapping table. 

EXIT: The IF routine exits either to a 
point within the CALL routine as a result 
of the indicator set by HANDLE being set 
on, or to the Control routine to process 
the statement numbers in the IF statement. 



ROUTINE CALLED: 



routine 
subroutine HANDLE. 



During execution, the IF 

references the OPTMIZ routine and 
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OPTMIZ Routine: Chart HK 



The OPTMIZ routine is a dispatch routine 
for further processing of statements which 
are to be optimized. 



ROUTINES CALLED: During execution the OPT- 
MIZ routine references the CALSEQ, FIXFLO, 
and SUBVP routines and subroutine NOB, 



CALSEQ Routine: Chart HL 



ENTRANCE : OPTMIZ receives control from 
LIST, ARITH, CALL, and IF routines when 
optimization is required. 



OPERATION: For statements which are to be 
optimized, the OPTMIZ routine scans the 
associated text (which is in the work area) 
for specific adjective codes. These adjec- 
tive codes indicate various processing as 
follows: 

1. The adjective code for external func- 
tion and arithmetic statement function 
CALL causes control to be given to the 
CALSEQ routine to perform processing 
connected with the argument list. 

2. The adjective code for IFIX, FLOAT, 
and DFLOAT causes control to be given 
to the FIXFLO routine to initialize an 
area and a constant to be used in the 
conversion between real and integer 
quantities. 

3. The adjective code for a subscripted 
variable causes control to be given to 
subroutine SUBVP to perform optimiza- 
tion with respect to any subscript 
expressions. 

4. The adjective code for an implied DO 
causes control to be given to the 
IMPDO routine to process the DO varia- 
ble of the implied DO. 

5. The adjective code for an end DO 
causes control to be given to the ENDO 
routine to ensure that the end of a DO 
loop is recognized. 

In all three cases control is returned 
to the OPTMIZ routine to complete the 
processing of the statement. 

An end mark indicator causes the end 
mark text word to be moved to a current 
output buffer area. Control is passed to 
subroutine NOB to assure the availability 
of an output buffer area for the next 
output word. Control is then returned to 
the routine that referenced the OPTMIZ 
routine. 

If the adjective code does not indicate 
any of the preceding conditions, the text 
word is moved to the current output buffer 
area. Control is passed to subroutine NOB 
to assure the availability of an output 
buffer area for the next output word. The 
text scan is then continued. 



The CALSEQ routine assigns addresses to 
the argument list entries and causes the 
relevant ESD, RLD, and text information to 
be entered on the respective cards. 

ENTRANCE: The CALSEQ routine is entered 
from the OPTMIZ routine. 

CONSIDERATION: The arguments of a CALL 
statement are accessed by a program exter- 
nal reference. Therefore, RLD cards as 
well as text cards are required. 



OPERATION: 



If this is a 
the CALL text 



arguments 

onto the output data set, and a 

the OPTMIZ routine is made. 



CALL with no 
word is placed 
return to 



Each argument in the argument list is 
accessed and is entered onto a text card 
with an object time address. If the argu- 
ment is subscripted, the Phase 20 subscript 
processing is accomplished by subroutine 
SUBVP. For subscript variables used as 
arguments, a zero address is entered into 
the text cards. 

RLD cards are punched for non- 
subscripted arguments. An argument in 
COMMON is assigned an external symbol iden- 
tification (ESID) of 02. An argument not 
in COMMON is assigned an ESID of 01. 

An indication of the last argument in 
the argument list is made, unless that 
argument is subscripted. For a subscripted 
argument the indication is made at object 
time, because the subscript calculation at 
object time would destroy a compile-time 
indicator. 

EXIT: The CALSEQ routine returns control 
to the OPTMIZ routine. 



SUBROUTINES CALLED : 



Subroutine 



CALSEQ 



calls the SUBVP 
CALTXT and CALRLD. 



routine, and subroutines 



EXIT: 



The OPTMIZ routine returns control 



to the calling routine. 



Subroutine SUBVP: Charts HM, HN, HO 



The SUBVP routine optimizes a subscript 
expression. 

ENTRANCE: The SUBVP routine receives con- 
trol from the OPTMIZ routine or subroutine 

CALSEQ. 
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CONSIDERATION; The subscript text input 
and output are discussed in the introduc- 
tion to Phase 20. 



OPERATION: The SUBVP routine initially 
determines if the current subscript expres- 
sion is constant. A constant subscript 
expression does not require a register 
assignment. 

For other than a constant subscript 
expression, a register assignment is made 
in the index mapping table. If no register 
is available, control is given to the GETN 
routine to free the register assigned to 
the subscript expression with the least 
dimension. 

At this point in the process, when a 
dummy subscripted variable is encountered, 
control is given to subroutine DUMPR to 
process that dummy variable. If the sub- 
scripted variable is not a dummy, then 
subsequent processing of the subscript 
expression depends on whether that expres- 
sion is constant or has already been optim- 
ized at a previous encounter. Either of 
the two preceding conditions causes the 
generation of subscript text output with an 
adjective code of AOP, unless this is the 
first occurrence of the expression within a 
DO loop. If it is, the expression is left 
in SAOP form. 

If the subscript expression is not con- 
stant or has not been previously optimized, 
either subscript text output with an adjec- 
tive code of SAOP or subsequent text output 
with an adjective code of XOP is generated. 
The form of generated text depends on 
whether or not a literal must be produced 
for the offset portion of the array dis- 
placement . 

EXIT; The SUBVP routine returns control to 
the routine that referenced it. 

SUBROUTINES CALLED; During execution, the 
SUBVP routine references the GETN and DUMPR 
routines and subroutines GENER, GENGEN, and 
NOB. 



FIXFLO Routine: Chart HP 



The FIXFLO routine assigns an area and a 
constant to be used by the library subrou- 
tines IFIX and IFLOAT. 

ENTRANCE : The FIXFLO routine receives con- 
trol from the OPTMIZ routine whenever a 
FUNCTION adjective code is encountered 
within the text of the statement to be 
optimized. 



OPERATION: For a call either to IFIX or 
IFLOAT, a text word containing the address 
of a constant and a work area is generated. 
If the constant has previously been 
assigned an address, that address is used. 
If the work area has been generated pre- 
viously, the address of that area is used. 
Subroutine GENCON moves the constant or the 
work area definition to the text card area 
and puts a card image on an output data 
set, if necessary. 



EXIT: The FIXFLO routine exits to the 
OPTMIZ routine. 



SUBROUTINES CALLED : 



The FIXFLO routine 



references subroutines GENCON and NOB. 



DUMPR Routine: Chart HQ 



The DUMPR routine processes subscripted 
dummy variables. 



ENTRANCE: 



The DUMPR routine receives con- 



trol from subroutine SUBVP. 

CONSIDERATION: No more than three dummy 
variables are allowed in the index mapping 
table at any given time. 

OPERATION: The DUMPR routine determines if 
the dummy variable in text is currently 
assigned a register in the index mapping 
table. If one is assigned, it can be used 
for subsequent processing by subroutine 
DUMPR. 

If no register has previously been 
assigned to the dummy variable, one must 
now be assigned. If three dummy variables 
are already assigned registers in the index 
mapping table, one of these registers is 
reassigned to the current dummy subscripted 
variable. 

However, if less than three dummy varia- 
bles are assigned registers in the index 
mapping table, the first unassigned reg- 
ister (if one exists) is assigned to the 
current dummy variable. The entry with the 
least dimension is spilled (made available) 
if all registers were previously assigned. 

After a register is assigned to the 
current dummy variable, a "load base 
register" instruction is generated and 
placed in the output area. This instruc- 
tion precedes the text for the dummy sub- 
scripted variable. The register number 
used for the instruction is placed in text. 

EXIT: The DUMPR routine returns control to 
the SUBVP routine. 
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Subroutines GENER, GENGEN; Chart: HR 



Subroutine GEN: Chart HS 



Subroutine GENER 



ENTRANCE; Subroutine GEN receives control 
from subroutine GENER or GENGEN. 



Subroutine GENER provides linkage to 
subroutine GEN for the generation of offset 
literals . 



ENTRANCE ; Subroutine GENER receives con- 
trol from the SUBVP routine. 



CONSIDERATION: When subroutine SUBVP 
encounters a value outside the range of 
through 4095 (the largest number physically 
used as an offset) by the addition of the 
offset (calculated in Phase 10) to the 
displacement (determined in Phase 15) , sub- 
routine GENER is called to generate an 
offset literal. The adjective code is 
changed from SAOP to XOP or, in the case of 
an AOP, indicators are set to indicate to 
Phase 25 that an offset literal is generat- 
ed and replaces the offset in text. 



OPERATION: Upon entry into subroutine 
GENER, the offset to be generated as a 
literal is passed as a parameter to subrou- 
tine GEN, which generates the literal. 

GENER modifies the text to indicate that 
an offset literal is generated and to 
supply the address of that literal. 



OPERATION: Subroutine GEN determines if 
the passed literal is already in the symbol 
list. Presence of that literal in the 
table causes subroutine SYMSRC to return 
the address of that literal to subroutine 
GEN. 

If the literal is not in the symbol 
list, GEN must assign the address of the 
literal using the location counter and 
produce the corresponding text card output. 
Subroutine GEN uses the current contents of 
the location counter as the address of the 
offset literal. This address, along with 
the offset literal, is placed in the source 
symbol table and the symbol list. 

GENER moves the offset literal to the 
text card area. If the area is full, PUNCH 
is accessed. 



EXIT: 



Subroutine GEN returns control to 



the calling routine. 

SUBROUTINES CALLED: During execution, sub- 
routine GEN references subroutines SYMSRC 
and PUNCH. 



GETN Routine: Chart HT 



EXIT: 



Subroutine GENER returns control to 



the SUBVP routine. 



The GETN routine makes a register avai- 
lable. 



SUBROUTINE CALLED: During execution GENER ENTRANCE: GETN receives control from the 



references subroutine GEN. 



SUBVP routine. 



Subroutine GENGEN 



Subroutine GENGEN provides linkage to 
subroutine GEN for the generation of CDL 
literals . 



ENTRANCE: 



Subroutine GENGEN receives con- 



trol from the SUBVP routine. 

OPERATION: Upon entry in subroutine GEN- 
GEN, the CDL portion to be generated as a 
literal is passed as a parameter to subrou- 
tine GEN, which generates the literal. 



CONSIDERATION: When subroutine SUBVP pre- 
pares to assign a register to the current 
subscript expression, there may be no reg- 
isters available. Control is then passed 
to subroutine GETN which accesses a reg- 
ister. 

OPERATION: Each entry in the index mapping 
table is examined until an entry with the 
least dimension is found. The entry is 
deleted and the corresponding register is 
made available. The available register 
number is then placed in a specified field 
that can be referenced by subroutine SUBVP. 



EXIT: 



GETN 



returns control to subroutine 

SUBVP at the point at which it is called. 



EXIT: Subroutine GENGEN returns control to The two exception exits in GETN are: 
subroutine SUBVp. 



SUBROUTINES CALLED: During execution, sub- 
routine GENGEN references subroutine GEN. 



1. To EXRTN within SUBVP if the Mode/Type 
code field indicates a constant sub- 
script and a generated literal. 



Phase 20 
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To CLOSE within the PHEND routine if 
there are no entries for subscript 
expressions in the index mapping 
table. 



Note: Exception exit 1 is taken after a 
register is found and its 



number is 
returned oy a location, out before the 
index mapping table entry is deleted. 



returned by a location , but 



Subroutine BVLSR: Chart HW 



Subroutine BVLSR enters bound variables 
on the bound variable list. 



ENTRANCE: Subroutine BVLSR receives con- 
trol from the DO, IMPDO, LIST, ARITH, and 
CALL routines. 



Subroutine NIB: Chart HU 



Subroutine NIB updates a current input 
buffer pointer. 



ENTRANCE : Subroutine NIB receives control 
from the Control, READ, and PHEND routines. 



OPERATION: If the bound variable is not 
currently on the bound variable list, it is 
now entered. (See the introduction to 
Phase 20.) 



EXIT: Subroutine BVLSR returns control to 
the routine which referenced it. 



CONSIDERATION: There are two input buf- 
fers. 



Subroutine RMVBVL: Chart HX 



OPERATION: A buffer pointer is updated 
until the end of the current buffer is 
reached. The next buffer is then accessed 
for processing purposes and the first buf- 
fer is refilled. If an end of tape indica- 
tor is detected during the read, an error 
indicator is set. This indicator is exam- 
ined within NIB, immediately before any 
read is executed. 



EXIT: Subroutine NIB 
Control routine. 



returns control to 
the Control routine. An exception exit to 
the CLOSE routine is made if there is an 
error in the previous read. 



Subroutine NOB: Chart HV 



Subroutine NOB keeps a buffer area avai- 
lable for output. 



Subroutine RMVBVL removes register 
assignments from the index mapping table 
for subscript expressions containing bound 
variables. 



ENTRANCE: Subroutine RMVBVL receives con- 
trol from the DO, IMPDO, LIST, ARITH, and 



CALL routines. 



OPERATION: If the bound variable list is 
there is no processing and an 
is taken. If the bound 



empty, 

immediate exit 
variable list is not empty, the status of 
each index mapping table entry is examined. 
If the associated register is assigned to a 
subscript expression, that expression is 
checked against the bound variable list. 
If a bound variable is in the expression, 
the status of the associated index mapping 
table entry is set to unassigned. The exit 
occurs after the entire index mapping table 
is processed. 

EXIT: Subroutine RMVBVL returns control to 



ENTRANCE: 



Subroutine NOB receives control the routine which referenced it. 



from the Control, PHEND, OPTMIZ, INIT, AOP, 
FIXFLO, READ, SUBVP, and DUMPR routines and 
subroutine CALSEQ. 

CONSIDERATION: There are two output buf- Subroutine SYMSRC: Chart HY 
fers. 



OPERATION: The output buffer pointer is 
updated until the end of the current buffer 
is reached. At that time, the alternate 
buffer is made current and the full buffer 
is written on the work tape. 



Subroutine SYMSRC determines if a liter- 
al is in the symbol list. 



ENTRANCE: 



Subroutine SYMSRC receives con- 



trol from subroutine GEN. 



EXIT: Subroutine NOB returns control to CONSIDERATION: The format of the symbol 



the routine that referenced it. 



list is as follows: 
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j literal j address j 

| literal j address j 

Y + ^ 

| literal | address | 

L J. J 



EXIT: 



Subroutine PUNCH returns either to 



the PHEND routine or subroutine GENER. 



Subroutine HANDLE: Chart IB 



The address of this table is indicated 
in the FORTRAN communications area. 

OPERATION; If the literal is in the symbol 
list, the address of the literal is 
returned to the subroutine which referenced 
it. If the literal is not in the table , a 
zero function is returned. 

EXIT: Subroutine SYMSRC returns control to 
subroutine GEN. 



Subroutine HANDLE processes function 
references in an arithmetic statement or in 
an arithmetic expression of an IF state- 
ment. 



ENTRANCE: 



Subroutine HANDLE receives con- 



trol from either the ARITH or IF routine. 

CONSIDERATION: Integer variables which are 
arguments in a function call or are located 
in COMMON , may become bound as the result 
of a subprogram execution. 



Subroutine CLEAR: Chart HZ 



Subroutine CLEAR removes all entries 
from the index mapping table at a point of 
definition to insure the availability of 
all registers used for subscript expres- 
sions . 

ENTRANCE : Subroutine CLEAR receives con- 
trol from the LABEL routine. 

CONSIDERATION: The format of the index 
mapping table is described in the introduc- 
tion to Phase 20 (see Figure 20.1) . 

OPERATION: The status of each entry in the 
index mapping table is examined. If the 
status is unassigned (i.e., the register is 
available) , the next entry is accessed. If 
the status is assigned, it is changed to 
indicate that the register is now availa- 
ble. The next entry is then accessed. 



OPERATION: Subroutine HANDLE sets an indi- 
cator for the ARITH or IF routine to 
indicate that a function call occurred 
within the statement being processed. The 
on condition of this indicator later causes 
an exit to be taken from the calling 
routines to a location within the CALL 
routine to initiate a search of the index 
mapping table for variables in COMMON. 

HANDLE places any integer parameters of 
the function call on the bound variable 
list. 

EXIT: Subroutine HANDLE returns control to 
the routine that referenced it. 

SUBROUTINE CALLED : During execution, sub- 
routine HANDLE references subroutine BVLSR. 



Subroutine ESDRLD/CALRLD/CALTXT: Chart IC 



EXIT: 



Subroutine CLEAR returns to the 



LABEL routine. 



This subroutine generates ESD, RLD, and 
text cards during. Phase 20, whenever neces- 
sary. 



Subroutine PUNCH: Chart IA 



Subroutine PUNCH processes a card buf- 
fer. 

ENTRANCE : Subroutine PUNCH receives con- 
trol from the PHEND routine and subroutine 
GENER. 

OPERATION: A Supervisor Call instruction 
is directed to the FORTRAN System Director 
to have the contents of the card buffer 
punched, if the DECK option is specified. 
If the NODECK option is specified, no cards 
are punched. If GO is requested, the 
contents of the buffer are written on the 
GO tape. 



ENTRANCE: Subroutine ESDLRD/CALRLD/CALTXT 
is entered at ESDRLD whenever a reference 
to an external symbol is made. Subroutine 
ESDRLD/CALRLD/CALTXT is entered at CALRLD 
whenever an argument list is processed. 
Subroutine ESDRLD/CALRLD/CALTXT is entered 
at CALTXT whenever text information is to 
be entered for an argument list. 



CONSIDERATION: 



References to 
in the OPTMIZ 



an external 

symbol occur in the OPTMIZ routine for 
references to IBCOM, IBERR, and CGOTO, and 
in the ARITH routine for references to the 
various exponentiation routines. 

The ESD table contains the address of 
each external symbol and an area into which 
the address of the respective routine will 
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be loaded (the address constant) . This 
field is initially zero. The ESD table has 
the following format: 



address 



symbol 



I- 

I- 



| a (IBCOM) 
| a (FRXPI) 
| a (CGOTO) 






h 



| a (FRXPR) 

-+ 

j a (FIXPI) 

| a (FDXPI) 
| a (FDXPD) 



^ 

-i 



H 

4 

4 



| a (IBERR) 



H 






2 bytes 



2 bytes 



Subroutine GENCON; Chart ID 



Subroutine GENCON moves the constant or 
the work area definition from the FIXFLO 
routine into the text card area. 



ENTRANCE: 



Subroutine GENCON receives con- 



trol from subroutine FIXFLO. 



OPERATION: The text card area is examined. 



If a double word will not fit in that area, 

a text card is punched using subroutine 

PUNCH. The constant or the 

definition is then placed at the 

of the text card area. A 

determine if the text card 

If it is full a card is punched; 

card is punched. 



work area 
beginning 
test is made to 
area is full. 

if not, no 



OPERATION: When subroutine 
ESDRLD/CALRLD/CALTXT is entered at ESDRLD, 
the ESD table is checked to determine if 
the symbol has been referenced. If not, an 
address constant address is assigned to the 
symbol and entered into the ESD table. 
ESD, text, and RLD entries in their respec- 
tive areas are then set up. If any card 
areas are full, subroutine ESDPUN is ref- 
erenced to place the contents of the full 
areas on an output data set. 

When subroutine ESDRLD/CALRLD/CALTXT is 
entered at entry point CALRLD, an RLD entry 
is made in the current RLD area. If both 
RLD areas are not full, a return is made. 
If the RLD areas are full, the text, ESD, 
and full RLD card areas are placed on an 
output data set by subroutine ESDpUN. 

When subroutine ESDRLD/CALRLD/CALTXT is 
entered at entry point CALTXT, a text card 
entry is made. If this entry does not fill 
the text card area, a return is made. If 
the text card area is full, the text card 
area along with the ESD area and any RLD 
area that is full are placed on an output 
data set . 



EXIT: 



Subroutine 



ESDRLD/CALRLD/CALTXT 



returns control to the calling routine. 

SUBROUTI NES CALLED : During execution sub- 
routine ESDRLD/CALRLD/CALTXT calls subrou- 
tine ESDPUN. 



EXIT: 
FIXFLO. 



Subroutine GENCON passes control to 



SUBROUTINE CALLED: During execution, sub- 
routine GENCON references subroutine PUNCH. 



Subroutine ESDPUN: Chart IE 



Subroutine ESDPUN performs the card out- 
put for Phase 20. 



ENTRANCE: 



Subroutine ESDPUN is entered 



from subroutine ESDRLD/CALRLD/CALTXT. 



CONSIDERATION 



There is a count in the 

communications area of the number 



FORTRAN 

of cards punched. 

OPERATION: The current card number and 
card image are moved into an available card 
buffer. If no source errors exist and the 
DECK option is specified, a card is 
punched; or if a GO option is specified, a 
card image is placed onto the GO tape. 
However, if source errors do exist, neither 
the GO nor DECK option are checked and an 
immediate return is made. 

EXIT: Subroutine ESDPUN returns control to 
the subroutine that referenced it. 
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***** FROM FORTRAN 
*07 * SYSTEM DIRECTOR 
* E3* 



*****B 3*** ******* 



INITIALIZE 
PHASE 20 



***************** 



*****C3********** 

* OPTIMIZE * 

* SUESCRIPT * 

* COMPUTATIONS * 

* WHEREVER * 

* POSSIELE * 
***************** 



*****D3********** 

* ALLOCATE * 

* REGISTER'S * 

* FOR USE BY * 

* THE OEJECT * 

* PROGRAM * 
***************** 



******E3*** ******** 

PUNCH ESD AND 

* RLD CARDS FOR * 

EXPONENTIATION 

* AND FOR I/O * 

OPERATIONS 

************* 



******F 3**** ******* 

PUNCH TEXT 

* CARDS FOR * 

GENERATED 

* LITERALS * 

************* 



• X. 

G3 *• 

.* HAVE *. 

•♦ERRORS BEEN*. YES 

♦FOUND THAT MUST*.... 

*BE PROCESS-* 

*. ED .* 



****G4********* 
* PHASE 30 VIA * 
.X* FORTRAN * 
*SYSTEM DIRECTOR* 

*************** 



NO 



****H3********* 

* PHASE 25 VIA * 

* FORTRAN * 
*SYSTEM DIRECTOR* 

*************** 



Chart 07. Phase 20 Overall Logic Diagram 
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***** FROM FORTRAN 
*HA * SYSTEM DIRECTOR 
* E3* 



*****B3********** 

* SET BIT IN * 
^COMMUNICATIONS * 
*AREA AS NOTIFI-* 
*CATION THT PHSE* 

* 20 IS IN CTRL * 
***************** 



*****C3********** 

* PERFORM * 
^INITIALIZATION * 

* RELATED TO * 

* THE LOCATION * 

* CENTER * 
***************** 



*****D3********** 
*OPEN DATA SETS,* 

* PRIME INPUT * 

* BUFFER. INIT- * 

* IALIZE FIELDS * 

* AND WRK AREA * 
***************** 



*****E3********** 

* INITIALIZE * 

* INDEX MAPPING * 

* TAELE AND * 
*BOUND VARIABLE * 

* LIST * 
********** ******* 



*****F3********** 

* PERFORM * 
♦INITIALIZATION * 

* IN CONNECTION * 

* WITH ESD.RLD, * 
*AND TEXT CARDS * 
***************** 



X 

***** 

*HB * 

* A3* 

* * 



Chart HA. INIT Routine 
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***** 

*HB * 

* A3* 

* * 



**** 

* * 

* B2 * 

* * 
**** 



**** 

* * 

* A3 *. 

* * 
**** 



***** A3 ********** 

* * 

* ACCESS * 
K* TEXT * 

* WORD * 

* * 
***************** 



*****C 1 ********** 

* * 

* PROCESS * 

*EXPONENTIATION * 

* * 
***************** 



*****B2**** ****** 

* * 

* MOVE * 

• X* TEXT WORD TO *X . 

* WORK AREA * 

* * 
***************** 



• X. 

C2 *. 

.* DOES *. 

YES .* ADJ CODE * 

....*. AT THIS WORD 

*. INDICATE .* 

*. EXP .* 



B3 *. 

.* DOES *• 
YES .* ADJ. CODE 
....*. INDICATE 

*.OPTIMIZA-. 
*.TION .* 



**«* 

* * N 

* B2 *X... 

* * 
**** 



* NO 



D2 *. 
• * * • 

ENDMARK 

.* 
*• • * 
*• • * 
* YES 



***************** 
*ARITH • HKB3* 



*CALL 
* • • • • 

*IF 



HIB3* 
•••••* 

HIB3* 



B4 *. 

.* STMNT *• 

• *NO. ENDDO, * 

•X*. IMPLIED DO, 

*.READ» DO..* 

*. END .* 

*. .* 

* YES 



SEE NOTE X 

******************* 
*DO.ENDO». * 

*IMPDO HD * 



*END 



HEB3 



*STMT NO. HFB3 * 
******************* 



*****D 4** ******** 

* * 

* MOVE * 
•X* TEXT WORD TO *X. 

* OUTPUT BUFFER * 

* * 
***************** 



* ****E4 ******** ** 
*NOB HVB3* 

*—«_*_*—*_*._*_*_* 

* WRITE OUTPUT * 

* BUFFER IF * 

* NECESSARY * 
***************** 



F4 *. 
.* *. **** 

*. YES * * 
END MARK .*....X* A3 * 
.* PUT OUT * 
*. .* END MARK** 
*. .* 



END - EXIT FROM PHASE 20 OCCURS 
WHEN THE END STATEMENT IS PRO- 
CESSED. THE EXIT CONDITIONS ARE 
EXPLAINED IN THE TEXT FOR THE 
END STATEMENT ROUTINE. 



**READ - THE READ ROUTINE RETURNS TO 
A3 TO ACCESS A WORD, NOT TO D4 . 
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***** 
*HC * 
* B3* 



X READ 
*****B 3*** ******* 

* INDICATE TO * 
*■ LIST ROUTINE * 

* THAT I/O LIST * 

* IS PART OF * 
*READ STATEMENT * 
***************** 



*****C3********** 
*ESDRLD ICB3* 
*-*-*-*-*-*-*-*-* 

* PUNCH ESD AND * 

* RLD CARDS FOR * 

* EXTERNAL REFS * 
***************** 



*****D 3 ********** 



* MOVE TEXT * 
.X* WORD TO * 

* OUTPUT BUFFER * 

* * 
***************** 



*****E3*** ******* 
*NOB HVB3* 

*-*-*-*-*-*-*-*-* 

* WRITE OUTPUT * 

* BUFFER, IF * 

* NECESSARY * 
***************** 



*****F 3*** ******* 
*NIB HUB3* 

*-*-*-*-*-*-*-*-* 

* MAKE INPUT * 

* TEXT WORD * 

* AVAILABLE * 
***************** 



END OF 
STATEMENT 



X 

***** 

*HB * 

* A3* 

* * 



END 

I/O 

LIST 



*****j 3**** ****** 
*SET OFF INDICTR* 

* FOR I/O LIST * 
.* BEING PART * 

* OF READ * 

* STATEMENT * 
***************** 
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*****B1** ******** 
*SET UP FCR PRO-* 

* CESSING CF * 
*NESTED DO LOOPS* 

* PROCESS DC * 

* VARIABLE * 
***************** 



*SET UP FOR PRO-* 

* CESSING OF * 
*NESTED DO LOOPS* 

* PROCESS DO * 

* VARIABLE 



***B5********** 

* 

PROCESS * 

ENDDO * 

CONDITION * 



**** 



***** 



***** 
*HB * 
* A3* 



**C3********* 

RETURN 
************* 
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***** 
*HE * 
* C3* 



***** 
*HE * 
* E3* 



X PHEND 
*****B3********** 
*PUNCH ESD.RLD, * 

* AND TEXT CARD * 

* BUFFERS VIA * 
^FORTRAN SYSTEM * 

* DIRECTOR * 
***************** 



X CLOSE 
*****C3********** 

* MOVE END STMT * 

* TEXT PLUS ANY * 
•X*TEXT EEYOND END* 

*STMT TO OUTPUT * 

* BUFFER * 
***************** 



*****D3********** 
*NOB HVB3* 

*—*—*—*—*—*-*—*—* 
*WRITE CONTENTS * 
*OF OUTPUT BUFFR* 
* ON WORK TAPE * 
***************** 



*****E3********** 

* * 

* PERFORM FINAL * 

* CLOSING * 

* PROCEDURES * 

* * 
***************** 



****F3********* 

* EXIT TO * 

* PHASE 25 OR * 

* PHASE 30 * 
*************** 



Chart HE, 



PHEND Routine 



300 



***** 
*HF * 

* B3* 



• X. 

B3 *. 

.* DOES *. 

•* STMT NO. *• 

♦REPRESENT A PT 

*OF DEFINI- * 

*.TION .* 



* YES 



*****C3*** ******* 
♦CLEAR HZB3* 
*—*—*—*—*—*—*—*—* 

* MAKE ALL * 

* REGISTERS * 

* AVAILABLE * 
***************** 



X 

***** 

*HE * 

* A3* 

* * 



Chart HF. 



LABEL Routine 



Phase 20 301 



*****B1*« ******** 

* * 

* ACCESS * 
X* NEXT TEXT * 

* WORD * 

* * 
***************** 



.* I/O *. 

LIST OF 

A READ 

.STATEMENT. 



END MARK 



X RDPR 
*****C3********** 
*SET TO OFF THE * 
♦INDICATOR THAT * 
♦SHOWS I/O LIST * 

* IS PART OF A * 

* READ STMT * 
***************** 

**** . 



*-*-*-*-*-*-#-*-* 

* OPTIMIZE * 

* I/O * 

* LIST * 
***************** 



END MARK 



PRSAP 

***** 05 ********** 

♦BVLSR HWB3* 

*-*-*-*-*-*-*-*-* 

•X*PLACE VARIABLE * 

* ON BOUND * 

* VARIABLE LIST * 
***************** 



OPTIMIZE 



***************** 



* ACCESS 

* NEXT TEXT 

* WORD 
* 
************** 
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************ 



LINKOP 
*****C2********** 
*OPTMIZ HKB3* 
*-*-*-*-*-*-*-*-* 

* OPTIMIZE *X... 

* ARITHMETIC * 

* STATEMENT * 
***************** 



END MARK 



* OPERATION * 

CODE 'STORE 
*. INTEGER' .* 



*****[> 1 ********** 

* SET OFF THE * 

* 'FUNCTION * 

* REFERENCED' *X 

* INDICATOR * 

* * 
***************** 



.* WAS *. 

*A FUNCTION 
REFERENCED 



***** 04 ********** 
•HANDLE IBB3* 
*-*-*-*-*-*-*-*-* 
*SET UP FOR CALL* 
*RTN. PUT INTEGR* 
*0N BND VAR LIST* 
***************** 



♦ENTER VARIABLE 

* ON BOUND 

* VARIABLE LIST 
**************** 



***** 
*HI * 
* D2* 



*MAKE AVAILABLE 

* REGS INVOLVED 

* W/EOUND VARS 
**************** 
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***** 
*H I * 

* B3* 



**** 
K * 

* E3 * 
**** 



X CALL 
*****B3********** 

* * 

* ACCESS * 
X* TEXT * 

* WORD * 

* * 
***************** 



***** 
*HI * 



***** c 2 ********* * 
*CFTMIZ HKB3* 
*-*-*—*—*—*—*-*-* 

* OPTIMIZE *X. 

* CALL * 

* STATEMENT * 
***************** 



CALLIN X 

*****D2********** 
*ACCESS VARIABLE* 

* IN SUBSCRIPT * 
...X* EXP IN INDEX *X. 

* NAPPING TABLE * 

* * 
***************** 



•X. CKNV 
E2 *. 
•* IS *. 
.* VARIABLE *• NC 
*ALSC IN CCMMCN *.., 



YES .* *. NO 

....*. END MARK •*... 



**** 

* * 

* D2 * 
k * 

**** 



C4 *. 
.* *. **** 

.* INTEGER *. NO * * 
.X*. PARAMETER .*....X* B3 * 
* . .* * * 

*. .* **** 

* . • * 
* YES 



*****D4 ********** 
*BVLSR HWB3* 
*_*_*_*_*_*_*_*_* 

*ENTER VARIABLE * 

* ON BOUND * 

* VARIABLE LIST * 
***************** 



X 
**** 



*****F2** ******** 
*EVLSR HWB3* 
*_*_*_*_*_*_*_*_* 

*EKTER VARIABLE * 

* CN BOUND * 

* VARIABLE LIST * 
***************** 



*. END OF 

*.VARI ABLE 



**** 

* * 

* D2 * 

* * 
**** 



*****H2** ******** 
*RIYVEVL HXB3* 
*-*-*-*-*-*-*-*-* 
*NAKE AVAILABLE * 

* REGS INVOLVED * 

* W/EOUND VARS * 
***************** 



X 
***** 
*HB * 
* A3* 
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***** 
*HJ * 
* B3* 



X IF 
*****B 3 ********** 



ACCESS 
TEXT WORD 



***************** 



*****C2** ******** 
*CFTMIZ HKB3* 
*-*-*-*-*-*-*-*-* 

* OPTIMIZE *X. 

* IF * 

* STATEMENT * 
***************** 



.X. CKIFF 

C3 *. 

.* END *. 

YES .* OF ARITH *. NO 

....*. EXPRESSION OR.*.... 

*.END MARK .* 



.* IS 
.X*. A FUNCTION 
♦REFERENCED 



**** 
NO * * 
*. ...X* B3 * 



*****D 1 ********** 

* SET OFF THE * 

* 'FUNCTION * 

* REFERENCED* *X. 

* INDICATOR * 

* * 
***************** 



.* WAS 

. A FUNCTION 
♦REFERENCED 



***** 
*HE * 
* A3* 



*****D4**** ****** 
♦HANDLE IBB3^ 
*-*-*-*-*-*-*-*-* 
♦SET UP FOR CALL^ 
♦RTN PUT INTEGERS 
♦ ON BND ♦ 
***************** 



X 
***** 
♦HI ♦ 
♦ D2^ 
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***** 

*HK * 

* B3* 



* ACCESS FIRST * 

* WORD TO BE * 

* PROCESSED * 

* * 
***************** 



.ADJ CODE EX- • YES 
•X*TERNAL FUNCTION*.... 
*. OR ASF .* 
*.CALL .* 



—*—*—*—*—*— 



***************** 



*****D2** ******** 

* ACCESS * 

* TEXT * 

* WORDS * 

* * 
***************** 



.* ADJ CODE *. YES 
*FOR SUBSCRIPTED*.... 
*.VARIAELE .* 



*-*-*-*-*-*-*-*-* 
X* PROCESS *. 

* SUBSCRIPT * 

* EXPRESSION * 
***************** 



*-*-*-*-*-*-*-*-* 

* WRITE OUT * 

* CUTPUT BUFFER * 

* IF NECESSARY * 
***************** 



.* IS *. 

.ADJ CODE FOR 
. IFIX, FLOAT, 
*. DFLOAT .* 



.X*INITIALIZE FOR *. 

* NUMBER ♦ 

* CONVERSION * 
***************** 



*****F2** ******** 

* * 

* MOVE TEXT * 

* WORD TO * 

* CUTPUT BUFFER * 

* * 
***************** 



.* IS *. 

ADJECTIVE 

CODE FOR 

• IMPLIED . 



*-*-*-*-*-*-*-*-* 
X* PROCESS *. 

* THE IMPLIED * 

* DO * 
***************** 



.* IS *. 

ADJECTIVE *. 
CODE FOR 

END .* 



*-*-*-*-*-*-*-*-* 
X* PROCESS THE *. 

* END DO * 

* CONDITION * 
***************** 



END MARK 



* MOVE END MARK 

* TEXT WORD TO 

* OUTPUT BUFFER 
* 
**************** 



*-*-*-*-*-*-*-*—* 

* WRITE OUT *. 

* OUTPUT BUFFER * 

* IF NECESSARY * 
***************** 



****K4********* 

* * 

* RETURN * 

* * 
*************** 
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***** 
*HL * 
* B2* 



ARGUMENT 
COUNT 
. ZERO 



**** 

* * 
•X* E5 * 

* * 
**** 



**** 

* * 

* C5 * 

* * 
**** 



*****C2** ******** 

* ACCESS NEXT * 

* OEJECT-TIME * 
*ARGLST ADDRESS * 

* ACCESS FIRST * 

* ARGUMENT * 
***************** 



*****C5 ********** 

* GENERATE * 
♦INSTRUCTION TO * 

* LOAD ARGUMENT * 

* LIST INTO * 
•CORRECT REGISTR* 
***************** 



-*—*—*—*—*—* 



***************** 



*****E1 ********** 

* GENERATE AN * 
♦INSTRUCTION TO * 
♦STORE ARGUMENT * 

* ADDR IN * 

* ARGUMENT LIST * 
***************** 



.* IS *. 

YES .*ARGUMENT A *. 
....*. SUBSCRIPTED .*X. 
♦.VARIABLE .♦ 



CAL020 X 

*****E2** ♦♦****** 

♦ SET ESID TO ♦ 
♦02 IF ARGUMENT ♦ 

♦ IS IN COMMON. ♦ 
♦01 IF ARGUMENT ♦ 
♦ISN'T IN COMMON^ 
***************** 



*****D3^^^^^^^^^^ 

* * 

♦ GET NEXT ♦ 
.♦ ARGUMENT FROM ♦ 

♦ THE WORK AREA ♦ 

* * 
***************** 



*****E3********** 

♦ * 

♦ INCREMENT ♦ 

♦ OBJECT TIME ♦ 

♦ ARGUMENT LIST ♦ 
♦ADDRESS COUNTERS 
***************** 



*****D5 ********** 

♦ INCREMENT ♦ 

♦ OBJECT TIME ♦ 
♦ARGUEMENT LIST ♦ 

♦ ADDRESS * 

♦ COUNTER ♦ 
***************** 

**** . 

♦ * • 

♦ E5 ♦.X. 

♦ * • 
**** . 

X 
*****E5 ********** 

♦ * 

♦ PUT CALL TEXT ♦ 

♦ WORD ONTO ♦ 

♦ OUTPUT DATA ♦ 

♦ SET ♦ 
***************** 



*-*-*-*-*-*-*-*-* 

♦ PUT A ZERO ♦ 

* TEXT WORD IN ♦ 
♦THE ARGUMNT LST^ 
***************** 



CAL025 X 

*****F2** ***♦♦*** 

* IF THIS IS * 

* THE LAST * 
♦ARGUMENT SET A ♦ 

♦ FLAG FOR THE ♦ 

♦ TEXT CARD ♦ 
***************** 



*****F5 ********** 

♦ * 

♦ RESET WORK ♦ 

♦ AREA ♦ 

♦ POINTER ♦ 

♦ * 
***************** 



*****G1 ********** 

* * 
♦GENERATE A FLAG^ 
♦IF THIS IS THE ♦ 

* LAST ARGUMENT ♦ 

* * 
***************** 



CAL030 X 

*****G2** ******** 
*CALTXT ICB5* 
*-*-*—*—*-*-*-*-* 

* PUT ARGUMENT * 

* ADDRESS IN * 

* TEXT CARD * 
***************** 



*****H2********** 

♦ * 

♦ CALCULATE ♦ 

♦ ADDRESS FOR ♦ 

♦ RLD CARD ♦ 

♦ * 
***************** 



♦ GENERATE AN ♦ 
♦RLD ENTRY FOR A* 

♦ RGUMENT ♦ 
***************** 



**** 

* * 

* C5 * 

* * 
**•* 
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NOTE- SUBROUTINE GETN 
USED TO MAKE REGISTER 
AVAILABLEt IF NONE IS 
INITIALLY AVAILABLE IN 
INDEX MAPPING TABLE 



•****B1 •*•*•*•••* 

* STORE REG NO. * 

* IN TEMPORARY * 
•FIELD. PLACE SUB*X. 
•-CRIPT INDICATR* 
*OF AOP IN TEXT * 



•***«A2** ******** 
•OBTAIN REGISTER* 
« FOR CURRENT * 

* SUBSCRIPT *X 

• EXPRESSION * 



.* SUBSCRIPT *. 

. EXPRESSION .' 
*. OPTIMIZED.* 



.* SUBSCRIPT *. 
• EXPRESSION A .'■ 
». CONSTANT .* 



SPAOP 

*«***A4********** 
•INDICATE IN *A«« 
•FIELD OF INITAL* 
...X»SUBSCRIPT WORD * 
•THAT SUBSCRIPT ♦ 
* IS CONSTANT * 



EXRTN 

#*»#»C 1 »♦»»*#*#«* 
*PLACE REGISTOR * 

* NUMBER IN • 
.X* TEXT. BUT NOT *X 

* IN INDEX * 
MAPPING TABLE * 



C2 *. 

.TEXT IND . 

•«A GENERATED*. 

.LITERAL FORM .' 

•.CON SUE- .* 

•SCRIPT « 

*NO 



*«*««D2**« ***•••• 
•ASSIGN REGISTER* 
* TO SUBSCRIPT * 
•EXPRESSION AND « 
•ENTER INTO IN- • 
•DEX MAPPING TBL* 



.•SUBSCRIPTED*. YES 
.X*VARIABLE ADUMMY* . . . . . 
*. VARIABLE .* 



PROCESS 

DUMMY 

VARIABLE 



»«*»«E3*****«»»*« 

* STORE • 
•REGISTER NUMBER*X. 
« INTO TEXT « 



.TEXT IND . 

.•A GENERATED*. 

• .LITERAL FORM .< 

•.CON SUB- .* 

•SCRIPT * 



• STATEMENT *. 
WITHIN A DO . 
«. LOOP .» 



.* FIRST «. 

.* OCCURENCE ». 

.OF SUBSCRIPT . 

•.WITHIN DO.* 

*.LOOP .* 



•RESTORE ANY AOP* 

• TEXT TO SAOP * 

• FORM • 



DOENT 

*»***K3********** 

• LOCATE * 
•REGISTER ENTRY • 

• IN INDEX • 
« MAPPING • 

• TABLE « 
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REAOP X 

♦««»*A3*»******** 
*ADD OFFSET CAL-* 
•CULATED BY PHIO* 
*TO THE DSPLCMT * 

* DETERMINED BY * 

* PH14 FOR VAR * 



.*IS THERE A *. 
.SECOND DIMEN-. 
*. SION .» 



»«B2********** B3 ». 

:NER HRB2* .* IS *. 

-«-*-*-•-*-*-* YES .»RESULT LESS*. 
GENERATE *X ....... .*THAN 0. OR GTR < 

OFFSET * *.THAN 4095.* 

LITERAL * *. .* 

*N0 



IF GENER IS NOT USED 



. SAOP . N 


. W . OFFSET 


IF GENER 


IS USED 


. XOP . N 


. W . A(GEN LITERAL) . 



* ENTER NUMBER 
.X* OF DIMENSIONS ) 

* INTO TEXT < 



***«»D3********** 
•MOVE FIRST WORD* 

* OF SUBSCRIPT * 
*TEXT TO OUTPUT * 

* BUFFER * 



* MOVE LAST WORD 

* OF SUBSCRIPT 
♦TEXT TO OUTPUT 

* BUFFER 



GENERATE THE 

LITERAL FOR 

C2*D1*L 



* PLACE ADDRESS 
*0F LITERAL FOR 

* C2*D1*L 

* IN TEXT 



WRITE OUT * 
OUTPUT BUFFER * 
IF NECESSARY * 



**»*F3******** 
COMPUTE C1*L 



GENERATE THE 
LITERAL FOR 
C3*D1*D2*L 



* PLACE ADDRESS 
*0F LITERAL FOR '■ 

* C3*D1*D2*L 

* IN TEXT 



SET THE TEXT 

RESERVED FOR 

ADDRESS OF 

C3*D1*D2*L 

TO ZERO 



#»**#F5********** 
•MOVE THIRD WORD* 

* OF SUBSCRIPT * 
•TEXT TO OUTPUT * 

* BUFFER * 



A(C2*D1*L) . A(C3*D1*D2*L) 



GENERATE ThE 

LITERAL FOR 

C1*L 



**»#»J 3*** **»*«» 

• MOVE SECOND 

• WORD OF SUB- 
.X*SCRIPT TEXT TO 

• OUTPUT BUFFER < 



WRITE OUT 
BUFFER. IF 
NECESSARY 



•MOVE LAST WORD * 

♦ OF SUBSCRIPT * 
•TEXT TO OUTPUT* 

* BUFFER * 



IF GENGEN IS NOT USED 
*P( SUBSCRIPT) *! *POWER *0F*2* 

IF GENGEN IS USED 
*P(SUBSCRIPT)*I A(C1*L) 



WRITE OUT 

BUFFER. IF 

NECESSARY 
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.* SUBSCRIPT 
••EXPRESSION A 
♦.CONSTANT . 



*****A4**»* ****** 
♦SUBTRACT INDEX * 

* MAPPING TABLE * 
X* OFFSET FROM * 

* TEXT OFFSET * 
*. * 
***************** 



X SKIN 
*****B3********** 

* ADD ADJUSTED * 

* OFFSET TO THE * 

* DISPLACEMENT *X.. 

* DETERMINED BY * 

* PH15 FOR VAR * 
***************** 



NO .* RESULT 
•••*. EQUAL TO 
*. ZERO 



***** 
*HM * 
* A2* 



*****C2********** C3 *• 

* C-ENER HRB2* •* IS 
*-*-*-*-*-*-*-*-* YES .* RESULT 

.* GENERATE *X *LESS THAN 

* OFFSET * *. G.T. 

* LITERAL * *,4095 • 
***************** *. .* 

•NON-CONSTANT * NO 
•SUBSCRIPT 



**** 

* * 

* F3 * 



.* SUBSCRIPT 
♦•EXPRESSION A 
*. CONSTANT . 



*****E3 ********** 

* NULLIFY ANY * 
♦REGISTER ASSIGN* 
*MENT BY SETTING* 
♦X-FIELD IN TEXT^ 

* TO ZERO ♦ 
***************** 

**** . 

* * . 
*HO *.X, 

* F3* 
**** . 

X MOV 
*****F3**«* ****** 
♦MOVE FIRST WORD^ 

* OF SUBSCRIPT ♦ 
X^ TEXT TO ♦X. 

* OUTPUT BUFFER ♦ 

* * 
***************** 



IF GENER IS USED 
AOP A I B *. A(GEN. LITERAL 



B IS SET TO INDICATE THAT 

ADDRESS OF A GENERATED LITERAL 
IN TEXT 



_*-*_*-*_*_*_*_ 

WRITE 

OUTPUT BUFFER 

IF NECESSARY 

*************** 



IF GENER IS NOT USED 
AOP '. A ', B I OFFSET 



*****H3* ********* 
♦MOVE LAST WORD ♦ 

* OF SUBSCRIPT ♦ 
♦TEXT TO OUTPUT ♦ 

* BUFFER * 

* * 
***************** 



*-*-*-*-*-*-*-*-* 

* WRITE * 

* OUTPUT BUFFER * 

* IF NECESSARY ♦ 
***************** 
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***** 

*HP * 
* A3* 



*****A3********** 

* * 

* MOVE WORD * 

* TO OUTPUT * 

* BUFFER AREA * 

* * 
***************** 



*-*-*-*—*-*-*-*-* 

* UPDATE * 

* OUTPUT * 

* AREA * 
***************** 



*****C2** ******** 

* NOVE INTEGER * 

* CR REAL AREA * 
*ACDRS AND CON- *X 

* STANT ADDRESS * 
*TC OUTPUT BUFF * 
***************** 



• X. 

C3 *. 

••INTEGER*. 

YES .* WORK AREA *. 

....*. OR REAL PRE- • 

•VIOUSLY GEN* 

*ERATED * 



• * 
* NO 



*-*-*-*-*-*-*-*-* 

* UPDATE * 

* OUTPUT * 

* BUFFER * 
***************** 



.* CONSTANT 
*. PREVIOUSLY 
♦.GENERATED. 



*****D4********** 

* MOVE * 

* CONSTANT * 
X* ADDRESS TO * 

* OUTPUT * 

* BUFFER * 
***************** 



****E2** ******* 

* * 

* SCAN * 

* * 
*************** 



*****E3********** 

* PUT NEXT * 

* DOUELE WORD * 

* ADDRESS IN * 

* OUTPUT * 

* BUFFER AREA * 
***************** 



*****F 3*** ******* 

* * 

* ASSIGN * 

* ADDRESS TO * 

* CONSTANT * 

* * 
***************** 



-*-*-*-*-* 



***************** 



*****H3********** 

* PUT NEXT * 

* DOUELE WORD * 

* ADDRESS IN * 

* OUTPUT BUFFER * 

* AREA * 
***************** 



****J2* ******** 

* * 

* SCAN * 

* * 
*************** 



* UPDATE * 

* OUTPUT * 

* AREA * 
***************** 



*-*-*-*-*-*-*-*-* 

* FIX OR FLOAT *X 

* WORK * 

* AREA * 
***************** 



*****K 3*** ******* 

* ASSIGN * 

* ADDRESS TO * 
.* INTEGER OR * 

* REAL WORK * 

* AREA * 
***************** 
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*****A3********** 

* * 

* ACCESS * 

* INDEX MAPPING * 

* TABLE ENTRY * 

***************** 



.* DUMMY *. YES 
*VARIABLE IN THE*.... 
*. INDEX MAP.* 
*. TABLE.* 



* USE REGISTER 

* ASSIGNED TO 
*DUMMY VARIABLE 



C3 *. 

.* ARE *. 

.* THERE 3 *. YES 

*DUMMY VARIABLES*.... 

*IN IDX MAP * 

*. TABLE.* 



GETBSE 

*****C4********** 

* CHANGE STATUS * 

* OF ONE OF * 
...X* CORRESPONDING * 

* ENTRIES TO * 

* UNASSIGNED * 
***************** 



*-*-*-*-*-*-*-*-* 
* DETERMINE REG *X 
*ASGND TO SBCRPT* 
*V»ITH LEAST DIME* 
***************** 



.* THERE *. 
.*.AN UNASSIGNED. 
**. REGISTER .* 



REGAV X 

*****D4********* 

* ASSIGN FIRST 
*UNASSIGNED REG 

...X* TO CURRENT 

* DUMMY 

* VARIABLE 
**************** 



*****E2********** 

* ASSIGN THE * 

* REGISTER * 
*TC THE CURRENT * 

* DUMMY * 

* VARIABLE * 
***************** 



GENIN 

*****F3********** 
* GENERATE A * 
*»LOAD EASE REG'* 
. ,.X*INSTRUCTION AND*X 
*PLACE IN OUTPUT* 
AREA 



******** 



**** 



* WRITE OUT 
♦OUTPUT BUFFER, 

* IF NECESSARY 



* H3 *.X. 



*****H3********** 

* PLACE * 

* THE BASE * 

* REGISTER * 

* NUMBER IN * 

* TEXT * 



****J3********* 

* RETURN * 

* * 
*************** 



Chart HQ. DUMPR Routine 
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***** 
*HR * 
* B2* 



***** 
*HR * 
* B4* 



GENER X 

*****B2* ********* 



ACCESS 
OFFSET 



***************** 



GENGEN X 

*****BA ********** 

* * 

* ACCESS * 

* CDL * 

* PORTION * 

* * 
***************** 



*****C 3* ********* 

*GEN HSB3* 

*—*—*—*—*-*-*-*—* 

•X* GENERATE *X. 

* THE * 

* LITERAL * 
***************** 



XOPCH 

*****[) i ********** 

* * 
*PLACE SUBSCRIPT* 

* INDICATOR OF *X. 

* XOP IN TEXT * 

* * 
***************** 



OUTIN X 

****E i ********* 



GENSET .*. 

02 *• 
• * WAS *. 

YES .* SUBSCRIPT *. 
. ...*EXPRES ALREADY 
♦•OPTIMIZED.* 



•* CDL OR *. 

•*OFFSET LITERAL 
*. GENERATED,* 



* RETURN *X. 

ft * 

*************** 



• X. 

E2 *. 

.* IS *. 

NO .* SUBSCRIPT 
...*. EXPRESSION fi 
*. CONSTANT . 
*• •* 

*. •* 
* YES 



*****F2** ******** 

* NULLIFY ANY * 

* REGISTER * 

* ASSIGNMENT EY * 
*SETTING X-FIELD* 
*IN TEXT TO ZERO* 
***************** 



X 

***** 

*HM * 

* A2* 

* * 

* 

SPECIAL EXIT 

FOR CONSTANT 



*****D4 ********** 

* * 

* PLACE ADDRESS * 
. X* OF LITERAL * 

* IN TEXT * 

* * 
***************** 



****E4 ********* 
ft -x 

* RETURN * 
ft * 

*************** 



Chart HR. Subroutines GENER, GENGEN 
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***** 
*HS * 
* B3* 



*****B3********** 
*SYMSRC HYB3* 
*-*-*-*-*-*-*-*-PRESENT 

* DETERMINE IF * 

* LITERAL IS IN * 

* SYM LIST * 
***************** 

•NOT PRESENT 



*****C3**** ****** 

* MOVE THE * 
♦LITERAL TO THE * 
*TEXT CARD AREA.* 

* UPDATE CARD * 

* COUNTER * 
***************** 



• X. 

D3 *. 

.* IS *. 

.* THE TEXT 

CARD AREA 

* • FULL 



****B4 ********* 



*************** 



*****E3********** 
♦PUNCH IAB3* 
*—*—*—*—*—*—*—*—* 

* PROCESS THE * 

* TEXT CARD * 

* AREA * 
***************** 



INS X 

*****F 3*** ******* 

* * 

* ENTER THE • * 

* LITERAL IN * 
*THE SYMBOL LIST* 

* * 
***************** 



ENDS3Y X 

*****G3**«* ****** 
♦DETERMINE ADDR * 
*OF LITERAL VIA * 

* LOCATION CTR * 

* AND ENTER IN * 
*SOURCE SYM TBL * 
***************** 



****H3*** ****** 

* * 

* RETURN * 

* « 
*************** 



Chart HS. Subroutine GEN 
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***** 
*HT * 
* E3* 





• X. 




B3 *. 




.* CAN A *. 




NO .*REG AS6D TO* 




>•••*• A SUBSPT OF 


X 


*LST DIM BE * 


***** 


♦•FOUND.* 


*HE * 


*• .* 


* C3* 


* YES 



C3 *. 
•*IS THIS*. 
YES .*A CONSTANT *. 

*SUBSCRIPT AND A* 

X *. GENERATED.* 

***** *LITERAL* 

*HM * *. .* 

* CI* * NO 



*****03* ********* 



ASSIGN 
REGISTER 



***************** 



****E 3*** ****** 

* RETURN * 

* * 
*************** 



Chart HT. GETN Routine 



Phase 20 



315 



NOTE 
IF THE CURRENT 
COMPILATION IS 
PERFORMED WITH- 
IN MAIN STORAGE, 
NEITHER READING 
NCR WRITING OC- 
CURS. ONLY POINT- 
ERS ARE UPDATED 



***** 
*HU * 
* B3* 



*****B 3**** ****** 
*UPDATE POINTER * 

* OF CURRENT * 

* INPUT EUFFER * 

* AND DETERMINE * 
*IF BUF IS EMPTY* 
***************** 



INPUT 

BUFFER 

EMPTY 



****C4********* 

* * 
•X* RETURN * 

* * 
*************** 



GET X 

*****D 3 ********** 

* CHANGE STATUS * 

* OF EUFFERS, * 

* MAKING THE * 

* ALTERNATE * 

* ONE CURRENT * 
***************** 



END 

OF 

TAPE 



X 

***** 

*H3 * 

* C3* 

* * 



*****p 3* ********* 

* CALL FORTRAN * 
♦SYSTEM DIRECTOR* 

* TO READ INTO * 

* EMPTY * 

* BUFFER * 
***************** 



G3 *• 

•*WAS END*. 

.* OF TAPE *. 

*. DETECTED 

♦DURING THE * 

*.READ .* 

*. .* 

* NO 



*****G4* ********* 

* INDICATE * 

* TO ROUTINE * 
.X*USING THE DATA * 

* THAT AN ERROR * 

* COND EXISTS * 
***************** 



****H3 ********* 

* * 

* RETURN * 

* * 
*************** 
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***** 

*HV * 

* B3* 

* * 



NOB 
NO 



♦.OUTPUT BUFFER.*. 
*. FULL 



*****B 4* ********* 
» * 

* UPDATE * 
. X* OUTPUT BUFFER * 

* POINTER * 

* * 
***************** 



X PUT 
*****C 3* ********* 

* CHANGE STATUS * 

* OF EUFFERS. * 

* MAKING THE * , 

* ALTERNATE ONE * 

* CURRENT * 
***************** 



X SVC4 
*****D 3 ********** 

* WRITE FULL * 
♦BUFFER ON WORK * 

* TAPE VIA * 

* FORTRAN * 
♦SYSTEM DIRECTOR* 
***************** 



****E 3 ********* 

* * 

* RETURN * 

* * 
*************** 



Chart HV« Subroutine NOB 
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***** 
*HW * 
* B3* 



YES .* IS THE *• 

.•••"BOUND VARIABLE 
♦LIST EMPTY * 



•X. CPVB 
C3 *. 
.* IS *. 
.* VARIABLE *. YES 
"ALREADY ON THE *.... 
*. LIST .* 



X ENTIT. 
*****D 3 ********** 

* * 
"PLACE VARIABLE * 

. ..X" ON THE BOUND * 

* VARIABLE LIST » 

* * 
***************** 



****£ 3 ********* 

* * 

* RETURN * 

* * 
*************** 



Chart HW. Subroutine BVLSR 



318 



***** 

*HX * 

* B3* 



•X. RMVBVL 
B3 *. 
.* IS *. 
.* THE ♦. YES 
♦BOUND VARIABLE *. 
*. LIST .* 
♦.EMPTY.* 
*. .* 
* NO 



X NXTBVL 
*****C3* ********* 

* PROCESS INDEX * 

* MAPPING TABLE * 

* AGAINST THE * 
♦BOUND VARIABLE * 

* LIST * 
***************** 



X VAREQ 
*****D3 ********** 
♦WHEN SUBSCRIPT ♦ 
♦EXPRESSION CON-^ 
♦TAINS BOUND VAR^ 
♦ CHANGE STATUS ♦ 
♦OF ENT TO UNASS^ 
***************** 



****E3 ********* 

* * 

* RETURN ♦ 

* * 
*************** 



Chart HX. Subroutine RMVBVL 
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***** 
*HY * 

* B3* 



B3 ♦• 
.* *. 
.* IS 

• LIT IN THE 
*. SYMBOL 
♦•LIST •* 
♦. .* 
* YES 



X NONEE 
*****C 3**** ****** 

* * 
♦RETURN ADDRESS * 

* OF LITERAL TO * 
♦CALLING ROUTINE^ 

* * 
***************** 



REFO 
*****B4********** 

* * 
♦RETURN ADDRESS ♦ 

•X^ OF ZERO TO ♦ 
♦CALLING ROUTINE^ 

* * 
***************** 



****D3*** ****** 
» * 

* RETURN * 
» * 

*************** 



Chart HY. Subroutine SYMSRC 
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***** 
*HZ * 

* B3* 



CLEAR X 

*****B 3**** ****** 

* * 

* ACCESS INDEX * 

* MAPPING *X. 

* TABLE ENTRY * 

* * 
***************** 



SETCOD .X. 

C3 *• 
.* IS *. 
YES • * REG ASSOC *. 
.*. WITH ENTRY • 
*. AVAILABLE.* 



SETCD1 X 

*****D3** ******** 

* MAKE REGISTER * 

* AVAILABLE BY * 
♦CHANGING STATUS* 

* OF ENTRY TO * 

* UNASSIGNED * 
***************** 



• X. 
E3 *. 

.* LAST *. 
.* ENTRY IN *• NO 
•X*. INDEX MAPPING.*. •• 
*. TABLE .* 



****F3********* 
» * 

* RETURN * 
» * 

*************** 



Chart HZ. Subroutine CLEAR 
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***** 

*IA * 

* B3* 

* * 



• X. 
B3 *. 
.* DECK 
.* OR 

NODECK 
*. OPTION 



*• NODECK 



****B4* ******** 

* * 
. X* RETURN * 

* * 
*************** 



*. 



IS 

CARD AREA 

BLANK 



*****D3********** 

* ACCESS CARD * 

* NUMBER FOR * 

* USE IN CARD * 
♦IDENTIFICATION * 

* * 
***************** 



.* GO *. 
*. OPTION 

*. SPECIFIED.* 



*****E4********** 

* * 

* ENTER INFO * 
X* IN CARD AREA * 

* ONTO GO TAPE * 

* * 
***************** 



F3 *. 

.* *. 

.* DECK *. 

OPTION 

♦.SPECIFIED,* 



*****F4* ********* 

* * 

* CALL FORTRAN * 
•X*SYSTEM DIRECTOR* 

*TO PUNCH A CARD* 

* * 
***************** 



*****G3*** ******* 

* * 

* CLEAR * 

* CARD * 

* AREA * 

* * 
***************** 



****H 3* ******** 

* * 

* RETURN * 

* * 
*************** 



Chart IA. Subroutine PUNCH 
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***** 
*IB * 

* B3* 



*****B 3*** ******* 
*IND TO CALLING * 
♦ROUTINE THAT A * 
♦FUNCTION IS TO * 

* BE PROCESSED * 

* VIA CALL RTN * 
***************** 



*****C3********** 
*BVLSR HWB3* 
*-*-*-*-*-*-*-*-* 

* PLACE INTEGER * 

* PARAMETER ON * 

* END VAR LIST * 
***************** 



****D3********* 
x * 

* RETURN * 

* * 
*************** 



Chart IB. Subroutine HANDLE 
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*IC * 
* B3* 



.* CUR ENTRY *. 
.REFERENCED IN. 
*. ESDTAB .* 



*****B2** ******** 

* * 

* SET * 
X* ADDRESS * 

* INTO TEXT » 



********* 



I******* 



* FORM AN RUD * 

* ENTRY IN *X 
» RLDCRD AREA * 

* * 
***************** 



**** 

.* B3 * 

* * 
**** 



* FORM A TEXT * 

* ENTRY IN * 

* TXTCRD AREA * 

* * 
***************** 



*****C 1 ********** 

* ASSIGN LOAD * 

* CONSTANT ADDR * 

* ENTER INTO * 

* TEXT AND * 

* ESDTAB * 
***************** 



****C2* ******** 

* * 

* RETURN * 

* * 
*************** 



RLDCRD 
AREAS 
FULL 



****C 4* ******** 

* * 

* RETURN * 

* * 
*************** 



*****D1 ********** 

* * 

* FORM AN ESD * 

* ENTRY IN * 

* ESDCRD AREA * 

* * 
***************** 



TXTCRD 
AREA 
EMPTY 



CALTOO X 

*****D5* ********* 

*ESDPUN IEB3* 

*—*—*—*—*—*—*—*—* 

...X* PUNCH A * 

* TEXT * 

* CARD * 
***************** 



*****E1 ********** 

* * 

* SET CURRENT * 

* ESID IN * 
*CLRRENT RLDCRD * 

* AREA * 
***************** 



*—*—*—*—*—*—*—*—* 

* PUNCH AN *X 

* ESD * 

* CARD * 
***************** 



ESDCRD 
AREA 
EMPTY 



FIRST 
ENTRY IN 
. ESDCRD 
*.AREA . 



*****F2********** 

* * 

* SET CURRENT * 



ESDCRD AREA 



******** 



******** 



*—*—*—*—*—*—*—*—* 

* PUNCH AN *X 

* RLD * 

* CARD * 
***************** 



RLDCRD 
AREAS 
FULL 



-*—*—*-*—*—*—*—* 

PUNCH AN * 

ESD * 

CARD * 

**************** 



*****J1 ********** 

* * 

* FORM A TEXT * 

* ENTRY IN *X 

* TXTCRD AREA * 

* * 
***************** 



*-*-*-*-*-*-*—*-* 

* PUNCH A * 

* TEXT * 

* CARD * 
***************** 



**** 

* * 

* B3 * 



****G5 ********* 

* * 

* RETURN * 

* * 
*************** 



Chart IC. Subroutine ESDRLD/CALRLD/CALTXT 
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***** 

*ID * 

* A3* 

* * 



B3 *• 
•* WILL *. 
.* INFO 
*. FIT ON THE 
*. TEXT 

*.CARD •* 



* YES 



*****C3 ********** 

* ENTER * 

* INFORMATION * 

* IN * 

* TEXT CARD * 

* * 
***************** 



*****B4**** ****** 

* PUNCH * 
*-*-*-*-*-*-*-*-* 

. X* PROCESS * 

* TEXT CARD * 

* * 
***************** 



• X. 
D3 * 
.* IS 
.* THE 
*. CARD 
*. FULL 
*. 

*• .* 



*****D4* ********* 

* PUNCH * 
*_*_*_*_*_*_*-*_* 

•X* PROCESS * 

* TEXT CARD * 

* * 
***************** 



****E 3*** ****** 

* * 

* RETURN * 

* * 
*************** 



Chart ID. Subroutine GENCON 
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***** 
*IE * 
* B3* 



ESDPUN X 

*****B3********** 

* * 

* CALCULATE * 

* CURRENT CARD * 

* NUMBER * 

* * 
***************** 



*****C3********** 

* MOVE CARD * 

* NUMBER AND * 

* CARD IMAGE TO * 

* CURRENT CARD * 

* BUFFER * 
***************** 



GOGO 
OPTION 



ERROR 
SWITCH 



.* 

.* 
ON 



*****E2******«*** 

* * 

* PUNCH * 

* A *> 

* CARD * 

* * 
***************** 



DECK *. 
OPTION .* 



****E5********* 

* * 

* RETURN * 
» * 

*************** 



GO 
OPTION 



****G3********* 

* * 

* RETURN *X. 

* * 
*************** 



*****F4********** 

* * 

* PUT CARD * 
X* IMAGE ON GO * 

* FILE * 

* * 
***************** 



Chart IE, Subroutine ESDPUN 
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PHASE 25 



Phase 25 creates the object coding for 
the FORTRAN source program from the inter- 
mediate text entries and the overflow 
table. Instructions are generated and 
punched in th£ object deck if the DECK 
option is specified and/or written on the 
GO tape if the GO option is specified. 
Addresses are assigned to entries in the 
branch list which is written on the output 
data sets. 



OBJECT PROGRAM TABLES 



Several tables are used by the object 
program to execute the instructions gener- 
ated by Phase 25. These tables are assem- 
bled in their final form in Phase 25. 



Branch List Table for Statement Numbers 



Phase 25 accesses entries in the inter- 
mediate text and checks the adjective code 
to determine the type of the entry. The 
adjective code determines which Phase 25 
subroutine processes the entry. The proc- 
essing subroutine generates the instruc- 
tions . 



Chart 08, the Phase 25 Overall Logic 
Diagram, indicates the entrance to and exit 
from Phase 25, and is a guide to the 
overall functions of the phase. 



If the adjective code for a statement 
number definition is recognized, the con- 
tents of the location counter are inserted 
in the branch list entry for the statement 
number. The relative numbers for statement 
numbers in the branch list were established 
in Phase 14. Another branch list, created 
by Phase 25 9 contains the addresses of the 
beginning of arithmetic statement function 
expansions and addresses to control branch- 
ing with a DO loop. 



Phase 25 completes the generation of the 
base value table. Each address assigned to 
a base register is placed in this table. 



When the intermediate text entry for the 
END statement is recognized, both branch 
list tables and the base value table are 
entered into the output data set. All 
three tables must be relocatable. All 
entries in these tables are entered in RLD 
cards, as well as text cards. 



When Phase 25 has completed its execu- 
tion, a test is made for an error or 
warning condition within the program. If 
one exists. Phase 25 calls the FORTRAN 
System Director to load Phase 30. If an 
error or warning did not exist in the 
compilation, the FORTRAN System Director is 
called to load the Control Card routine. 



Phase 1 4 allocated storage for a branch 
list table. Each statement number, not a 
FORMAT statement number but referenced by a 
GO TO, Computed GO TO, IF, or DO statement, 
was assigned a relative number in this 
branch list table. This relative number 
was placed in the chain field of the 
dictionary entry in the overflow table. 

When an entry for a statement number 
definition is recognized by Phase 25, the 
overflow table entry is accessed, and the 
relative number is used to assign a posi- 
tion to the statement number in the branch 
list. The value of the location counter is 
placed in this position in the branch list 
table. The next instruction generated by 
Phase 25 is the first instruction for the 
referenced statement. 

The following instructions are generated 
for the portion of a FORTRAN statement that 
references the statement number; 

L 1, address in the branch list 
BCR 15,1 

The first instruction loads the address 
of an entry in the branch list into general 
register 1? the second instruction branches 
to the address placed in general register 
1. 



Branch List Table for ASF Definitions and 



DO Statements 



A second branch list table is generated 
by Phase 25 for arithmetic statement func- 
tion expansions and DO statements. A num- 
ber assigned to each arithmetic statement 
function by Phase 14 is used to assign 
locations in the second branch list table 
for each arithmetic statement function 
expansion. Phase 25 inserts the address of 
the first instruction in the arithmetic 
statement function expansion in this loca- 
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tion in the branch list. Any statement 
referencing the ASF uses the number of the 
ASF to find the address of the beginning of 
the ASF expansion. 

Phase 25 also assigns each DO statement 
a location in the branch list. The address 
of an instruction near the beginning of the 
DO loop is entered in that location in the 
branch list. Object program instructions 
located at the end of the DO loop access 
this location in the branch list and branch 
to the address in the location. 

The format for the second branch list is 
illustrated in Figure 54. 



address of ASF expansion 1 



address of ASF expansion 2 



address of ASF expansion N 



address of instruction in DO loop 1 



address of instruction in DO loop 2 



|. . 

| address of instruction in DO loop M 

L 

Figure 54. Branch List Table 2 



Base Value Table 



The base value table (see Figure 55) is 
generated by other phases of the FORTRAN 
compiler and Phase 25. An object program 
can use only general registers 4, 5, 6, and 
7 as base registers. When the object 
program is enter ed, these registers are 
initialized with values from the base value 
table. If a base register other than 4, 5, 
6, or 7 is used in an object program, the 
table is used to take special action. The 
value for each base register used by the 
object program is inserted in the base 



value table. The first entry in the base 
value table is the value placed in register 
4; the second refers to register 5, etc. 



jvalue placed in the first base register 
| used to access data in COMMON 



,. 

lvalue placed in the last base register 
| used to access data in COMMON 



h 



H 



jvalue placed in the first base register 
| used to access data in the object program 

I 

I 

I - I 

,. _ 1 

(value placed in the last base register 
j used to access data in the object program 

L J 

Figure 55. Format of the Base Value Table 



For a program which uses registers 4 and 
5 to access COMMON and registers 6, 7, 8, 
9, 10, and 11 to access data and instruc- 
tions in the object program, the base value 
table takes the values shown in Figure 56. 



The value 20480 should be entered in 
general register 11. However, register 7 
is the last register available for use as a 
base register. Until Phase 25 is executed, 
nothing has been done to correct this 
situation. The spill technique is imple- 
mented in the instructions generated by 
Phase 25. If an intermediate text entry 
indicates that a base register other than 
4, 5, 6, or 7 is used to access data, an 
instruction is generated to load the value 
into general register 7, and 7 is used as 
the base register in the instruction. 



Epilog Table 



A subprogram may have only variables, 
arrays, or other subprograms used as param- 
eters. A subprogram accesses a variable by 



I 



Register j 



10 



11 



I 



Value 



4096 



| 4096 | 



8192 | 12288 | 16384 | 20480 | 

A JL J J 



Figure 56. Values in a Base Value Table 
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moving -the value of -the variable from -the 
calling program to the subprogram. An 
array or a subprogram is accessed by moving 
the address of the array or subprogram used 
as a parameter from the parameter list in 
the calling program to the subprogram. The 
result of the operation performed by the 
subprogram on array or another subprogram 
is in the locations allocated to the sub- 
program or array in the calling program. 
The result of the operation performed by 
the subprogram on the variable is in the 
subprogram itself. 



The epilog table (see Figure 57) is 
generated to return the value of variables 
used as parameters to the calling program. 
Phase 25 generates an epilog table when a 
FUNCTION or a SUBROUTINE adjective code is 
recognized. The epilog table exists only 
at compile time. 



Arithmetic Expressions 



The text words generated by Phase 15 for 
arithmetic expressions contain all the ele- 
ments for the RX format instruction. The 
op-code, result register, base register, 
and the displacement have been supplied. 
If an index register is used, it is in 
connection with an array, and the opera- 
tions must be generated by Phase 25 to 
adjust the index register. These inter- 
mediate text entries are denoted by adjec- 
tive codes 40 through 8F and are processed 
by the Phase 25 subroutine RXGEN. 



Intermediate Text Entries for Other 
Statements 



j L t j S^ j address 1 



I 



j Ln j S n j address n 
Figure 57. Format of the Epilog Table 



■I 
_„| 

I 

j 



L is the field length of the variable in 
the subprogram? S is the relative location 
of the variable in the parameter list in 
the calling program; and address is the 
location of the variable in the subprogram. 



Other text entries still resemble the 
output generated by Phase 14. An adjective 
code identifies the entry and possibly 
several entries that follow it. Various 
Phase 25 subroutines analyze these entries 
and generate instructions. 



A number of instructions are assembled 
for Phase 25. These instructions are not 
used to perform any operation; they are 
used as constants or literals by Phase 25 
to generate instructions. These "skeleton 
instructions" are always assembled with an 
op-code. They may have a register and an 
address. 



The instructions generated by the RETURN 
entry in the intermediate text access the 
epilog table to return the value of varia- 
bles to the calling program. 



INSTRUCTION GENERATION 



Phase 25 accesses the intermediate text 
and generates instructions by analyzing the 
intermediate text. A FORTRAN object pro- 
gram makes use of all five formats for 
System/360 instructions - RR, RX, RS, SI, 
and SS^ Intermediate text entries for 
operations within arithmetic expressions 
are almost in final form while other text 
entries must be thoroughly analyzed before 
instructions can be generated. 



OUTPUT 



Phase 25 inserts the generated instruc- 
tions, branch lists, and the base value 
table into text card images. RLD card 
images are created for all entries in the 
branch lists and the base value table. The 
card images are then written on the GO data 
set, if the Compile and Go or GOGO option 
is specified, and/or punched into the card 
deck, if the DECK option is specified. 



STORAGE MAP 



The storage map for Phase 25 is shown in 
Figure 58. 
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Hex. Loc. | | 

150 |. .| 

| Communications 
| Region 

f ^ 

| FORTRAN System 
I Director 
|F I/O 
FAO I- 



(PHASE 25 
2 E 70 |~ 



II/O Buffer 



2 F 38 I-- 

|I/0 Buffer 
3000 j. 



JWKARA 

I 

(Epilog table 

| Branch lists 
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Figure 58. Storage Map for Phase 25 



Size and loca- 
tions vary with 
machine size. 
Those shown 
are for 16K 
machine. 



Subroutine INITIALIZATION: Chart KA 



Subroutine INITIALIZATION initializes 
Phase 25. It calculates the size of tables 
used by Phase 25 , initializes the 
input/output data sets, and sets indicators 
for spill base registers. 



ENTRANCE: Subroutine INITIALIZATION is 
entered from the FORTRAN System Director 
(FSD) after the FSD has read Phase 25 into 
main storage. 



OPERATION: Subroutine INITIALIZATION esta- 
blishes base registers for Phase 25. It 
then calculates the sizes of the branch 
table for statement numbers and the branch 
table for arithmetic statement functions. 
The buffer pointers are initialized , and 
the GOGO option is checked. 

If the GOGO option is on, the error 
subroutine for the object program is set up 
to handle any errors in the object program. 
If, during object execution the program 
attempts to execute the coding generated 
from an erroneous FORTRAN statement, a 
branch is generated to the object error 
subroutine. 



SUBROUTINES 



The five types of subroutines used in 
Phase 25 are the initialization, classifi- 
cation, processing, input/output, and gen- 
eration subroutines. 



Subroutines INITIALIZATION (KA) and 
ENTRY (KU) initialize Phase 25 and generate 
object program instructions to initialize 
the object program. 



The input buffers are primed. An 
address constant is calculated for use in 
assigning addresses to object program 
instructions. Because these addresses must 
be relative to zero, the constant is sub- 
tracted from the current value of the 
location counter each time an address is to 
be assigned to an instruction. 

Subroutine INITIALIZATION then initiali- 
zes the first text card image. It inserts 
the address at which the first instruction 
is to be loaded, and computes constants 
used in the double-buffering technique. 



Subroutine PrESCN (KB) classifies the 
intermediate text entries by adjective 
code. 

The subroutines described in chart des- 
criptions KC through KT process the inter- 
mediate text entries for various adjective 
codes and begin generating the instruc- 
tions . 

Subroutines BASCHK/RXOUT, RROUT (KX) , 
and GENBC (KV) generate the object program 
instruction and initialize the input/output 
subroutines to enter instructions in text 
cards . 



If a spill base register is necessary, 
an indicator is set to indicate to the 
other subroutines in Phase 25 that a spill 
base register must be used. If COMMON has 
used all the base registers for a FORTRAN 
program (registers 4 through 7) , an indica- 
tor is set to indicate a type 3 program. A 
type 3 program uses all available base 
registers (4, 5, 6, and 7) to reference 
COMMON in the object program. A type 3 
program presents the problem of not having 
a base register to establish addressability 
for instructions. Subroutine ENTRY 
resolves this problem. Subroutine ENTRY is 
then referenced to generate the coding for 
the object program to initialize itself. 



Subroutines GET (KW) and TXTEST, RLDTXT, 
TXTOUT (KZ) supervise the input/output for 
Phase 25. 



EXIT: Subroutine INITIALIZATION exits to 
subroutine PRESCN to begin processing the 
first intermediate text word. 



330 



SUBROUTINES CALLED; Subroutine INITIALIZA- 
TION references subroutine: 



Subroutine RXGEN/LM/STM: Chart KC 



1. ENTRY to assemble coding for an object 
program to initialize itself. 

2. GET (READXT entry) to prime input 
buffers. 

3. HEADNG to print a page heading, if 
necessary. 



Subroutine RXGEN/LM/STM processes inter- 
mediate entries with adjective codes 
between 25 and 8F (hexadecimal) and entries 
for store multiple and load multiple 
instructions in an ASF expansion. 



ENTRANCE: 



Subroutine RXGEN/LM/STM is 



entered from subroutine PRESCN. 



Subroutine PRESCN: Chart KB 



Subroutine PRESCN passes control to a 
Phase 25 subroutine to process the inter- 
mediate text entries for a statement. 



ENTRANCE : Subroutine PRESCN is entered at 
two points. The first entry point, PRESCN, 
is used if subroutine PRESCN must access an 
intermediate text word. The subroutines 
which enter PRESCN under this condition 
are: ASFDEF, ASFUSE, ASFEXP, ENDIO, TRGEN, 
CGOTO, RETURN, LABEL, RXGEN, FUNGEN, IOL- 
1ST, FIXFLT, SIGN, DIM, ABS, and 
STOP/ PAUSE. 

The second entry point, NOGET, is used 
if the entering subroutine has accessed an 
intermediate text word, and subroutine 
PRESCN must not access another intermediate 
text word. The subroutines entering PRESCN 
under this condition are: INITIALIZATION, 
ARITHI, D01, ENDDO, SAOP, AOP, SUBRUT, 
RDWRT, and STOP/PAUSE. 



OPERATION: Subroutine PRESCN uses the 
adjective code for the intermediate text 
entry to determine which Phase 25 subrou- 
tine should process the next series of 
intermediate text entries. Using shifting 
operations in the registers, subroutine 
PRESCN determines how to branch to a sub- 
routine. If the adjective code is less 
than or equal to 25 , (hexadecimal) , one 
branch table is accessed. If the adjective 
code is between 25 and 8F, control is 
passed directly to subroutine RXGEN/LM/STM. 
If the adjective code is greater than or 
equal to 8F, another branch table is 
accessed. 



EXIT: Subroutine PRESCN exits to the Phase 
25 subroutine determined by the adjective 
code. 



SUBROUTINE CALLED: During execution, sub- 
routine PRESCN references subroutine GET to 
access another intermediate text word. 



OPERATION: Subroutine RXGEN/LM/STM tests 
the next entry being processed for an 
arithmetic operation within an arithmetic 
statement function. If the entry is for an 
arithmetic operation, control passes to 
subroutine ASFEXP to enter the instruction 
in an arithmetic statement function expan- 
sion. If the entry is not an arithmetic 
operation in an ASF, a test is made to 
determine if the entry is to be developed 
into an ASF linkage instruction, which uses 
only general registers 14 and 15. 

If the text entry is neither for arith- 
metic operation nor a linkage instruction, 
it is not part of an ASF expansion. A test 
is made to determine if a register-to- 
register (RR) or a register-to-storage (RX) 
instruction is to be generated. For an RR 
instruction, the second register is 
inserted in the text word, and subroutine 
RROUT is called to generate the instruc- 
tion. If the text entry does not indicate 
that an RR instruction is to be generated, 
subroutine BASCHK is called to generate an 
RX instruction. 

An indication of an ASF linkage instruc- 
tion causes a test to be made to determine 
if a branch instruction should be generated 
from the intermediate text word. If so, 
another test is made to determine if this 
is the last ASF in the object program. If 
it is, the address of the first instruction 
in the program that is neither an ASF nor 
part of the initialization for the object 
program is entered in the branch table so 
the last instruction in the object program 
initialization may branch around any ASF to 
the first instruction. Subroutine 
RXGEN/LM/STM then tests for an RR instruc- 
tion. 

If the instruction is not a branch 
instruction, it is an instruction referenc- 
ing a dummy variable. Subroutine 
RXGEN/LM/STM zeros the bit in the instruc- 
tion set in Phase 20 to indicate that this 
intermediate text entry dealt with passing 
parameters. The subroutine calls subrou- 
tine RXOUT to generate the instruction. 

When subroutine RXGEN/LM/STM is entered 
to process the load or store multiple 
register instructions, a text entry desig- 
nating multiple register instructions has 
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been made with -the object program address 
allocated to storing registers. 
RXGEN/LM/STM inserts the load or store 
multiple operation code in the text word, 
inserts registers 2 and 3 in the instruc- 
tion, and calls subroutine BASCHK to gener- 
ate the instruction. 



EXIT: 



Subroutine RXGEN/LM/STM exits to 



Subroutines TRGEN, CGOTO; Chart KE 



Subroutine TRGEN 



Subroutine TRGEN generates branching 
instructions for unconditional GO TO state- 
ments. 



subroutines: 



1. PRESCN to process another intermediate 
text entry. 

2. ASFEXP to process an intermediate text 
entry for an arithmetic operation in 
an ASF. 

SUBROUTINES CALLED : RXGEN/LM/STM calls 
subroutines BASCHK/RROUT and RXOUT to gen- 
erate object program instructions. 



ENTRANCE: Subroutine TRGEN is entered from 
subroutine PRESCN when subroutine PRESCN 
encounters an unconditional GO TO adjective 
code, and from subroutine RETURN to gener- 
ate an unconditional branch. 



Subroutine LABEL: Chart KD 



Subroutine LABEL processes intermediate 
text entries for statement numbers defini- 
tions . 

ENTRANCE : Subroutine LABEL is entered from 
subroutine PRESCN when an intermediate text 
entry for a statement number is encoun- 
tered. 

OPERATION: Subroutine LABEL inserts the 
statement number in the print buffer. It 
then loads the contents of the location 
counter in a register, subtracts the 
address constant computed in subroutine 
INITIALIZATION from the register, and 
inserts the result in the print buffer as 
the address of the statement number. 

The buffer pointer is updated and 
checked to determine if the end of the 
print buffer is reached. If so, the 
FORTRAN System Director is called to print 
the contents of the buffer. 

If the statement number is referenced by 
an executable statement, its entry in the 
overflow table is accessed for the branch 
list number. This number is used to com- 
pute the position for the statement number 
in the branch iist. The address for the 
statement number location in the object 
program instructions is inserted in the 
branch list. 

EXIT: Subroutine LABEL exits to subroutine 
PRESCN to process the next intermediate 
text word. 

SUBROUTINES CALLED: Subroutine LABEL ref- 
erences the FORTRAN System Director to 
print statement numbers in the storage map. 



OPERATION: Subroutine TRGEN accesses the 
overflow table pointer in the intermediate 
text word. The relative number in the 
branch table is in the overflow table 
statement number entry. Subroutine TRGEN 
uses the relative number in the branch 
table to compute the address of the branch 
table entry for the statement number. In 
the object program, the address of the 
object program instruction for the state- 
ment that defined the statement number is 
located at the branch table address comput- 
ed by subroutine TRGEN. 

Subroutine TRGEN generates an instruc- 
tion to load the address stored in the 
branch table in a general register, and an 
instruction to branch to the address con- 
tained in the register. 

EXIT: Subroutine TRGEN exits to subroutine 
PRESCN if an unconditional GOTO is generat- 
ed, or subroutine RETURN, if RETURN 
instructions are generated. 

SUBROUTI NES CALLED : During execution sub- 
routine TRGEN references the following sub- 
routines: 

1. BASCEK/RXOUT to generate the load 
instruction. 

2. RROUT to generate the branch instruc- 
tion. 



Subroutine CGOTO 



Subroutine CGOTO processes intermediate 
text entries for computed GO TO statements. 
It generates the calling sequence for the 
computed GO TO library subroutine. 

ENTRANCE: Subroutine CGOTO is entered from 
subroutine PRESCN when a computed GO TO 
adjective code is recognized. 
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OPERATION: Subroutine CGOTO accesses 
intermediate text entries until it finds 
the variable for the statement. Instruc- 
tions are then generated to load the varia- 
ble into general register 2 and to load the 
beginning address of the computed GO TO 
subroutine in a general register. A branch 
and link instruction is generated to the 
address contained in the register. 



r t t t 

I increment | test value | | 

| or address jor address j jdisplace- 

| of variable | of variab- | address j ment of 

j represent- j le re pre- jof DO j branch 

j ing increm- | senting | variable j list 

j ent j test value j j entry 



The address of the beginning of the 
branch list is inserted in the object 
program immediately following the BALR 
instruction; then, the numbers of paramet- 
ers in the call are inserted. Then the 
relative number for each statement number 
is inserted in the object program. The 
computed GO TO library subroutine uses the 
beginning address of the branch table and 
the list of relative numbers to branch to 
the correct instruction in the object pro- 
gram. 



EXIT; 

Subroutine CGOTO exits to subroutine PRESCN 

to process the next intermediate text word. 



SUBROUTINES CALLED; During execution sub- 
routine CGOTO calls the following subrou- 
tines : 

1. BASCHK to generate load instructions. 

2. RROUT to generate the branch and link 
instruction and insert the list of 
relative numbers in the object pro- 
gram. 

3. ARGOUT to insert the beginning address 
of the branch list in the object 
program. 



Subroutines DPI, ENDDO: Chart KF 



Subroutine D01 



Subroutine D01 sets up a DO table for a 
DO statement and establishes one instruc- 
tion to initialize a DO loop and another 
instruction to store the value of the DO 
variable. 



Subroutine D01 enters the increment, 
test value, and address of the DO variable 
in the DO table. D01 also checks the 
initializing value of the DO loop for an 
immediate DO parameter. If that value is 
for an immediate parameter, a load address 
instruction is generated to load the ini- 
tial value for the DO loop in a general 
register. If it is not, a load instruction 
is generated to load the parameter from its 
location in main storage into the general 
register. 

An address in the branch list is comput- 
ed for the DO loop. Each DO is assigned a 
number, and the branch list location is 
computed using this number. The contents 
of the location counter are placed in the 
branch list location. The location counter 
contains the address of the next instruc- 
tion to be generated. 

An instruction is then generated to 
store the register containing the DO varia- 
ble in the location of the DO variable. 

For the statement; 

DO 12 I = J, 100, 3 

these instructions are generated by subrou- 
tine D01 ; 

L 0, J 

ST 0, I 

The address of the store instruction is 
entered in the branch list. 



EXIT; 



Subroutine D01 exits to subroutine 



PRESCN to process the first intermediate 
text entry within the DO loop. 



SUBROUTINE CALLED 
subroutine 
instructions . 



Subroutine D01 calls 

BASCHK/RXOUT to generate 



ENTRANCE : Subroutine D01 is entered from 
subroutine PRESCN when a DO or implied DO 
adjective code is recognized. 



OPER TION: Subroutine D01 makes entries in 
table which consists of 25 8-byte 
Each entry contains four 2-byte 



the DO 

entries. 

fields and has the following format; 



Subroutine ENDDO 



Subroutine ENDDO generates instructions 
to end a DO loop. 

ENTRANCE; Subroutine ENDDO is entered from 
subroutine PRESCN when an end DO adjective 



code is recognized. 
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OPERATION; Subroutine ENDDO initializes 
the skeleton instruction and then deter- 
mines if the increment value is an immedi- 
ate DO parameter or a variable. If it is 
an immediate DO parameter, a load address 
instruction is generated to load the param- 
eter in register 2. If it is a variable , a 
load instruction is generated to load the 
variable into general register 2. 

Subroutine ENDDO then checks the test 
value of the DO loop for an immediate DO 
parameter. If it is, a load address 
instruction is generated to load the test 
value into general register 3. If it is 
not, a load instruction is generated to 
load the test value from its location in 
main storage into general register 3. 

Subroutine ENDDO generates an instruc- 
tion to load the DO variable into register 
0. The location of the branch list entry 
for the DO loop is computed and inserted 
into a skeleton instruction. A load 
instruction is generated to load the 
address in the branch list entry in reg- 
ister 1. 

Subroutine RXOUT is then called to con- 
struct a BXLE instruction. This instruc- 
tion is used to increment the DO variable 
and test if the DO variable has reached its 
test value. The instruction generated is 
BXLE 0,2,0(1) . For the statement: 

DO 25 I=J, 100,3 

these instructions are generated by subrou- 
tine ENDDO: 

LA 2,3 

LA 3,100 

L 0,1 

L 1, address in branch list 

BXLE 0,2,0(1) 



r — . T _ 

Ad j ective | Mode/Type 
Code j Code 

IF | j 
Forcing j mode| 

j statement 
j number 

| statement 
j number 

j statement 
j number 



Address 



R 
— ± J 



end mark | 

adjective | 

code j mode/ type 

j 



P(D 

+ ^ 

P(2) 

P(3) 

internal statement 
number 

^ 



address or 

Pff) 

j 



The symbols p (1) , p (2) , and p (3) represent 
overflow table pointers to the first, sec- 
ond and third statement numbers, respec- 
tively, used in the IF statement. If an 
arithmetic expression was used as the argu- 
ment for the IF statement, Phase 15 has 
assembled intermediate text entries for the 
computation of the value of the expression 
ahead of the entry containing the forcing 
IF adjective code. 

These entries are processed by other 
subroutines in Phase 25. The entries for 
the expression were designed so that the 
result is placed in the register R, indi- 
cated in the first text word. The instruc- 
tion generated from the last text word 
before the IF adjective code insures that 
the result of the operation is placed in 
register R. 



EXIT: Subroutine ENDDO exits to subroutine OPERATION: Subroutine ARITHI accesses the 



PRESCN. 

SUBROUTINE CALLED: Subroutine ENDDO calls 
subroutine BASCHK/RXOUT to generate 
instruct ions . 



Subroutine ARITHI: Chart KG 



Subroutine ARITHI processes 
IF statements in Phase 25. 



arithmetic 



ENTRANCE : Subroutine ARITHI is entered 
from subroutine PRESCN when PRESCN recog- 
nizes an IF forcing adjective code. 



CONSIDERATION 
for an IF 
following format: 



The intermediate text input 
statement in Phase 25 has the 



text words depicted in the diagram and 
places them in a work area. Subroutine 
ARITHI tests an indicator set in the low 
order portion of the mode/type field in the 
IF forcing entry. This indicator indicates 
if the instruction generated from the text 
entry immediately preceding the IF forcing 
entry set the condition code. If the 
instruction did not set the condition code, 
a load and test instruction is generated to 
set the code to test for a negative, zero, 
or positive expression value. 

The remainder of subroutine ARITHI 
optimizes and generates the branching 
instructions for the IF statement ( a load 
instruction to load register 1 from the 
branch list and a branch on condition code 
to the address placed in the register) . 
The mask for the branch instruction is set 
by subroutine ARITHI according to the con- 
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ditions represented by the statement 
bers in the IF statement* 



num- 



The optimization is concerned with the 
number of branch instructions generated. 
It is affected by the following conditions: 

1. Two of the statement numbers are 
equal. 

2. The entry following the end mark entry 
for an IF statement is the statement 
number definition for one of the 
statement numbers referenced by the IF 
statement. 



IF statement is the definition entry for 
one of the statement numbers referenced by 
the IF statement. 

For example, the FORTRAN statements 

IF (A) 1 , 2 , 3 
1 X = A+1.0 



3 X 



A-1.0 



One branch instruction is generated for 
two equal statement numbers if the entry 
following the end mark entry is the defini- 
tion entry for one of the statement numbers 
referenced by the IF statement. 

For example , the FORTRAN statements 

IF (I) 1,1,2 
1 X = A + 1.0 



X = A 



generate the following instructions: 



LE 


0,A 


LTER 


0.0 


L 


1 , STN02 


BCR 


8,1 


L 


1,STN03 


BCR 


2,1 



2 X = A + 1.0 

generate the following instructions for the 
IF statement: 

L 0,1 

LTR 0,0 

L 1 , STN02 

BCR 2, 1 

Two branch instructions are generated 
for two equal statement numbers referenced 
by the IF statement if the entry following 
the end mark entry is not the definition 
entry for any of the statement numbers in 
the IF statement. 



Three branch instructions are generated 
for unequal statement numbers if the entry 
following the end mark entry is not the 
definition entry for any of the statement 
numbers referenced by the IF statement. 

EXIT: Subroutine ARITHI exits to subrou- 
tine PRESCN to process the next entry in 
the intermediate text. 



SUBROUTINES 



CALLED: 



Subroutine ARITHI 

calls subroutines; GENBC to generate the 
branch instructions and RXOUT to generate a 
load and test instruction. 



Subroutine RDWRT: Chart KH 



For example, the FORTRAN statements 



IF (A) 1,1,2 

69 LOAD = 2.0 + 2.0 



Subroutine RDWRT processes the entries 
in the text for the READ/WRITE BACKSPACE, 
REWIND, and END FILE adjective codes, the 
FORMAT statement number, and the reference 
to the data set reference number. 



1 X = A+1,0 

generate the following instructions for the 
IF statement: 



LE 


0,A 


LTER 


0.0 


L 


1,STN01 


BCR 


13,1 


L 


1,STN02 


BCR 


2, 1 



Two branch instructions are also gener- 
ated for unequal statement numbers if the 
entry following the end mark entry for an 



ENTRANCE: Subroutine RDWRT is entered by 
subroutine PRESCN when PRESCN recognizes 
the READ/WRITE, BACKSPACE, REWIND, or END 
FILE adjective codes. 

OPERATION: Subroutine RDWRT determines if 
this is a READ/WRITE statement using a 
FORMAT statement. If it is, the FORMAT 
indicator is set on. If no FORMAT state- 
ment is associated with this input/output 
statement, two text words are accessed. If 
a FORMAT statement is associated with the 
statement, three text words are accessed. 

All input/output operations are proc- 
essed by IBCOM. Subroutine RDWRT generates 
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a calling sequence to enter and pass param- 
eters to IBCOM. Subroutine RDWRT generates 
an instruction to load the address of IBCOM 
in a general register. The adjective code 
for the statement is used to generate a 
displacement for a branch instruction. The 
displacement is the distance in bytes 
between the I/O subroutine represented by 
the adjective code and the beginning of 
IBCOM. A branch and link instruction is 
generated to branch to the particular sub- 
routine in IBCOM. 

The symbol referencing the data set 
reference number is checked for a data set 
reference number or an integer variable. A 
word is placed in the object program fol- 
lowing the branch and link instruction 
indicating the type of symbol referencing 
the data set reference number , and contain- 
ing the address of the integer variable or 
the data set reference number, itself. 

If the I/O statement requires a FORMAT, 
the address of the FORMAT information is 
accessed from the overflow table and 
inserted in the object program as a param- 
eter passed to IBCOM. 

EXIT; Subroutine RDWRT exits to subroutine 
PRESCN to process the next intermediate 
text word. 

SUBROUTINE CALLED; Subroutine RDWRT calls 
the following subroutines; 

1. GET to access intermediate text words. 

2. BASCHK to generate the load instruc- 
tion. 

3. RXOUT to generate the branch and link 
instruction and to generate the param- 
eter containing the data set reference 
number . 

4. ARGOUT to insert addresses in the 
object program. 



OPERATION; Subroutine IOLI ST determines if 
the symbol entered in the I/O list is an 
array. If it is not an array, the indica- 
tor set in subroutine RDWRT is tested to 
determine if the symbol in the list 
requires a FORMAT. If it does not require 
a FORMAT, a displacement is computed for 
subroutine FIOLN in IBCOM, and a branch and 
link instruction is generated to call that 
IBCOM subroutine. If the symbol does 
require a FORMAT, the displacement is com- 
puted for subroutine FIOLF in IBCOM and a 
branch and link instruction is generated to 
call that IBCOM subroutine. 



To complete the calling sequence for 
either FIOLN or FIOLF, a parameter word is 
generated. This word contains the length 
of the variable (4 for real or integer, 8 
for double-precision), an indexing register 
if the variable is subscripted, and the 
base-displacement address of the variable 
in the I/O list. 



When this subroutine was entered, a test 
was made to determine if the item in the 
I/O list is an array. If the item is an 
array, the next text word is accessed, and 
the indicator set in subroutine RDWRT is 
tested to determine if the array requires a 
FORMAT. If the array does require a 
FORMAT, the displacement is calculated for 
subroutine FIOAF in IBCOM, and a branch and 
link instruction is generated to subroutine 
FIOAF. If the array does not require a 
FORMAT, a displacement is computed for 
subroutine FIOAN in IBCOM, and a branch and 
link instruction is generated to FIOAN. 



If the item in the I/O list is an array, 
two parameter words are generated. The 
first word contains the beginning address 
of the array; the second contains the 
length and number of the elements in the 
array. 



Subroutine IOLIST; Chart KI 



Subroutine IOLIST processes each member 
in the I/O list. 



EXIT; Subroutine 
tine PRESCN after 
entry is processed. 



IOLIST exits to subrou- 
the intermediate text 



ENTRANCE ; Subroutine IOLIST is entered 
from subroutine PRESCN when it detects a 
variable in an I/O list designated by a 
left parenthesis, right parenthesis, or a 
comma • 

CONSIDERATION; An instruction was generat- 
ed in subroutine RDWRT to load a register 
with the starting address of IBCOM. The 
address in this register is not altered by 
any of the I/O processing. Instructions in 
subroutine IOLIST are generated assuming 
this condition. 



SUBROUTINES CALLED; During execution, sub- 
routine IOLIST calls the following subrou- 
tines; 

1. RXOUT to generate branch and link 
instructions and to insert the length 
and number of elements in a _ parameter 
word for an array. 

2. ARGOUT to insert the address of the 
beginning of an array in the object 
program. 

3. BASCHK to generate the parameter word 
for variables in an I/O list. 
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Subroutine ENDIO: Chart KJ 



where: 



Subroutine ENDIO processes the 
entry in the intermediate text. 



end I/O 



ENTRANCE ; Subroutine ENDIO is entered from 
subroutine PRESCN when an end I/O list 
adjective code is recognized. 

OPERATION: Subroutine ENDIO tests the 
indicator set by subroutine RDWRT to deter- 
mine if the I/O list requires a FORMAT. If 
it does, the displacement for subroutine 
FENDF in IBCOM is calculated, and a branch 
and link instruction is generated to call 
subroutine FENDF. If the I/O list does not 
require a FORMAT, the displacement for 
subroutine FENDN in IBCOM is calculated, 
and a branch and link instruction to call 
subroutine FENDN is generated. The FORMAT 
indicator is set off. 

EXIT: Subroutine ENDIO exits to subroutine 
PRESCN to process the next intermediate 
text entry. 

SUBROUTINE CALLED: Subroutine ENDIO calls 
subroutine RXOUT to generate the branch and 
link instructions. 



Subroutines SAOP, AOP: Chart KL 



Subroutine SAOP 



Subroutine SAOP processes intermediate 
text entries for subscript calculation if 
the entire subscript indexing factor must 
be calculated. 

ENTRANCE : Subroutine SAOP is entered from 
subroutine PRESCN when an SAOP or XOP 
adjective code is recognized. 

CONSIDERATION: The intermediate text 
entries for subscripted variables are in 
the format as described in Phase 20. 



j Adjective j Mode/Type 
| Code | Code 

| XOP or | | 

j SAOP j N | W 

j p (subscript) 



Pointer 



I 



C2*D1*L 



| Op 



I 



Offset 



+- 



C1*L 



C3*D1*D2*L 



Address of A 



N = number of dimensions 

W = work register 

R = register containing 

operation 
X = index register 



the result of the 



OPERATION: Subroutine SAOP gets the next 
three intermediate text words, stores them 
in a work area, and begins generating 
instructions for the first subscript param- 
eter. 

If the first parameter is a constant, no 
instructions are generated for it; the 
first parameter was included in the offset. 
If it is not a constant, a test is made to 
determine if a literal was generated for 
C1*L. If a literal was generated, an 
instruction is generated to load X with 
C1*L. Then, an instruction is generated to 
multiply the contents ofX by V1. If a 
literal was not generated, the product C1*L 
was found to be a number of the form 2 and 
the number p was entered in the pointer 
field of the intermediate text by Phase 20. 
V1 is loaded into X. An instruction is 
generated to multiply the contents of X by 
shifting left p bits. 

A test is made to determine if there is 
more than one subscript parameter in the 
subscript expression. If there is another 
parameter, a test is made to determine if 
the second parameter is a constant. If it 
is, no code is generated for this paramet- 
er. If the second parameter is not a 
constant, an instruction is generated to 
load C2*D1*L into the work register. 
Another instruction is generated to multi- 
ply the contents of W by the value V2. The 
next instruction generated adds the con- 
tents of W to the contents of X. The 
dimension count is decreased by 1 and a 
test is made for a third dimension. 

The third dimension instructions are 
similar to those generated for the second 
dimension. C3*D1*D2*L is loaded into W; W 
is multiplied by V3, and the contents of W 
are added to X. 

When all the instructions have been 
generated for the variables in the sub- 
script expression, a test is made to deter- 
mine if the instruction is part of an I/O 
list. If it is, an indicator is set for 
the I/O subroutines to handle this condi- 
tion. 

A test is then made to determine if the 
offset is a literal. If it is, an instruc- 
tion is generated to add the literal to the 
contents of X. If the offset is not a 
literal, the offset is added to the dis- 
placement portion of the instruction to be 
executed for the subscripted variable. 
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Condition 



Instruction 



First variable 



Second variable 



L 
MH 



X=(C1*L) 
X,V1+2 



Alternate Instructions j 
H 



L X,V1 

SLA X,p 



L W,= (C2*D1*L) 

MH W,V2+2 
AR X,W 



I 



-H 



f 



Third variable 



Offset 



L W,= (C3*D1*D2*L) | 
MH W,V3+2 | 

AR X,W j 



X,= (offset) 



Operation 



op R,A (X) 



no instruction 
op R,A+of f set (X) 



-H 



For the general form illustrated 
these instructions are generated: 



EXIT: 



above. 



Subroutine SAOP exits to subroutine 

PRESCN to assemble the instruction for the 
subscripted variable. 

SUBROUTINES CALLED: During execution sub- 
routine SAOP calls subroutines BASCHK/RXOUT 
and RROUT to generate instructions. 



Subroutine AOP 



Subroutine AOP processes entries in the 
intermediate text for subscript calcula- 
tions that do not use variables. 



variable is accessed and a test is made to 
determine if the offset is a literal. If 
it is not, the offset is added to the 
displacement portion of the address in the 
instruction portion of the literal. 



If the offset was a literal, a test is 
made to determine if the offset is for a 
constant subscript or was generated by 
Phase 20 for use with a previously/ calcu- 
lated subscript expression. If it is for a 
constant subscript, an instruction is gen- 
erated to load the offset into X. If it is 
for use with a previously calculated 
expression, the offset is really an adjust- 
ing factor for X, and the offset is added 
to the contents of X. 



ENTRANCE : Subroutine AOP is entered from 
subroutine PRESCN when an AOP adjective 
code is recognized. 



CONSIDERATION: 



The intermediate 



text 

entries for a subscripted variable with an 
AOP adjective code are in this format as 
described in Phase 20: 



j Ad j e cti ve | Mode/ Type | 

j Code j Code j Pointer 

h 



| AOP 
| OP 



I 00 

| R j X 



(offset 



address of A 



The offset may be in the form of an 
actual constant or a literal with the 
address of the literal in the intermediate 
text entry. The AOP entry is made for 
variables with a constant subscript, or for 
a subscript calculation that has been elim- 
inated by Phase 20. 

OPERATION: The text word containing the 
operation performed on the subscripted 



A test is then made to determine if the 
entry is in an I/O list. If it is, the I/O 
list indicator is set on for reference by 
the I/O subroutines. 

In summary, no subscript calculations 
are generated for an offset that is not a 
literal. The instruction for the operation 
takes the form: 



op 



R,A+offset 



For a literal, one instruction is generated 
for subscript calculation. If the offset 
is for a constant subscript, the instruc- 
tion: 

L X,= (offset) 

is generated. For an offset used as an 
adjustment factor on a previously calculat- 
ed expression, the instruction: 



A X,= (offset) 

is generated. The instruction 
the operation takes the form: 



containing 



op 



R,A (X) 
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EXIT: 



Subroutine AOP exits to subroutine 



PRESCN to generate the instruction contain- 
ing the operation on the subscripted varia- 
ble. 

SUBROUTINES CALLED; During execution sub- 
routine AOP calls subroutine BASCHK to 
generate the instruction for adjusting X 
with the offset. 



Subroutines ASFDEF, ASFEXP, ASFUSE: Chart 
KM 



address for the parameter in 
ister 15. 



general reg- 



Subroutine ASFEXP accesses the operation 
field and the work register assigned to the 
operation in the intermediate text word. 
It then generates an instruction to perform 
the opera ti on , placing the result in the 
work register. The displacement field of 
this instruction contains a zero. The base 
register is general register 15, because 
the first generated instruction placed the 
address of the parameter in general reg- 
ister 15. 



Subroutine ASFDEF 



For example, if the text word. 



Subroutine ASFDEF processes the first 
word for an arithmetic statement function 
definition. 

ENTRANCE : Subroutine ASFDEF is entered 
from subroutine PRESCN when the ASF defini- 
tion adjective code is recognized. 

OPERATION: Subroutine ASFDEF accesses the 
ASF number in the pointer field of the 
intermediate text entry and calculates the 
address of this number in the second branch 
table. The operations defining the arith- 
metic statement function follow this text 
word. The contents of the location counter 
are inserted at the address in the ASF 
table just calculated. 



EXIT: Subroutine ASFDEF exits to subrou- 
tine PRESCN to get the first word of the 
arithmetic statement function expansion. 



j Operation j Mode/Type j 

| Code | Code j Pointer 

f + + _ 



AE 



60 



1008 



is generated by Phases 15 and 20, the 
following instructions are generated by 
Phase 25: 



L 
AE 



15, 8(9) 
6, 0(15) 



The displacement 8 in the first instruction 
is accessed from the pointer field in the 
text word. The work register 6 is accessed 
from the mode/type field, and the operation 
AE is accessed from the adjective code 
field in the text word. In this example, 
register 9 is used to pass the address of 
the parameter list. 



Subroutine ASFEXP 



Subroutine ASFEXP processes intermediate 
text entries for arithmetic operations in 
an arithmetic statement function expansion. 

ENTRANCE : Subroutine ASFEXP is entered 
from subroutine RXGEN/LM/STM when the 
intermediate text entry for an arithmetic 
operation in an ASF expansion is recog- 
nized. 

OPERATION: An instruction is generated by 
subroutine RXGEN immediately before calling 
the instructions for an ASF. This places 
the address of the parameter list for an 
ASF reference in a general register. The 
parameter list contains the addresses of 
the parameters used in the ASF reference. 

Subroutine ASFEXP accesses the pointer 
field in the intermediate text word to find 
which parameter is used in this text word. 
It generates an instruction to load the 



EXIT: Subroutine ASFEXP exits to subrou- 
tine PRESCN to process the next text word. 



SUBROUTINE CALLED : 



During execution sub- 
subroutine RXOUT to 



routine ASFEXP calls 

generate object program instructions 



Subroutine ASFUSE 



Subroutine ASFUSE generates the instruc- 
tions to call an arithmetic statement func- 
tion. 

ENTRANCE: Subroutine ASFUSE is entered 
from subroutine PRESCN when the adjective 
code for an ASF usage is recognized. 

OPERATION: Subroutine ASFUSE accesses the 
pointer field of the text word and gets the 
ASF number assigned to the called function. 
The number is used to compute the address 
of the entry in the ASF table. This 
address is entered in a load instruction, 
which is generated to load the address from 
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the ASF table of the first instruction in 
the ASF expansion in general register 15. 

Subroutine ASFUSE then generates an 
instruction BALR 14, 15 to branch to the 
first instruction in the ASF expansion. 

EXIT; Subroutine ASFUSE exits to subrou- 
tine PRESCN to process the next intermedi- 
ate text word. 

SUBROUTINES CALLED: During execution sub- 
routine ASFUSE calls subroutines RXOUT and 
RROUT to generate the load instruction and 
the branch instruction, respectively. 



Subroutine SUBRUT: Chart KN 



Subroutine SUBRUT processes FUNCTION and 
SUBROUTINE header cards. It builds the 
epilog table for the subprogram and gener- 
ates instructions to pass the parameters in 
the calling program to the subprogram. 

ENTRANCE: Subroutine SUBRUT is entered 
from subroutine PRESCN when the adjective 
code for a FUNCTION or SUBROUTINE header 
card is recognized. 

OPERATION: Subroutine SUBRUT computes the 
address of the epilog table, in order that 
the epilog table can be constructed. 

Subroutine SUBRUT gets the next text 
word and tests it for an end mark entry. 
If it is an end mark, the end of the 
intermediate text entries for the subpro- 
gram has been reached. Subroutine SUBRUT 
then generates a branch instruction to 
bypass instructions that will be generated 
for any ASF in the subprogram. 

If the next text word is not an end 
mark, a test is made to determine if the 
text word is a dummy array. If it is, a 
move instruction is generated to move the 
address of the dummy from the parameter 
list in the calling program to the field 
that has been allocated to the dummy symbol 
in the subprogram. During object execution 
the address of the parameter list is passed 
to the subprogram in a general register. 
In Phase 25 the displacement of the param- 
eter from the beginning of the parameter 
list is obtained by maintaining a count of 
the number of dummy names accessed by 
subroutine SUBRUT. 



number 4 for real or integer, or 8 for 
double-precision variables is saved. The 
displacement of the parameter from the 
beginning of the parameter list is inserted 
in the load skeleton instruction. A load 
instruction is then generated to access the 
address of the variable in the main program 
from the parameter list and put it in a 
general register. For example, subroutine 
SUBRUT may generate the instruction: 

L 2,DISP2(1) 

where 1 is the general register in which 
the address of the parameter list was 
placed by the calling program, and DISP2 is 
the displacement of the second variable 
from the beginning of the parameter list. 
The result of this instruction is the 
placement of the address of the second 
parameter in the calling program in general 
register 2. 

A move instruction is generated to move 
the variable used as a parameter in the 
calling program to its location as a dummy 
variable in the subprogram. The address 
assigned to the dummy variable is placed in 
the move skeleton instruction and the move 
instruction is generated. For example, 
subroutine SUBRUT generates the following 
instruction after the load instruction: 

MVC DUMMY2 (4) , (2) 

where DUiyiMY is the location of the dummy 
variable in the subprogram and, if it is 
double-precision, its field length is 8. 

The information for a dummy variable is 
placed in the epilog table, which is used 
by instructions generated by subroutine 
RETURN to return the value of dummy varia- 
bles to the main program. The length of 
the variable, parameter list displacement, 
and the address of the variable in the main 
program are placed in the epilog table. 
The displacement for the parameter list is 
updated, and subroutine SUBRUT gets the 
next text entry to determine if it is an 
end mark. 



EXIT: 



Subroutine SUBRUT exits to subrou- 



tine PRESCN when an end mark indicating the 
end of the parameter list is recognized. 

SUBROUTINES CALLED: During execution, sub- 
routine SUBRUT calls the following subrou- 
tines: 



If the dummy name is a variable, its 
value, not its address, is passed to the 
subprogram. If the dummy name is a func- 
tion, the address of an address constant is 
passed to the subprogram. A load instruc- 
tion and a move instruction are generated. 
The mode of the variable is tested, and the 



1 . GENBR to generate a branch around the 
ASF expansions. 

2. RXOUT or RROUT to generate move 
instructions . 

3. RXOUT to generate load instructions. 

4. GET to access intermediate text words 
from the input buffer. 
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Subroutine RETURN: Chart KO 



Subroutine RETURN processes any inter- 
mediate text entries for a RETURN state- 
ment . 



TRGEN if a RETURN has already been 
generated to generate an unconditional 
branch to the coding for the first 
RETURN in the subprogram. 



ENTRANCE: 



Subroutine RETURN is entered 



from subroutine PRESCN when a RETURN adjec- 
tive code is recognized. 

OPERATION: If any previous RETURNS have 
been processed for the subprogram, subrou- 
tine RETURN generates instructions for the 
following RETURNS to branch to the coding 
generated for the first RETURN. 

If no previous RETURNS have been gener- 
ated for the subprogram, the coding for the 
RETURN must be generated. The address of 
the RETURN coding is placed in the branch 
list, so that following RETURNS generated 
in the subprogram may branch to the same 
RETURN coding. Instructions are then gen- 
erated to load the pointer to the parameter 
list in a general register and to return 
the value of the parameters to the caller. 

If the subprogram is a FUNCTION subpro- 
gram, an instruction is generated to return 
the value of a function in a general 
register . 

When the subprogram was entered, 
instructions were generated to save the 
registers of the calling program in main 
storage. The pointer to this area is 
placed in a general register. If another 
subprogram is called within a subprogram, 
this pointer must be saved in main storage. 
When the subprogram is returning to the 
calling program, this pointer must be 
reloaded into a register so that the reg- 
isters for the calling program can be 
restored . 

Instructions are then generated to res- 
tore the registers to the same values they 
contained when the subprogram was called. 

\ The exit branch is then generated to 
return control to the calling program. The 
address to which the subprogram should 
return was left in register 14 by the 
branch and link instruction of the calling 
program. 

EXITS : Subroutine RETURN exits to subrou- 
tine PRESCN after the instructions for a 
RETURN have been generated. 

SUBROUTINES CALLED: During execution sub- 
routine 
tines : 



RETURN calls the following subrou- 



RROUT, RXOUT, and BASCHK to generate 
instructions for the first RETURN in a 
subprogram. 



Subroutine FUNGEN/EREXIT: Chart KP 



Subroutine FUNGEN/EREXIT processes all- 
in-line and library function calls. If the 
GOGO option is on, subroutine FUNGEN/EREXIT 
is used to generate the coding where source 
program errors occurred. 



ENTRANCE: 



Subroutine 



FUNGEN/EREXIT is 



entered from subroutine PRESCN when: 



1. An in-line function is called. 

2. A library function is called. 

3. An exponentiation operation is 
performed. 

4. An intermediate text entry for 
error is encountered. 



to be 



an 



OPERATION: Subroutine FUNGEN/EREXIT is 
entered at two points. The first entry 
point, FUNGEN, tests for an in-line func- 
tion. 



If the function is in-line, subroutine 
FUNGEN/EREXIT uses the function identifi- 
cation number to access a branch table and 
find the address of the subroutine used to 
generate the coding. 

The second entry point, EREXIT, causes 
subroutine FUNGEN/EREXIT to access the 
address of the library subroutine IBERR 
from the communications area. 

If the function is not in-line, subrou- 
tine FUNGEN/EREXIT generates instructions 
to load the address of the library function 
from its address constant in a general 
register, and an instruction to branch to 
the address loaded in the register. 



EXIT: Subroutine FUNGEN/EREXIT exits to 
subroutine PRESCN after generating the lin- 
kage instructions for a library subroutine, 
or the proper subroutine for generating a 
specific in-line function. 



SUBROUTINES CALLED: During execution sub- 
routine FUNGEN/EREXIT calls subroutines 
BASCHK and RROUT to generate the instruc- 
tions for linkage to a library subroutine. 



Phase 25 



341 



Subroutines FIXFLT, GNBC6; Chart KQ 



Subroutine FIXFLT 



Subroutine FIXFLT generates instructions 
for the in-line functions IFIX, FLOAT, and 
DFLOAT. 



ENTRANCE ; Subroutine FIXFLT is entered 
from subroutine FUNGEN/EREXIT when the 
function number in the intermediate text 
word indicates one of the in-line functions 
IFIX, FLOAT, or DFLOAT. 



CONSIDERATION: 



Phase 15 enters 



intermedi- 

text words for in-line functions. One 
forces the Phase 25 subroutine 



ate 
word 

RXGEN/LM/STM to generate an instruction to 
insert the argument in a floating-point 
register. The second word contains the 
adjective code for an in-line function, the 
number of a floating point register (R1) 
and a fixed point register (R2) , and the 
number of the in-line function in the 
pointer field. Phase 15 generates text 
words to insure that RXGEN generates 
instructions to initialize R1 and R2, and 
possibly a third fixed point register whose 
number is R2-1. 

OPERATION: Subroutine FIXFLT determines if 
the in-line function is IFIX. If it is, 
the following instructions are generated: 



AW 

STD 

L 

BALR 

BC 

LNR 



R1, CONST 

R1,W0RK 

R2,WORK+4 

15,0 

10,6(15) 

R2,R2 



Phase 15 generated a text word that 
insured that the floating-point word was 
loaded into R1. The add unnormalized 
instruction adds the constant 
4E00000000000000 to R1. This insures that 
the integer portion of the number is locat- 
ed in the low order portion of the number. 
The store double and load instructions load 
the low order portion of this number into 
R2. The BALR instruction is generated to 
insure addressability for the next generat- 
ed instruction. The add unnormalized 
instruction sets the condition code, and 
the three instructions following it do not 
change the code. A branch on condition 
code instruction is generated to determine 
if the original floating-point number is 
negative. If it is, the instruction fol- 
lowing the BC instruction is executed and 
the number in the general register is made 
negative by the load negative instruction. 
Otherwise, the branch on condition code 
instruction branches around the load nega- 
tive instruction. 



If the in-line function is not IFIX, the 
instructions for FLOAT and DFLOAT are gen- 
erated. The instructions for either of 
these subroutines are the same. The text 
entries made by Phase 15 before and after 
the text word containing the in-line func- 
tion number cause RXGEN to generate 
instructions for either single precision or 
double precision variables. 

The instructions generated by subroutine 
FIXFLT/GENBC6 are: 



LPR 


R2-1,R2 


ST 


R2-1,WORK+4 


LD 


R1, CONST 


AD 


R1,W0RK 


LTR 


R2,R2 


BALR 


15,0 


BC 


10,6(15) 


LNER 


R1,R1 



Phase 15 entered a text word word which 
forced RXGEN to generate an instruction to 
load the argument of the function in R2. 
Subroutine FIXFLT generates an instruction 
to load positive the value in R2 into R2-1. 
The value in R2-1 is stored in a work area. 
The constant 4EOOO0OOOOOOOO0O is then load- 
ed into register R1, and the contents of 
the work area are added to register R1. A 
load and test instruction is generated to 
determine if the integer number is negative 
or positive, and the same three instruc- 
tions are generated for DFLOAT and FLOAT 
that were generated for IFIX. 

EXIT: Subroutine FIXFLT exits to subrou- 
tine PRESCN to process the next intermedi- 
ate text entry. 

SUBROUTI NES CALLED : Subroutine FIXFLT 
calls the following subroutines: 

1. BASCHK/RXOUT and RROUT to generate 
instructions . 

2. GNBC6 to generate the branch instruc- 
tions. 



Subroutine GNBC6 



Subroutine GNBC6 generates branch 
instructions for the in-line functions. 

ENTRANCE: Subroutine GNBC6 is entered from 
subroutines FIXFLT, SIGN, and DIM. 



OPERATION: 



When 



subroutine GNBC6 is 



entered, the calling subroutine has insured 
that instruction has been generated to set 
the condition code. 



Subroutine 
tions: 



GNBC6 generates two instruc- 
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BALR 15,0 
BC M f 6(15) 

where M is the mask for the instruction 
passed by the subroutine that called GNBC6. 
These two instructions have the effect of 



BC 



EXIT: 



M,*+6 



Subroutine GNBC6 exits to the sub- 
routine that called it. 

SUBROUTINES CALLED; Subroutine GNBC6 calls 
subroutines RXOUT and RROUT to generate 
instructions . 



determine the sign of the second argument. 
The branch and link instruction is generat- 
ed to insure addressability for the next 
instruction. 

A branch on condition code is then 
generated to determine the result of the 
load and test instruction. If the result 
is negative, the next instruction ( a load 
negative instruction to change the sign of 
the first argument to negative) is execut- 
ed. If the result of the load and test 
instruction is positive or 0, the branch on 
condition code instruction branches around 
the load negative instruction. 



Subroutine SIGN, DIM, ABS: Chart KR 



Phase 25 enters intermediate text words 
for the in-line functions SIGN, ISIGN, 
DSIGN, DIM, IDIM, DABS, ABS, and IABS. The 
first words entered force subroutine RXGEN 
to generate instructions to load the argu- 
ments for the function into general reg- 
isters, if the mode of the function is 
integer, or into floating point registers, 
if the mode of the function is real or 
double precision. The next word generated 
by Phase 25 contains the in-line function 
adjective code, the register numbers (R1 
and R2) in the mode/type field, and the 
in-line function number in the pointer 
field. 



EXIT; Subroutine SIGN exits to subroutine 
PRESCN to process the next word in the 
intermediate text. 

SUBROUTINES CALLED: During execution sub- 
routine SIGN calls the following subrou- 
tines: 

1 . RROUT to generate the register-to- 
register instructions. 

2. GNBC6 to generate the branch 
instructions. 



Subroutine DIM 



Subroutine DIM generates the coding for 
the in-line functions DIM and IDIM. 



Subroutine SIGN 



Subroutine SIGN processes the intermedi- 
ate text entry for the in-line functions 
DSIGN, ISIGN, and SIGN. 



ENTRANCE: 



Subroutine DIM is entered from 



ENTRANCE: 



Subroutine SIGN is entered from 



subroutine FUNGEN. 



OPERATION: 



Subroutine SIGN is 

points, one each for 



entered at 

three points, one each for the in-line 
functions SIGN, ISIGN, and DSIGN. At each 
entry point, the mode is set for the 
instructions to be generated by subroutine 
SIGN. 

The instructions generated for the in- 
line function ISIGN by subroutine SIGN are: 



LPR 


R1,R1 


LTR 


R2,R2 


BALR 


15,0 


BC 


10,6(15) 


LNR 


R1,R1 



The first argument is made positive by 
the load positive instruction, and a load 
and test instruction is generated to 



subroutine FUNGEN. 

OPERATION: Subroutine DIM may be entered 
at two points, one for the in-line function 
DIM and the other for IDIM. At each entry 
point, the mode is set for the instructions 
to be generated by subroutine DIM. 

The instructions generated for the in- 
line function DIM by subroutine DIM are: 

SER R1,R2 

BALR 15,0 

BC 2,6(15) 

SER R2,R2 

The second argument is subtracted from 
the first argument. A BALR instruction is 
generated to insure addressability for the 
next generated instruction. The condition 
code is set by the subtract instruction, 
and a branch on condition code is generated 
to test if the difference is negative. If 
it is, the next instruction generated is 
executed. This instruction zeros the 
contents of R2. If the difference is 
positive, this instruction is skipped, and 
the next instruction is executed. 
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The same instructions are generated for 
IDIM, except that the registers used are 
general registers , and the op codes gener- 
ated are for fixed point instructions. 



EXIT: 



Subroutine DIM exits to subroutine 



PRESCN to process the next text word. 

SUBROUTINES CALLED: Subroutine DIM calls 
the following subroutines: 

1. RROUT to generate the register-to- 
register operations. 

2. GNBC6 to generate the branch 
instructions . 



Subroutine ABS 



bytes from the beginning of IBCOM for the 
STOP or PAUSE instructions. 

The location of the beginning address of 
IBCOM in the object program is accessed and 
inserted into a skeleton instruction. An 
instruction is generated to load the begin- 
ning address of IBCOM into register 15. A 
base -displacement instruction is generated 
to branch and link to STOP or PAUSE in 
IBCOM. The displacement is the distance in 
bytes from the beginning of IBCOM; the base 
register used is register 15. 

A constant indicating the number of 
bytes in the halt number is generated along 
with the number itself. This constant 
immediately follows the branch and link 
instruction. 



Subroutine ABS generates the coding for 
the in-line functions ABS, DABS, and IABS. 



ENTRANCE : 



Subroutine ABS is entered from 



subroutine FUNGEN. 



OPERATION 



Subroutine ABS is entered at 

three points, one each for the in-line 
functions ABS, DABS, and IABS. At each 
entry, the mode is set for the instruction 
to be generated by subroutine ABS. 

Subroutine ABS generates an instruction 
to load positive the contents of R1 into 
R1. For example, the instruction 

LPR R1,R1 

makes the contents of register R1 positive. 
The register type (fixed or floating point) 
and the op code depend on the in-line 
function called. 



EXIT: Subroutine 
PRESCN to process 
text word. 

SUBROUTINE CALLED: 



ABS exits to subroutine 
the next intermediate 



Subroutine ABS calls 



subroutine RROUT to generate the load posi- 
tive instruction. 



EXIT: Subroutine STOP/PAUSE exits to sub- 
routine PRESCN to process the next inter- 
mediate text entry. 



SUBROUTINES CALLED: Subroutine STOP/PAUSE 
calls the following subroutines: 

1 . BASCHK to generate the load instruc- 
tion. 

2. RXOUT to generate the branch and link 
instruction. 

3. RROUT to generate the constant. 



Subroutine END: Chart KT 



Subroutine END processes the intermedi- 
ate text entry for the END card. It 
generates instructions to restore registers 
and branch to the start of the program. 
Subroutine END punches text cards and RLD 
cards for the branch lists and the base 
value table, and creates the END card. 



ENTRANCE: Subroutine END is entered from 
subroutine PRESCN when an END adjective 
code is recognized. 



Subroutine STOP/PAUSE: Chart KS 

Subroutine STOP/PAUSE generates instruc- 
tions for STOP and PAUSE statements in the 
object program. 



OPERATION: Subroutine END determines if 
the program is a main program. If it is, 
it tests further to determine if a STOP 
instruction was included in the program. 
If no STOP was generated, a call is gener- 
ated to call the IBCOM subroutine IBEXIT. 



ENTRANCE : Subroutine STOP/PAUSE is entered 
by subroutine PRESCN when PRESCN recognizes 
a STOP or PAUSE adjective code. 

OPERATION: Subroutine STOP/PAUSE gets the 
relative location of the STOP or PAUSE in 
IBCOM. This location is the distance in 



The location counter is saved for the 
computation of the size of the program, and 
the text card data set for the object 
program instructions is closed. The text 
card addresses and the byte count for the 
card are set to zero. The following 
instructions and constants are generated: 
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DC 


CL7 f PROGRAM' 


DC 


XLVO? 1 


STM 


14, 12, SAVE 


LM 


4,N,BASVAL 


BC 


15 , START 



The two generated constants are required 
by the calling sequence. The first is the 
program name. It is always seven bytes in 
length. The second constant is the number 
of bytes in the program name. The STM 
instruction stores the general registers in 
the save area. The LM instruction loads 
all base registers for the program being 
executed in the general registers 4 through 
N, the highest base register used. A 
branch is generated to the first instruc- 
tion to be executed by the program. 

The print buffers for the statement 
numbers are closed, and the END subroutine 
is initialized to enter the branch list for 
statement numbers in text cards. All t 
statement number entries in the branch list 
are then written on the output data sets. 
After all statement numbers have been put 
into text cards, subroutine END is initial- 
ized to put all branch list entries for 
arithmetic statement functions and branch 
addresses generated for DO loops in the 
text cards. All branch list entries are 
then entered into text cards. 

After the entries have been made, RLD 
cards are punched for entries in the branch 
list. The statement number entries are 
punched first, and then RLD cards are 
punched for the ASF and DO branches. 

A text card is then set up in the proper 
format for all base registers used for the 
object program. The addresses for the 
registers used to access COMMON are entered 
in the card first, followed by the base 
register addresses used to access data and 
coding in the program. The card containing 
these addresses is then put on the output 
data set. All base registers can be con- 
tained in one card. The base register 
addresses are inserted in an RLD card to 
insure relo cat ability. The registers used 
for COMMON are given an ESID of 2, and the 
registers used by the program are given an 
ESID of 1. 

A text card buffer is then cleared for 
the END card of the object deck. The 
information identifying the END card is 
inserted in the buffer. A test is made to 
determine if the program is a subprogram. 
If it is not, the entry point is inserted 
in the text card. For main programs this 
entry point is eight. For all programs, 
the size of the program is entered in the 
end card. The text card is put out; the 
size of COMMON and the size of the program 
are printed. 



EXIT; Subroutine END exits to the FORTRAN 
System Director: 

1. To call the Control Card routine, if 
no errors or warnings have been 
detected. 

2. To call Phase 30 if err or /warning 
conditions have been detected during 
the compilation. 



SUBROUTINES CALLED: Subroutine END calls 
the following subroutines: 

1. BASCHK/RXOUT to generate instructions. 

2. TXTOUT to put out the END card. 



Subroutine ENTRY: Chart KU 



Subroutine ENTRY generates instructions 
in the object program to initialize the 
object program. 

ENTRANCE: Subroutine ENTRY is called by 
subroutine INITIALIZATION. 

OPERATION: Subroutine ENTRY generates the 
first executable instructions in the object 
program. Subroutine ENTRY saves the loca- 
tion counter before it generates an object 
code so the instruction that transfers 
control to the object program branches to 
the correct address. 

If a type 3 program is being compiled, 
an instruction to set up addressability of 
the program is generated. The FORTRAN 
System Director establishes addressability 
for the object program in register 15, but 
the object program does not use register 15 
as the base register. Subroutine ENTRY 
generates an instruction to load the con- 
tents of register 15 into register 8, 
establishing addressability with register 8 
for the initialization instructions in the 
object program. 

If the program being compiled is a 
subprogram, an instruction is generated to 
save the address of the parameter list in 
main storage. The address of the parameter 
list is passed to the subprogram in general 
register 1. Object programs use register 1 
as a work register; therefore, general 
register 1 must be saved for the epilog. 

If the program is a main program, a call 
is generated to subroutine IBFINT in IBCOM. 
This subroutine is executed by the main 
program to initialize program status words 
for interruption. If the program is a 
subprogram, it does not have to call IBFINT 
because the main program has established 
the program status words. 
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If the program contains any arithmetic 
statement function (ASF) , subroutine ENTRY 
generates a branch around the object code 
for the ASFs. The ASFs appear immediately 
after the coding to initialize the object 
program. 

If any external calls were included in 
the program, the following instructions, 
which save and set up new save area poin- 
ters, are generated: 

LR 12,13 

LA 13, SAVE 

ST 13,8(13) 

ST 12,4(12) 



EXIT: Subroutine ENTRY exits to the sub- 



routine that called it. 



Subroutine GET: Chart KW 



Subroutine GET updates the input buffer 
pointer, and initializes action to read 
another intermediate text record, if a 
buffer has been exhausted. 



ENTRANCE: Subroutine GET is called by 
subroutines PRESCN, FIXFLT, IOLIST, RDWRT, 
CGOTO, SUBRUT, ARITHI, and D01 to access 
intermediate text words. 



OPERATION: Subroutine GET updates the buf- 
fer pointer , and tests for the end of the 
buffer. If it has not been reached, con- 
trol passes to the subroutine that called 
subroutine GET. 



SUBROUTINES CALLED: During execution sub- 
routine ENTRY references subroutines RROUT 
and RXOUT to generate object program 
instructions. 



Subroutine GENBC: Chart KV 



Subroutine GENBC generates the branching 
instructions for the instructions generated 
by an IF statement. 



ENTRANCE : 



Subroutine 



GENBC is called by 

subroutine ARITHI when it is processing IF 
statements . 



If the end of the buffer has been 
reached, a test is made to determine if the 
compilation being executed had no need to 
write the intermediate text on an output 
tape; that is, the buffers are large enough 
to contain all the intermediate text 
records for the compilation. If this is an 
in-storage compile, the pointer to the 
second buffer in the double-buffer system 
is set in a register to access intermediate 
text words. 



If the compilation is not in-storage, a 
test is made to determine if the end of the 
input data set has been reached. If it 
has, control is passed to the subroutine 
that called subroutine GET. 



OPERATION: Subroutine GENBC accesses the 
address of the beginning of the branch 
list, and the branch list number for the 
statement number in its entry in the over- 
flow table. A load instruction is then 
generated to load the address in a general 
register. 

The mask for the branch on condition 
code is accessed in main storage. The mask 
was inserted in a location in storage by 
subroutine ARITHI. Subroutine GENBC then 
generates a branch on condition code 
instruction. 



EXIT: 



Subroutine GENBC returns to the 



subroutine that called it. 



If the end of the data set has not been 
reached, a supervisor call is issued to 
read a text record into the buffer just 
exhausted. There are two returns to sub- 
routine GET from the supervisor call. One 
entrance is used if the end of data set has 
been reached. If this entrance is used, 
subroutine GET sets an indicator for the 
end of the text data set. 

The other return from the supervisor 
call is used if the end of data set is not 
reached. The intermediate text record is 
read into the buffer just exhausted, and 
the buffer pointer is set to process the 
intermediate text words in the second buf- 
fer. 



SUBROUTINES CALLED: During execution sub- 
routine GENBC calls the following subrou- 
tines : 



EXIT: Subroutine GET exits to the subrou- 
tine that called it. 



1. BASCHK to generate the load instruc- 
tion. 

2. RROUT to generate the branch on condi- 
tion code instruction. 



SUBROUTINES CALLED : 



The 



FORTRAN 
read an 



Director is referenced to 

mediate text record into an input buffer 



System 
inter- 
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Subroutines BASCHK/RXOUT, RROUT: Chart KX 



EXIT; Subroutine BASCHK/RXOUT exits to 
subroutine TXTEST. 



Subroutine BASCHK/RXOUT 



Subroutine BASCHK/RXOUT processes RX 
instructions generated by the Phase 25 
subroutines. 



SUBROUTINES 



CALLED: 



Subroutine 

BASCHK/RXOUT calls subroutine RXOUT to load 
a spill base address in register 7. 



Subroutine RROUT 



ENTRANCE : 



Subroutine 



BASCHK/RXOUT 



xs 



called by subroutines IOLIST, ENDIO, RDWRT, 
TRGEN, CGOTO, SUBRUT, FUNGEN/EREXIT, 
STOP/PAUSE, GENBC, D01, ENDDO, ASFEXP, 
ASFUSE, END, RXGEN/LM/STM, ENTRY, FIXFLT, 
RETURN, SAOP, and AOP. 



OPERATION: Subroutine BASCHK/RXOUT is 
entered at two points. The first entry, 
BASCHK, is used to determine if a spill 
base register was used when storage was 
assigned to symbols in Phases 12 and 20. 
It tests for a spill base register in the 
program. If there is none, BASCHK/RXOUT 
branches to the portion of coding labeled 
RXOUT. If a spill base register is used in 
the compilation, BASCHK/RXOUT tests if the 
instruction to be generated uses a spill 
base register. If it does not, 
BASCHK/RXOUT branches to RXOUT. 

If a spill base is used in the instruc- 
tion, a test is made to determine if the 
last used the same spill base register. If 
it did not, the linkage register and the 
instruction pointer that were entered by 
the subroutine that called BASCHK/RXOUT are 
saved, because RXOUT must be entered to 
generate an instruction to load register 7 
and the linkage registers for Phase 25 must 
be saved. A test is made to determine if 
the program used 16K bytes for COMMON. If 
it did, 8 is subtracted from the displace- 
ment of the instruction that is to be 
generated. 

The load instruction is generated to 
load register 7 with the base value gener- 
ated for the spill base register. Subrou- 
tine RXOUT is called to generate the load 
instruction; the registers for linkage and 
the instruction pointer are saved. When 
RXOUT was called, it generated its own 
linkage and returned to a point in subrou- 
tine RXOUT where the original registers 
were restored. 

Subroutine BASCHK/RXOUT changes the base 
in the original instruction to be generated 
to base register 7. 

The portion of the coding called RXOUT 
begins. The link register is saved, the 
instruction length is set to 4, and subrou- 
tine TXTEST is entered to enter the 
instruction in a text card. 



Subroutine RROUT generates 
register instructions. 



register-to- 



ENTRANCE: Subroutine RROUT is entered from 
subroutines RDWRT, SAOP, TRGEN, CGOTO, 
FUNGEN/EREXIT, STOP/PAUSE, GENBC, ASFUSE, 
RXGEN/LM/STM, SIGN, DIM, ABS, ENTRY, and 
RETURN. 

OPERATION: The link register is saved for 
subroutine TXTEST, and the instruction 
length is set to 2. 

EXIT: Subroutine RROUT exits to subroutine 
TXTEST to insert the instruction in a text 
card. 



Subroutines TXTEST, RLDTXT, and TXTOUT: 
Chart KZ 



Subroutine TXTEST 



Subroutine TXTEST moves an instruction 
to the output buffer and determines if that 
instruction must be put out on the GO tape 
and/or punched in a card. 

ENTRANCE: Subroutine TXTEST is entered by 
subroutines RROUT and BASCHK/RXOUT. Sub- 
routine TXTEST may also be entered by 
subroutine RLDTXT, if TXTEST previously 
determined that an instruction can not fit 
on a card. 

OPERATION: If neither the GO, GOGO, nor 
the DECK options are specified, subroutine 
TXTEST returns control to the subroutine 
that called subroutines RROUT or 
BASCHK/RXOUT. If one of these options is 
on, subroutine TXTEST updates the location 
counter by the length of the instruction. 
TXTEST then determines if the instruction 
can fit on a text card. If it cannot, the 
location counter is decremented by the 
length of the instruction, and an indicator 
is set for subroutine RLDTXT to indicate 
that this condition has occurred. Subrou- 
tine RLDTXT is entered to put out the card 
image. 

If the instruction can fit on the card, 
it is moved to the card output buffer. The 
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count of the number of bytes in the card 
buffer and the buffer pointer are updated 
by the number of bytes in the instruction. 
A test is made to determine if the end of 
the buffer has been reached. If it has, 
subroutine RLDTXT is called to output the 
card image. 

EXIT; Subroutine TXTEST exits to the sub- 
routine that called it or to subroutine 
RLDTXT, if it is determined that the 
instruction being processed will not fit in 
this card image. 

SUBROUTINES CALLED; Subroutine TXTEST 
calls subroutine RLDTXT if the end of the 
buffer is reached after an instruction has 
been inserted in a card image. 



and the result is inserted in the new text 
card buffer. 

The indicator set in subroutine TXTEST 
is tested to determine whether the subrou- 
tine shall pass control to subroutine 
TXTEST or to the subroutine that called 
subroutines RROUT or BASCHK/RXOUT . 



EXIT: 



Subroutine RLDTXT exits to subrou- 



tine TXTEST. 



SUBROUTINES 



CALLED; 



Subroutine RLDTXT 

calls subroutine TXTOUT to put out the card 
image. 



Subroutine TXTOUT 



Subroutine RLDTXT 



Subroutine RLDTXT inserts the byte count 
in the card to be put out, and initializes 
a new buffer. 

ENTRANCE : Subroutine RLDTXT is entered by 
subroutine TXTEST under two conditions. It 
is entered as an open subroutine if an 
instruction must be inserted in a card and 
the instruction will not fit in the card; 
it is entered as a closed subroutine if the 
instruction is inserted in the card, and 
the end of the buffer has been reached. 

OPERATION: Subroutine RLDTXT inserts the 
byte count into the card image to be put 
out, and calls subroutine TXTOUT to put out 
the card image. The buffer pointers are 
switched to start inserting instructions in 
a new buffer. Tha new buffer is cleared, 
the address constant is subtracted from the 
address currently in the location counter. 



Subroutine TXTOUT inserts the card 
sequence number and the program identifi- 
cation in the card image output buffer, and 
outputs the card image on either the GO 
tape and/or in a text card. 

ENTRANCE; Subroutine TXTOUT is called by 
subroutine RLDTXT. 



OPERATION: 



Subroutine 



TXTOUT inserts the 

card sequence number and the program iden- 
tification in the card image output buffer. 
If the GO or GOGO option is specified by 
the user, the card is written on the GO 
tape. If the DECK option is specified, the 
card image is punched in a text card. 



EXIT: 



Subroutine TXTOUT returns to the 



subroutine that called it. 

SUBROUTI NES CALLED : The FORTRAN System 
Director is referenced to write the card 
image on the GO tape or to punch the card 
image in a text card. 
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*08 * 
* A2* 



******A2* ********** 
GET TEXT 
* ENTRIES * 
• X FOR 

* STATE- * 

MENT 

************* 



*****B2** ******** 



CLASSIFY 
STATEMENT 



***************** 



• * END 

*. STATE- 

*. MENT 



******C3* ********** 
PUT OUT TEXT 
* AND RLD CARDS * 
• X FOR 

* BRANCH * 

LIST 

************* 



******C4* ********** 
PUT OUT TEXT 
* AND RLD CARDS * 
.X FOR BASE 

* REGISTER * 

VALUES 

************* 



****B5 ********* 

* EXIT TO FSD * 

* TO LOAD * 

* PHASE 30 * 
*************** 



YES 
.*. 

C5 *. 
.* ANY *. 
.* ERRORS OR *. 
•X*. WARNINGS 

*. •* 



*****D2** ******** 

* * 

* GENERATE * 

* OBJECT * 

* CODING * 

* * 
***************** 



******E2** ********* 



* PUT OUT * 

CODING 



****D5********* 

* EXIT TO FSD * 

* TO LOAD CON- * 

* TROL CARD * 
*************** 



************* 



Chart 08. Phase 25 Overall Logic Diagram 
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* SET UP 

* PHASE 
♦ADDRESSABILITY 

**************** 



PROCESS X 

*****B2********** 

* CALCULATE * 

* EEGINNING * 

* OF ASF * 

* BRANCH * 

* TABLE * 
***************** 



*****C2********** 

* # 

* INITIALIZE * 

* BUFFER * 

* FOINTERS * 

***************** 



SET UP ERROR * 

ROUTINE FOR * 

OBJECT PRGM * 

* 

**************** 



******E2** 



REWIND 

TEXT INPUT 

TAPE 

************* 



NCG02 X 

*****F2* ********* 
♦READXT KWC3* 
*_*_*_*_*_*_*_*_* 

* PRIME * 

* INPUT * 

* BUFFERS * 
***************** 



*****G2*« ******** 

* CALCULATE * 

* OEJECT TIME * 

* ADDRESS * 

* CONSTANT * 

* * 
***************** 



*****H2********** 

* * 

* INITIALIZE * 

* FIRST TEXT * 

* CARD IMAGE * 

* * 
***************** 



.* ANY * 
.* SPILL 
BASE 
♦.REGISTER 



.* FIRST *. 
,*NON-COMMON 
BASE REG 



GENENT 

*****J4«* ******** 
♦ENTRY KUA3* 
*_*_*_*_*_*_*_*_* 

...X* GENERATE *. 

X * ENTRY * 
* CODING * 
***************** 



***K2******* 

* 

TURN ON 

SPILL EASE 

SWITCH 

* 
************ 



* SET PROGRAM * 

* TO INDICATE * 

* TYPE '3' * 

* * 
************** 
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PRESCAN X 

*****B1*» ******** 
*GET KWA3* 

*—*-*-*—*-*—*—*—* 

* GET A * 

* TEXT * 

* WORD * 
***************** 



*KB * 
* CI* 
***** 



AD J 
CODE 
. G.7- 
*. 25 .* 

"* NC 



******** 



♦STATEMENT OR OPERATOR ROUTINE 
*************************. *********. 
♦SUBROUTINE OR FUNCTION .SUBRUT 



*FUNCTION CALL 


. FUNGEN 


. KPA2 


* 


♦SUBSCRIPT 


. SACP 


. KLA2 


* 


*IF 


. ARITHI 


. KGA1 


* 


*I/0 LIST I TEM 


. ICLIST 


. KIB4 


* 


♦ ACP 


. ACF 


. KLA3 


* 


♦CALL 


. FUNGEN 


. KPA2 


* 


*ASF USAGE 


. ASFUSE 


. KMA5 


* 


*LOAD MULTIPLE 


. LN 


* KCH2 


* 



♦LABEL 


.LABEL 


.KDA3 


* 


♦END DO 


•ENDDO 


.KFA4 


* 


♦GO TO 


.TRGEN 


.KEA2 


* 


♦COMPUTED GO TO 


.CGOTO 


• KEAA 


* 


♦BCKSPCE, REWIND + ENDF I LE . RDWRT 


.KHA3 


* 


♦READ/WRITE 


.RDWRT 


.KHA3 


* 


♦DO 


.DOl 


.KFA1 


* 


*END 


• END 


.KTA1 


* 


♦STOP 


.STOP 


.KSA2 


* 


♦PAUSE 


.PAUSE 


.KSA4 


* 


♦END I/O LIST 


• END ID 


• KJB2 


* 


♦IMPLIED DO 


• DOl 


• KFA1 


* 


♦ASF DEFINITION 


.ASFDEF 


• KMA1 


* 


♦RETURN 


.RETURN 


• K0A2 


* 
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***** 
*KC * 
* A3* 



RXGEN .X, 






A3 *. 






.* IS *. 






.* THIS *• YES 






*«AN ASF ARITH •*•••• 






*. INSTR .* 


X 




*. .* 


***** 


**** 


*. .* 


*KM * 


* 


* NO 


* A3* 


* B4 



HI .X, 




TESTRX .X. 


B3 *. 




B4 *. 


.* A *• 




.* IS * 


.* SPECIAL *. 


NO 


.* THIS 


*. INSTRUCTION • 
*• • * 


* • • • • 


• • • • X* • AN RR 




*. INSTR 


*. .* 




*. .* 


*. .* 




*. .* 


* YES 




* NO 

**** , 

* * • 

* C4 *.X. 

* * . 
**** . 



C3 



IS 



D2 *• 

.* LAST *. 

NO .* ASF *. 

...*. DEFINITION .*X. 

* . .* 



XOUT X 

*****C4**** ****** 

*BASCHK KXA3* 

* . YES *_♦_*_*— *—*—*—*—* 

*. STORE OR LOAD,* X* GENERATE * 

*. INSTR .* * RX * 

*. .* * INSTRUCTION * 

*. .* ***************** 

* NO 



X 
***** 
*KB * 

CI* 



NOBSCK 
YES .* 



D3 *. 
IS *. 
IT A *• 
BRANCH 
*. INSTR .* 



* * 



GENRR 

*****B5 ********** 

* * 

* PUT IN * 
. •■• X* R2 * 

* FIELD * 

* * 
***************** 



GENRR1 X 

*****C5 ********** 
*RROUT KXA5* 
*—*—*—*-*—*—*-*—* 

* GENERATE * 

* INSTRUCTION * 
***************** 



X 

***** 

*KB * 

* CI* 

* * 



*****E2** ******** 

* PUT ADDRESS * 

* CF FIRST * 

* NON-ASF * 

* INSTRUCTION * 
*IN BRANCH LIST * 
***************** 



* X. 

X 
**** 

* * 

* B4 * 

* * 
**** 



ZRBIT X 

*****E 3* ********* 

* * 

* ZERO DUMMY * 

* BIT IN * 

* TEXT WORD * 

* * 
***************** 



LDPTR X 

*****F 3 ********** 
*RXOUT KXJ3* 
*—*—*-*— *~*—*—*—* 

* PUT OUT * 

* RX * 

* INSTRUCTION * 
***************** 



***** 
*KB * 
* CI* 



***** 
*KC * 
* H2* 



***** 
*KC * 
* H4* 



LM X 

*****H2** ******** 

* ASSEMBLE * 

* LOAD * 

* MULTIPLE * 

* INSTRUCTION * 

* * 
***************** 



STM X 

*****H4** ******** 

* ASSEMBLE * 

* STORE * 

* MULTIPLE * 

* INSTRUCTION * 

* * 
***************** 



X 
**** 



X 
**** 



Chart KC. Subroutine RXGEN/lm/stm 



352 



***** 
*KD * 

* A3* 



LABEL X 

*****A 3*** ******* 

* * 

* PUT STATEMENT * 

* NUMBER IN * 

* PRINT BUFFER * 

* * 
***************** 



CONCUR X 

*****B3********** 

* SUETRACT * 

* ADDRESS * 

* CONSTANT FROM * 

* STATEMENT NO. * 

* ADDRESS * 
***************** 



*****C3 ********** 

* * 

* PUT OBJECT * 

* ADDRESS IN * 

* PRINT BUFFER * 

* * 
***************** 



*****D 3*** ******* 

* * 

* UPDATE * 

* BUFFER * 

* POINTER * 

* * 
***************** 



.* END OF *. 

BUFFER 

*• .* 



******E4 *********** 

* PUT OUT * 
•X PRINT 

* BUFFER * 

************* 



*****E5 ********** 

* * 

* CLEAR BUFFER * 
.X» AND RESET * 

* POINTER * 

* * 
***************** 



*****P2** ******** 

* COMPUTE * 

* BRANCH LIST * 

* ENTRY *X 

* ADDRESS * 

* * 
***************** 



***** G2** ******** 

* * 

* PUT ASSIGNED * 

* ADDRESS IN * 

* BRANCH LIST * 

* * 
***************** 



REFCHK .X. 

F3 *• 
.* IS *. 
YES .* STMNT *. 
....*• NUMBER 

♦REFERENCED * 
*• •* 
*. .* 
* NO 



X 
***** 
*KB * 
* Bl* 



***** 
*KB * 
* Bl* 
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***** 
*KE * 
* A2* 



***** 
*KE * 
* A4* 



TRGEN X 

*****A2** ******** 



SET EXIT 
TO PRESCN 



***************** 



CGOTO X 

*****A4 ********** 

* FIND VARIABLE * 

* MAINTAINING * 

* COUNT OF * 

* STATEMENT * 

* NUMBERS * 
***************** 



TRANSF X 

*****B2** ******** 

* CALCULATE * 

* ADDRESS OF * 

* BRANCH LIST * 

* ENTRY FOR * 

* STMT NO * 
***************** 



GNENE X 

*****C2 ********** 
*EASCHK KXA3* 
*-*—*—*—*—*—*—*-* 

* GENERATE * 

* L R, ADDRESS * 

* * 
***************** 



*****B4**** ****** 
*BASCHK KXA3* 
*-*-*-*-*-*-*—*-* 

* GENERATE * 

* L 2, VARIABLE * 

* * 
***************** 



*****C4********** 
*BASCHK KXA3* 
*-*-*-*-*-*-*-*-* 

* GENERATE * 

* L R» V(CGOTO) * 

* * 
***************** 



***** 02** ******** 
*RROUT KXA5* 
*-*-*-*-*-*-*-*-* 

* GENERATE * 

* BCR 15, R * 

* * 
***************** 



****E2** ******* 

* * 

* EXIT * 

K * 

*************** 



*****D4 ********** 
*RROUT KXA5* 
*-*-*—*-*-*-*-*-* 

* GENERATE * 

* BALR L.R * 

* * 
***************** 



*****E4********** 
*ARGOUT KYA3* 
*-*-*-*-*-*-*-.*-* 

* GENERATE * 

* DC AL4 * 

* (BRANCH LIST) * 
***************** 



*****F4 ********** 

* * 

* SET UP * 

* COUNT TO * 

* GET VARIABLE * 

* * 
***************** 



OUTPAR X 

*****G4**** ****** 
*RROUT KXA5* 
*-*-*-*-*-*-*-*-* 
.X* GENERATE * 

* DC AL2 (NI) * 

* * 
***************** 



•* ANY *. 
•YES .* MORE *. 
••••*• PARAMETERS .* 



X 
***** 
*KB * 
* Bl* 
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***** 
*KF * 
* Al* 



****A 1 ********** 

COMPUTE * 

ADDRESS FOR * 

NEXT DO * 

TABLE * 

ENTRY * 

**************** 



**A4 ********** 

* 

SET UP * 

SKELETON * 

POINTER * 



MOVTXT X 

*****B 1 **** ****** 

* GET ALL DO * 

* TEXT ENTRIES * 
*. AND MOVE * 

* THEM TO * 

* WORK AREA * 



IMMED 

DO 
PARAM 



GENERATE 

LA R, 
CONSTANT 



*****C 1 ********** 
*PLT INCREMENT, * 

* TEST VALUE, * 

* VARIABLE ADDR * 

* IN DO TABLE * 

* * 
***************** 



•LHOUT X 

*****C4****** 
*BASCHK K 
*—*-*—*—*—*—* 

* GENERATE 

* L R, 

* VARIABLE 



INITIAL 

VALUE A 

.CONSTANT 



THIRD 
LOAD 

GEN 



GENERATE 

L R ADDR 

OF INIT VAL 

************* 



LACUT X 

*****E2**** 
*RXOUT 



************* 



**#**E 4** ******* 

* CALCULATE 

* ADDRESS IN 

* BRANCH LIST 
*FOR DO ADDRESS 
* 
**************** 



***F 1******** 

COMPUTE 

ADDRESS IN 

BRANCH LIST 

FOR DO 

BRANCH 



****G1 ********** 

PUT ADDRESS * 

IN BRANCH * 

LIST IN DO * 

TABLE * 

**************** 



GENERATE 

BXLE INST 

FOR DO LOOP 



*****H1 ********** 

* * 

* PUT LOCATION * 

* COUNTER IN * 

* BRANCH LIST * 

* * 
***************** 



-*—*—*—*—*—*—* 
GENERATE * 

STORE DO * 

VARIABLE * 

************** 



***** 
*KB * 
* CI* 
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GET NEXT 
* FIVE WORDS 
FROM 
» BUFFER 



.* COND. *. 

CODE SET * 
Y PRECEDING 
INSTR .* 



GENERATE 

LOAD AND TEST 

INSTRUCTION 



CODE F 
END MA 
STMT 
«. NO 



* IS IT » 
= FIRST 
STMT 



GENERATE 
BC 13, ADDR 
BC 2, ADDR 



N0BC2 

*****D4**»»****** 
♦GENBC KVA3* 

...X* GENERATE *, 

* BC 13, * 

* ADDRESS * 



* FIRST *, 

STMT NO 

= THIRD 

STMT 



IT = 

FIRST 
STMNT 



GENERATE 
BC 7. ACDR 
EC8. ACDR 



N0BC8 

»****F4 
•GENBC 



BC 7, ADDR 



♦SECOND *, 

STMT NO 

= THIRD 

STMT 



•*IS ADJ * 
CODE FCL 
END MARK 



CODE FOL 
END MARK 

STMT 
*. NO 



GENERATE 
BC 11, ADDR 
BC 4, ADDR 



♦GENBC KVA3* 
;* * 

* BC11.ADDR * 



.* FIRST 
STMT NO 
= FOURTH 
STMT 



* SEC * 

STMT NO 
= FOURTH 

STMT 
*. NO .* 



.* THIRD *. 
STMT NO 
= FOURTH 



BC8BC2 

*»***J5 

*GENBC 



GENERATE 
BC 8, ADDR 
BC 2, ADDR 



GENERATE 
BC 4, ADDR 
BC 2, ADDR 



GENERATE 
BC 8, ADDR 
BC 4, ADDR 
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.* DOES *. 
.*READ/WRITE 
• REQUIRE A 
*. FORMAT 



*****A4******* 

* * 

* SET 
X* FORMAT 

* INDICATOR 

* ON * 
************** 



STOTXT X 

*****B 3* ********* 
*GET KWA3* 

*-*-*-*-*-*-*-*-* 

* GET NEXT * 

* ASSOCIATED * 

* TEXT WORDS * 
***************** 



TRANS X 

*****C 3 ********** 
*BASCHK KXA3* 



*—*—*—*— 



-*-*-*-* 



***************** 



*****D 3 ********** 

* * 

* CONVERT ADJ * 

* CODE TO * 

* DISPLACEMENT * 

* D * 
***************** 



***************** 



* SET FLAG TO * 

* INDICATE AN * 

* ADDRESS * 

* * 
***************** 



DATA SET 
REFERENCE 
. NUMBER 



*****G3 ********** 

* SET FLAG TO * 

* INDICATE A * 

* DATA SET * 

* REFERENCE * 

* NUMBER * 
***************** 



*-*-*-*-*-*-*-*-* 

* GENERATE * 

* DC XL1 »FLAG» * 

* DC AL3 »AOD» * 
***************** 



*-*-*-*-*-*-*-*-* 

* GENERATE * 

* DC XL1 »FLAG» * 

* DC AL3 "UNIT* * 
***************** 



*****J2** ******** 
♦ARGOUT KYA3* 
*_*_*_*_*_*_*_*_* 

* GENERATE *> 

* ADDRESS OF * 

* FORMAT * 
***************** 



TESFOR 


• X. 




J3 *. 




.* IS 


YES .* 


FORMAT 


*• 


REQUIRED 



***** 

*KB * 
* CI* 
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FIOAN 

*****B l********** 
*RXOUT KXJ3* 



* DOES * 
I/O REQ 

* FORMAT 



GETWD 

*****B3********** 
*GET KWA3* 



*************** 



***************** 



*****C l********** 

* * 

* GET * 

* ADDRESS *X 

* OF ARRAY * 

* * 
***************** 



*****C2 ********** 

*RXOUT KXJ3* 

*-*—*—*—*—*—*-*-* 

.* GENERATE * 

* EAL E, FIOLN * 

* * 
***************** 



* DOES * 

I/O REQ 
A FORMAT 



******* 



*-*-*-*-*-*-*-*- 
X* GENERATE 

* BAL L, 

* FIOLF 
**************** 



*—*—*—*—*-*—*—*—* 

* GENERATE * 

* DC AL4 * 

* (ARRAY) * 
***************** 



FIOLN X 

*****D4********** 
*RXOUT KXJ3* 



*****E1 ********** 

* GET * 

* LENGTH * 

* OF EACH * 

* ELEMENT * 

* * 
***************** 



SETSKL X 

*****E4**»* ****** 

* PUT LENGTH * 

* OF VARIABLE * 

* INTO * 

* PARAMETER * 

* WORD * 
***************** 



*****p i********** 



*****F3********** 

* PUT * 

* INDEX * 

* REGISTER *X 

* IN PARAMETER * 

* WORD * 
***************** 



MOVNUM X 

*****Gl ********** 
*RXOUT KXJ3* 
*_*_*_*_*_*_*_*_* 

* GENERATE * 
*DC XL1 'LENGTH'* 

* DC XL3 'SIZE' * 
***************** 



DCLENG X 

*****G4* ********* 
*BASCHK KXA3* 
*_*_*_*_*_*_*_*_* 
♦GENERATE DCX L2* 
♦•LENGTH INDEX' * 
*DCXL2 BASE DSPL* 
***************** 



***** 
*KB * 
* Bl* 
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***** 
*KJ * 
* B2* 



ENDIC .X, 

B2 *. 
.* DOES * 
.* I/O REQ 
*. A FORMAT 



.* 

* NO 



FENDF 

*****B3********** 
*RXOUT KXJ3* 
*-*-*-*-*-*-*-*—* 

• ..X* GENERATE * 

* BAL L» FENDF * 

* * 
***************** 



*****C2* ********* 
*RXOUT KXJ3* 
*-*-*-*-*-*-*-*-* 

* GENERATE *. 

* EAL L» FENDN * 

* * 
***************** 



*****C 3* ****** 
* 
* 
.X* 



TURN OFF 

FORMAT 
INDICATOR 



************** 



***** 
*KB * 
* Bl* 
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***** 
*KL * 
* A2* 



***** 
*KL * 
* A3* 



*«**«A2********** 

* GET SAOP * 

* TEXT AND * 

* INSTRUCTION * 

* WORD * 

* * 
***************** 



*—*—*—*—*—*— 



***************** 



*KB * 
* CI* 
***** 



********** 



*****B4** ******** 

* * 

* ADD OFFSET * 
.X*TO DISPLACEMENT*. 

*OF INSTRUCTION * 

* * 
***************** 



INST. 
IN AN I/O 
. LIST 



GENERATE 



***************** 



SETLH 

*****C4* ********* 
*BASCHK KXA3* 



***************** 



*****C5******* 

* * 

* SET I/O 

* LIST 

* INDICATOR 

* ON * 
************** 



ADOFST 

*****D4 ********** 
*BASCHK KXA3* 
*-*-*-*-*-*-*-*-* 



***** 
*KB * 
* CI* 



***************** 



***************** 



-*—*—*-*—* 



***************** 



.* ANY *. 

MORE 

SUBSCRIPT 



INST. 
IN AN I/O 
. LIST 



*****F4* ****** 

* * 

* SET I/O 
X* LIST 

* INDICATOR 

* * 
************** 



*****G4********** 

*BASCHK KXA3* 

*—*—*—*—*—*—*—*—* 

X* GENERATE * 

* A X, = OFFSET * 

* * 
***************** 



***************** 



*****H3 ********** 

* * 

* ADD OFFSET * 
*TO DISPLACEMENT*. 
*OF INSTRUCTION * 

* * 
***************** 



* GENERATE * 

* MH W, V+2 * 

* * 
***************** 



***** 
*KB * 
* CI* 



*****K 1 ******* 

* DECREASE 

* DIMENSION 

* COUNT 

* BY 1 



**** 



****** 



*_*-*_*_*_*-*_*_* 
.« GENERATE * 



***************** 
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CALCULATE 

ASF TABLE 

ENTRY 



GET ADDRESS 
IN TEXT 

WORD 



ASFUSE X 

*****A5********** 

* GET ADDRESS * 
*OF FIRST INST. * 

* IN ASF FROM * 

* ASF TABLE * 

* * 
***************** 



K**B 1 ********* 

PUT 

LOCATION 

COUNTER 

IN TABLE 



******* 



t* ****** 



* GENERATE LOAD * 

* PARAMETER * 
*ADDRESS IN R.15* 



*****B5 ********** 

* * 
♦INSERT ADDRESS * 

* IN LOAD * 

* INSTRUCTION * 

* * 
***************** 



*****C3********** 

* GET OPERATION * 

* FROM TEXT * 

* WORD * 



***************** 



***C5***** 



************* 
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**«**A3********** 

•PUT SUBROUTINE * 
» TEXT WORD » 
• IN WORK AREA • 



*«*««B3********** 

« GET ADDRESS * 

* OF EPILOGUE « 

* TABLE » 



NXTPAR 

#»#»»C3**«***»*** 
•GET KWA3* 



GENERATE 

BRANCH 

AROUND ASF<S) 



»*»**E4**«**»«*»< 

* GENERATE < 
X* MVC DUMMY < 
•NAME (4). D(l) < 



VALUE X 

»*«*»F3#»»***»»«* 
•SET LENGTH FOR • 
•MOVE TO 4 OR 8 * 

• DEPENDING ON • 

• MODE OF DUMMY * 

• VARIABLE * 



STOLEN. X 

* ****G3»«* ***»*■ 

• PUT DISPLACE- 

• MENT IN LOAD 

• SKELETON 

• INSTRUCTION 



' MOVE SKELETON < 



GENERATE 

MVC DUMMY(L) 

0(2) 



* PUT LENGTHt * 

* PARAM LIST * 
.X* DISPLACEMENT, *. 

* AND ADDRESS * 

* IN EPILOG TBL * 



t UPDATE 

> DISPLACEMENT 

> BY 4 
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.* ANY * 

PREVIOUS 
RETURNS 



* ENTER RETURN * 

* ADDRESS INTO * 

* BRANCH LIST * 

* * 
***************** 



•GENERATE- LOAD » 
*FARAM. POINTER * 
* INTO REGISTER * 
***************** 



NXTEF1 X 

*****D2* ********* 

* GENERATE * 

* INSTRUCTIONS * 

* TO GET VALUES * 

* CF PARAM. * 

* TO CALLER * 
***************** 



*****A3********** 

* PUT BRANCH * 

* LIST ADDRESS * 
X* IN LOWER * 

* HALF OF * 

* INSTRUCTION * 
***************** 



*—*—*—*—*—*—*—*—* 




* AND BRANCH * 

* INSTRUCTIONS * 
***************** 


X 
***** 
*KB * 
* Bl* 



-*-*-*-*-*-* 



* GENERATE INST * 
*TO RETURN VALUE* 

* OF FUNCTION * 
***************** 



ANY 
EXTERNAL 
. CALLS 



NTFUNC X 

*****H2** ******** 

* GENERATE * 

* INSTRUCTIONS * 

* TO RESTORE *X 

* REGISTERS * 

* * 
***************** 



GENERATE 



*****H3********** 

* GENERATE INST * 

* TO RESET SAVE * 
.* AREA * 

* POINTER * 

* * 
***************** 



***** 
*KB * 
* Bl* 
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***** 
*KP * 
* Bl* 



***** 
*KP * 
* A2* 



.* IN-LINE 
*. FUNTION 



EREXIT X 

*****B 1 ********** 

* * 
*GET ADDRESS OF * 

* ERROR LIBRARY *. 

* ROUTINE * 

* 'IBERR' * 
***************** 



BALANY X 

*****B2** ******** 

*EASCHK KXA3* 

*-*-*-*-*-*-*-*-* 

. ..X* GENERATE LOAD * 

* REG. 15 WITH * 

* ADDRESS * 
***************** 



*****C2** ******** 
♦RROUT KXA5* 
*—*—*—*-*—*—*-*—* 

* GENERATE * 

* BALR 14, 15 * 

* * 
***************** 



X 

***** 
*KB * 
* Bl* 



*************************** 
*IN-LIN • * 

♦FUNCTION NAME . CHART* 
*************************** 
*IFIX • KQA2 * 



*FLOAT 


• 


KQA2 * 


*DFLOAT 


• 


KQA2 * 


*ABS 


• 


KRG3 * 


*IABS 


• 


KRG4 * 


*DABS 


• 


KRG2 * 


*DIM 


• 


KRC3 * 


*IDIM 
*••••••••••• 


• 


KRC5 * 


*SIGN 
*••••••••••• 


• 


KRA2 * 
••••••* 


*ISIGN 
*••••••••••• 


• 


KRA3 * 
••••••* 



*DSIGN • KRAI * 

*************************** 
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***** 

*KQ * 
* A2* 



FIXFLT X 

*****A2** ******** 
*GET KWA3* 

*-*_*-*-*-*—*-*-* 

* GET NEXT * 

* TEXT * 
< WORD * 
***************** 



***** 
*KQ * 
* B5* 



* ACCESS Rl AND * 
*R2 AND COMPUTE *X 

* R2-1 * 

* * 
***************** 



GNBC6 X 

*****B5 ********** 
♦RROUT KXA5* 



***************** 



-*-*-*-*-*—*-* 



***************** 



***************** 



*-*-*-*-*-*-*—*-* 

* GENERATE * 

* ST R2-1 . * 

* WORK+4 * 
***************** 



**** 05*** ****** 

* * 

* RETURN * 

* * 
*************** 



***************** 



*****E1 ********** 
*BASCHK KXA3* 

*-*-*-*-*-*-*-*-* 

* GENERATE * 

* LD Rl. CONST * 

* * 
***************** 



*—*—*—*—*—*—*—*—* 

* GENERATE * 

* STD Rl.WORK * 

* WORK * 
***************** 



*—*—*—*—*—*—*—*—* 



*_*-*-*-*- 



********** 



-*-*-*-*-*-*-*-* 



***************** 



*-*-*-*-*-*-*-*-* 

* GENERATE * 

* BALR 15.0 * 

* BC 10.6(15) * 
***************** 



*-*-*-*-*-*-*-*-* 

* GENERATE * 

* BALR 15,0 * 

* BC 10.6(15) * 
***************** 



-*-*-*-*-*- 



***************** 



*****j i********** 
*RROUT KXA5* 

*-*-*-*-*-*-*—*-* 

* GENERATE * 

* LNER Rl. Rl * 

* * 
***************** 



Chart KQ. Subroutine FIXFLT/GNBC6 



Phase 25 365 



***** 
*KR * 
* A2* 



SET MODE * 

TO DOUBLE * 

PRECISION * 

* 

************** 



****#A2** ******** 

* * 

* SET MODE * 

* TO * 

* REAL * 

* * 
***************** 



* SET MODE * 

* TO * 

* INTEGER * 

* * 
***************** 



IRSIGN X 

*****B2»* ******** 
*RROUT KXA5* 



***************** 



***** 
*KR * 
* C3* 



***#**1 



-*-*-*-* 



********** 



*****C 3 ********** 

* * 

* SET MODE * 

* TO *. 

* REAL * 

* * 
***************** 



IRDIM 

*****C4********** 
*RROUT KXA5* 
*-*-*-*-*-*-*-*-* 



***************** 



***** 

* * 

* SET MODE * 
.* TO * 

* INTEGER * 

* * 
***************** 



*-*-*-*- 



-*-*-*-* 



* GENERATE * 

* BALR 15t0 * 

* BC 10.6(15) * 
***************** 



*-.*_*_*_*_*-*_*_.* 

* GENERATE * 

* BALR 15,0 * 

* BC 2.6(15) * 
***************** 



*-*-*-*-*-*-*- 



_*-*-*_*-.*-*_*_* 



*********** 



***************** 



***** 
*KB * 
* Bl* 



***** 
*KR * 
* G2* 



***** 
*KR * 
* G3* 



***** 
*KR * 
* G4* 



* SET MODE * 

* TO DOUBLE *. 

* PRECISION * 

* * 
***************** 



*****G3* ********* 

* * 

* SET MODE * 
X* TO «X 

* REAL * 

* * 
***************** 



* SET MODE * 
.* TO * 

* INTEGER * 

* * 
***************** 



IRABS X 

*****H3**«* ****** 
♦RROUT KXA5* 
*_«—*—*—*—*—*—*—* 



***************** 
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***** 
*KS * 
* A2* 



***** 
*KS * 
* A4* 



STOP X 

*****A2** ******** 

* GET DISTANCE * 

* • D» * 

* CF STOP FROM * 

* EEGINNING OF * 

* IBCOM * 
***************** 



PAUSE X 

*****A4**** ****** 

* GET DISTANCE * 

* »D • * 

* OF PAUSE FROM * 

* BEGINNING OF * 

* IBCOM * 
***************** 



PAUSE1 

*****B 3* ********* 

* * 

* GET ADDRESS * 
...X*OF THE BGNG OF *X. 

* IBCOM * 

* * 
***************** 



*****C 3*** ******* 
*BASCHK KXA3* 
*—*—*—*—*—*—*—*—* 

* GENERATE * 
*L 15» V( IBCOM) * 

* * 
***************** 



*****D3*** ******* 
*RXOUT KXJ3* 
*—*—*—*—*—*—*—*—* 

* GENERATE * 
*BAL 14 • D(15) * 

* * 
***************** 



*****E3*»* ******* 
*RROUT * 

*-*-*-*-*-*-*-*-* 
*SET UP DC*S FOR* 

* CHAR CNT AND * 

* HALT NUMBER * 
***************** 



X 
***** 
*KE * 
* Bl* 



Chart KS. 
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.* HAS A *. 

STOP BEEN '■ 
GENERATED 



GENERATE 
CALL TO 
IBEXIT 



»*»*»A5 *•»•»»•»»* 

* PUT OUT TEXT * 
*CARD WITH BASE * 

• ADDRESSES * 



SAVE 
LOCATION 
COUNTER 



*****B5*********« 

* PUT BASE * 

* ADDRESSES IN * 

* RLD CARDS * 
•COMMON. ESID=2 
•PROGRAM. ESID=1 



CLOSE OUT 

ANY TEXT 

CARD ENTRIES 



CHKBL X 

»»*»*C3«*««»*»«** 
* INITIALIZE * 
« SUBROUTINE TO « 
•PROCESS BRANCH « 
•LIST FOR STATE-* 
» MENT NUMBERS 



» PUT OUT RLD • 
•CARDS AND CLEAR* 

• BUFFERS FOR « 

• END CARD * 

••••*•*•*•***•*** 



» SET TEXT CARD • 

* ADDRESS * 
•AND BYTE COUNT • 

• TO ZERO • 



•GENERATE DC CL7* 
» •PRGNAME' * 
* DC XL1 '07' * 



GENERATE 

STM 14.12 

SAVE 



PUT OUT 
BRANCH LIST 
TEXT CARDS 



PUT ENTRY 
POINT IN 
END CARD 



##*»#E2********** 

• INITIALIZE • 

• SUBROUTINE TO « 
•PROCESS BRANCH «X . 
•LIST FOR ASF(S)« 

• AND DO STMTS « 



• SECOND » 

BRANCH LIST 
•.PROCESSED.* 



COMPUTE 
SIZE OF 
PROGRAM 



RLDCHK X 

*****F3*****#***« 

* INITIALIZE * 

♦ SUBROUTINE TO • 
» CREATE RLD * 
♦CARDS FOR STMT.* 
•NO. BRANCH LIST* 



GENERATE 

LM 4.N. 

BASE 



PUT OUT 
BRANCH LIST 
RLD CARDS 



PRINT SIZE 
OF COMMON 
AND PROGRAM 



BRCHK2 

*****H2** ***»«*** 

* INITIALIZE • 

* SUBROUTINE TO * 

* CREATE RLD *; 

* ENTRIES FOR * 
•ASF(S)+DO STMTS* 



* SECOND », 

BRANCH LIST 
•.PROCESSED.* 



XYZOUT 
YES 



► ANY • 
WARNINGS OR 
>• ERRORS .* 



•CLOSE STATEMENT* 

• NUMBER PRINT • 

* BUFFERS * 



•PUT COMMON BASE* 
» ADDRESSES IN * 
* TEXT CARD » 



•*»J5**»*»«»** 

EXIT TO * 

CTL CARD * 

ROUTINE 



*«*«*K3*****«*«*« 

* PUT PROGRAM • 
•BASE ADDRESSES • 

• IN TEXT CARD » 
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Form Z28-6620-0 
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***** A3*** ******* 

* * 

* SAVE ENTRY * 
♦POINT LOCATION * 

* COUNTER * 

* * 
***************** 



.* ARE *. 
.* BASE *. 
. VALUES 
♦ADDRESSABLE* 



-*—*—*—*—* 



***************** 



******* 



********* 



-*—*—*—* 



GENERATE * 

L I5=V( IBCOM ) * 

* 

**************** 



GENERATE * 
BAL 14,40( 15) * 

**************** 
I 
I 



ANY 

EXTERNAL 

CALLS 



-*—*—*—*—*—*—*—* 
GENERATE * 



************** 



****G 2* ******** 

* * 

* RETURN * 

* * 
*************** 



#_*_*_#_ 



*****H3*** ******* 

* * 
♦GENERATE BRANCH* 

* TEXT FOR ASF * 

* BRANCH * 

* * 
***************** 



**** j 3* ******** 

* * 

* RETURN * 

* * 
*************** 



GENERATE * 
LA 13. 24 (B) * 



********** 



* GENERATE 

* ST 13. 8( 12) 
* 
*************** 



-* GENERATE * 
* ST 12, 4 (13) * 

***************** 



I Chart KU. Entry Routine 
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***** 
*KV * 
* A3* 



GENBC X 

*****A3********** 

* GET ADDRESS * 

* OF BEGINNING * 

* OF BRANCH * 

* LIST * 

* * 
***************** 



*****B 3*** ******* 

* CALCULATE * 

* ADDRESS OF * 

* BRANCH LIST * 

* ENTRY FOR * 

* STMT. NO. * 
***************** 



*****C 3* ********* 
*BASCHK KXA3* 
*-*-*-*-*-*-*-*-* 
♦GENERATE LOAD R* 
*WITH ADDRESS IN* 
* BRANCH LIST * 
***************** 



*****03********** 

* INSERT * 

* MASK * 

* IN * 

* BRANCH * 

* INSTRUCTION * 
***************** 



*****E3* ********* 
*RROUT KXA5* 
*_*_*_*_*_*_*_*—♦ 

* GENERATE * 

* BCR MASK.O(R) * 

* * 
***************** 



****F 3*** ****** 
ft * 

ft RETURN * 
ft * 

*************** 



Chart KV. Subroutine GENBC 
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***** 

*KW * 

* A3* 

* * 



GET X 

*****A3********** 

* * 

* UPDATE * 

* BUFFER * 

* POINTER * 

* * 
***************** 



****B2 ********* 
ft * 

* RETURN *X. 
» * 

*************** 



END 

OF 

BUFFER 



.* IN 

STORAGE 
*.- COMPILE 



****D2* ******** 
ft * 

* RETURN *X. 
ft * 

*************** 



D3 *. 

.* END *. 
YES •* OF DATA *• 
....*. SET INDICATOR.* 
*. ON .* 



*****E2 ******* 

* SET END * 

* OF DATA SET * 

* INDICATOR *X. 

* ON * 

* * 
************** 



*****E 3**** ****** 

* * 
F* SUPERVISOR * 
•* CALL TO * 

* READ TEXT * 

* * 
***************** 



NOREAD X 

*****p 3** ******** 

* * 

* FLIP * 

* BUFFER *X 

* POINTERS * 

* * 
***************** 



****G3********* 
ft * 

* RETURN * 
ft * 

*************** 



Chart KW. Subroutine GET 
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.* ANY *. 

.* SPILL *. I 

•.BASE IN THIS .* 
*. PROGRAM .* 



.* IS IT *. 
YES .*THE SAME AS* 
....*. PREVIOUS 

*. SPILL .* 



SAVE LINK 

REGISTER 

AND 

INSTRUCTION 

POINTER 



SUBTRACT 8 FROM* 
ACTUAL EASE *: 
DISPLACEMENT * 



***G3* 

RESTORE 
LINK REGISTER '■ 
AND INSTR. 



CHANGE 
BASE TO SPILL : 
BASE REGISTER '■ 



J3« RXOUT 



TXTEST 
INSTRUCTION 
LENGTH TO 2 



. TXTEST 



Chart KX. Subroutine BASCHK/RXOUT/RROUT 
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***** 
*KZ * 
* A2* 



****A 1 ********* 
* 

RETURN * 

*************** 



RLDTXT X 

*****A3********** 

* SET BUFFER * 

* POINTER AND * 
*PUT BYTE COUNT * 

* IN TEXT CARD * 



*** 



**** 



*** 



TXTOUT X 

*****A4********** 

* PUT CARD * 

* SEQUENCE NO. * 

* AND PROGRAM * 

* NAME ON * 

* CARD * 
***************** 



* UPDATE * 

* LOCATION * 

* COUNTER * 

* * 
***************** 



****** B5 ********** 

WRITE 

* CARD ON * 



********** 



*****C1 ********* 

* DECREMENT 

* LOCATION 

* COUNTER 



.* CAN *. 

* INSTRUC- * 

TION FIT ON 
*. CARD .* 



******* 



t********* 



*****C3********** 

* * 

* INITIALIZE * 

* OTHER * 

* BUFFER * 

* * 
***************** 



******C5********* 

* PUNCH 
•X TEXT 

* CARD * 

************* 



*****D 1 ******* 



* SET EXIT 

* INDICATOR 

* OFF 

* * 
************** 



INDICATOR 



****D4********* 

* * 

* RETURN * 

* * 
*************** 



PUT OUT *. 
TEXT CARD * 
IMAGE * 
************** 



*****E2 ********** 

* * 

* PUT INSTR * 
X* IN * 

* CARD BUFFER * 

* * 
***************** 



*E3********* 

RETURN 
************ 



***F2 ********** 

UPDATE * 

BYTE COUNT * 

AND BUFFER * 

POINTER * 



****** 



****** 



PUT OUT *X 
TEXT CARD * 
IMAGE * 
************** 



* END 
OF 
BUFFER 



****H2******** 
* RETURN 
************** 



Chart KZ. Subroutines TXTEST, RLDTXT, TXTOUT 
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PHASE 30 



Phase 30 produces error and warning 
messages signalled by error/warning indica- 
tors set in the output text of any preced- 
ing phase. 

Chart 09 , the Phase 30 Overall Logic 
Diagram, indicates the entrance to and exit 
from Phase 30 and is a guide to the overall 
functions of the phase. 

When an error condition is encountered 
during compilation, an error indicator is 
set in the communications area. Phase 20, 
at the completion of its processing, checks 
this indicator. When errors have been 
encountered in the preceding phases. Phase 
20 determines if the GOGO option was speci- 
fied by the user. If the GOGO option was 
not specified, entry is made into Phase 30; 
otherwise. Phase 20 exits to Phase 25. 

When a warning condition is encountered 
during compilation, a warning indicator is 
set in the communications area. Phase 25, 
at the completion of its processing, deter- 
mines if error or warning conditions have 



been encountered. When either condition is 
encountered, entry is made into Phase 30. 



Phase 30 checks the adjective code of 
each text word for an error or warning 
condition. Phase 30 accesses the 
err or /warning number (set up by the phase 
that found the error /warning condition) 
from the mode/ type field of that text word* 
This number is compared to the numbers in 
the error/ warning message table. (This 
table is illustrated in the System/360 
Basic Programming Support FORTRAN 
Programmer's Guide, Diagnostic Messages.) 

If that number is found in the table. 
Phase 30 prints the corresponding message. 
When a corresponding number is not found in 
the table. Phase 30 prints a message indi- 
cating a compiler error. <*~— 

After the text is completely processed. 
Phase 30 returns control to the FORTRAN 
System Director to call in the Control Card 
routine. 
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*****FROM FORTRAN 
*09 ♦SYSTEM DIRECTOR 
* B3* 



*****B3** ******** 



ACCESS A 
TEXT WORD 



***************** 



C3 *. 

.* DOES *. 

.♦ ADJECTIVE *. YES 

.CODE INDICATE.*.... 

*. ERROR OR .* 

♦WARNING* 



****** C4 *********** 
PRINT ERROR/ 
* WARNING * 
.X MESSAGE 

* DESIGNATED * 

IN TEXT 

************* 



NO 



NO .* TEXT *. 
»••*. PROCESSING 

♦.COMPLETE .* 
*. .* 
*• .* 
* YES 



****E3* ******** 
♦RETURN CONTROL * 
* TO FORTRAN * 
♦SYSTEM DIRECTORS 

*************** 



Chart 09. Phase 30 Overall Logic Diagram 
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PART 4: OBJECT-TIME EXECUTION 



An object program generated by the 
FORTRAN compiler is executed via four seg- 
ments of the system: FORTRAN System Direc- 
tor (FSD) , Control Card routine, FORTRAN 
loader, and IBCoM. 

The FSD and Control Card routine are 
discussed in Part 2; the FORTRAN loader and 
IBCOM are to be discussed in this part of 
the manual. 
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FORTRAN LOADER 



The FORTRAN loader (BPS FORTRAN IV D 
Relocating Loader) places control segments 
into storage at locations other than those 
assigned by the compiler; that is, relo- 
cates them, completes the linkage between 
the various segments, and, at the end of 
the loading process, provides the FORTRAN 
System Director with the location to which 
control is to be transferred in the user 



Chart 11, the Loader Overall Logic 
Diagram, indicates the entrance to and exit 
from the loader and is a guide to the 
overall functions of the loader. 



LOADING PROCESS 



ESD and RLD cards) . When all library 
subprograms have been read in and the 
information for relocation and linkage is 
on the work tape, the loader rewinds the 
work tape. 



The loader reads the work tape and 
carries out the relocation and linkage for 
the user program as instructed by the 
information on the loader cards. 



When relocating control segments and 
establishing the linkage among them, the 
loader must calculate certain information 
during the loading process. The loader 
receives this information from loader cards 
encountered during the loading process and 
performs its calculations with a distinct 
routine for each type of load card. 



The flow of operations of the FORTRAN 
loader can, in general, be defined as 
follows: the user program is read into 
storage, the library routines referenced by 
the user program are loaded into main 
storage, and relocation and linkage are 
effected. 



More specifically, the loader reads the 
entire user program into main storage. The 
user program may consist of one or more 
control segments (a control segment is the 
output of a single compilation) . The name, 
length, and starting address of a control 
segment are defined by an ESD Type card; 
the end of the control segment is defined 
by an END card. (The segment length may 
also be indicated in the END card.) The 
end of the entire user program is defined 
by an LDT or DATA card. As the user 
program is read into storage, the control 
dictionary for segment relocation and lin- 
kage are built. 



Once the program is in main storage, the 
loader begins to process the calls made by 
the program for library subprograms. Any 
reference to a library subprogram causes a 
search of the library on the system tape, 
provided the referenced subprogram is not 
already in main storage. 

During the process of accessing and 
reading segments into storage, the loader 
writes on a work tape the information for 
relocation and linkage (contained in the 



Thus, for information on relocating, the 
loader analyzes and performs calculations 
on the Set Location Counter (SLC) , Include 
Segment (ICS) , External Symbol Dictionary 

(ESD) , Text (TXT) , and Replace (REP) cards. 
For information on linkage, the loader acts 
on External Symbol Dictionary (ESD types 0, 
1, 2, and 5) , Relocation List Dictionary 

(RLD) , and Replace (REP) cards. The infor- 
mation for end-of-load transfer is provided 
by Load Terminate (LDT) , Type/Data (/DATA) , 
and Load End (END) cards. 



CONTROL DICTIONARY ELEMENTS 



The control dictionary consists of a 
reference table, an external symbol iden- 
tification table (ESIDTB) , and a location 
counter. 



The reference table is a list of 12-byte 
entries built by the loader; it contains 
the names and entry points of a control 
segment, their present internal location, 
and the relocation factor. (The relocation 
factor is the difference between the com- 
piler assigned address of a control segment 
and the address where the segment is 
actually loaded in storage.) 
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The ESID table contains pointers to the 
entries, in the reference table , for the 
current control segment. 



In the following paragraphs, the func- 
tion of each card is stated briefly, the 
card format shown in tabular form, and each 
field of the card is explained. 



The FORTRAN loader maintains its own 
location counter, which is used to deter- 
mine where control segments are to be 
loaded. The counter is set to a constant 
value during the initial loading process 
and is subsequently incremented by the 
number of bytes indicated on an ESD Type 
or END card. It may also be incremented by 
the length indicated on an ICS card or 
reset by an SLC card. 



SET LOCATION COUNTER CARD 



The Set Location Counter (SLC) card is 
supplied by the programmer. The card sets 
the location counter of the loader to the 
address assigned to the name in the card. 
If there is also a hexadecimal address in 
the card, that address is added to the 
address assigned to the name in the card 
and the location counter is set to the 
resulting sum. The contents of the SLC 
card fields are explained in Figure 59. 



FORTRAN LOADER FUNCTIONS 



As was pointed out, the FORTRAN loader 
must perform certain calculations on the 
information it receives from the loader 
cards. The routines that analyze and act 
upon the load cards are illustrated on 
Charts NC through NM. 

The loader must also have routines to 
initialize itself and to read cards into 
storage: these routines are shown on charts 
NA and NB. 

Apart from initializing itself, reading 
cards into storage, and acting upon the 
information contained in those cards, there 
are other necessary functions that must be 
provided for, such as handling error indi- 
cations (Chart NS) , providing a map of 
storage (Chart NT) , obtaining or searching 
for frequently referenced data (Charts NO 
through NR) , converting hexadecimal charac- 
ters to binary (Chart NN) , and routines to 
handle end of data set (EODS) indications. 



CARD FORMATS 



The relocating loader recognizes the 
card images specified under 'LOADING PROC- 
ESS." The SLC, ICS, REP, LDT, and DATA 
cards are supplied by the user. The ESD, 
RLD, TXT, and END cards are generated by 
the compiler. 



j Columnj 
I- +- 



Contents 



Load card identification 
(12-2-9) . Identifies this as a 
card acceptable to the loader. 



the type of 



2-4 | SLC. Identifies 
load card. 

5-6 I Blank. 



7-12 | Address in hexadecimal (to be 
added to the value of the sym- 
bol in columns 17-22) . The 
address must be right- justified 
in these columns, and unused 
leading columns filled in with 
zeros. 

13-16 I Blank. 



17-22 | Symbolic name, whose internal 
assigned location will be used 
by the loader. The symbol must 
be left- justified in these 
columns. If left blank, an 
error is indicated. 

23-72 I Blank. 



73-80 | Not used by the loader. The 
programmer may leave blank or 
punch in program identification 
for his own convenience. 
l x J 

Figure 59. Set Location Counter (SLC) Card 



FORTRAN Loader 
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INCLUDE SEGMENT CARD 



The Include Segment (ICS) card is sup- 
plied by the programmer. The card defines 
a control segment by name and length and so 
enables one control segment to refer to 
another. The contents of the ICS card 
fields are explained in Figure 60. 



r t" 

I Column I 



Contents 



I— 



r t- 

| Column | 



Contents 



Load card identification 
(12-2-9) . Identifies this as a 
card acceptable to the loader. 



2-4 

5-16 
17-22 

23-24 
25-28 



ICS. Identifies the type of 
load card. 

Blank. 

Name of segment , left- justified 
in these columns. 



Blank. 



Length (in bytes) in hexadeci- 
mal notation of the control 
segment. This must not be less 
than the actual length of the 
segment. The number must be 
right-justified in these 
columns, and unused leading 
columns filled in with zeros. 
Can be all zeros. 



29-72 Blank. 



73-80 | Not used by the loader. The 
programmer may leave blank or 
punch in program identification 
for his own convenience. 

Figure 60. Include Segment (ICS) Card 



2-4 

5-10 
11-12 

13-14 
15-16 

17-22 
23-24 
25 

26-28 

29 
30-32 

33-72 
73-80 



Load card identification 
(12-2-9) . Identifies this as a 
card acceptable to the loader. 

ESD. Identifies the type of 
load card. 

Blank. 

The number of bytes in the 
card. Extended card code 
12-0-1-8-9 and 12-11-1-8-9 
(hexadecimal value of 0010) . 

Blank. 

External Symbol Identification 
(ESID) . Number, in extended 
card code, assigned to the seg- 
ment. 

Program name. 

Blank. 

Extended card code 12-0-1-8-9 
(hexadecimal value of 00) , 
identifying this as a program 
name card. 

Address, in extended card code, 
of the first byte of the seg- 
ment as assigned by the compil- 
er. 

Blank. 

Number, in extended card code, 
of bytes in the control seg- 
ment. May be all zeros. 

Blank. 

Not used by the loader. The 
programmer may leave blank or 
punch in program identification 
for his own convenience. 



Figure 61. 



External Symbol 
(ESD) Type Card 



Dictionary 



EXTERNAL SYMBOL DICTIONARY TYPE CARD 



The External Symbol Dictionary (ESD) 
Type card defines the name, starting 
address, and when necessary, the length of 
a control segment. There is only one ESD 
Type card for each control segment. The 
contents of the ESD Type card fields are 
explained in Figure 61. 



EXTERNAL SYMBOL DICTIONARY TYPE 1 CARD 



The External Symbol Dictionary (ESD) 
Type 1 card defines an entry point within 
the control segment to which another seg- 
ment may refer. One card is produced for 
each entry point so defined. 

The contents of the ESD Type 1 card 
fields are explained in Figure 62. 
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r t 

| Column | 

I- + 

1 



2-4 

5-10 
11-12 

13-16 
17-22 

23-24 
25 

26-28 

29-30 
31-32 



Contents 



33-48 

49-64 

65-72 
73-80 



Load card identification 
(12-2-9) . Identifies this as a 
card acceptable to the loader. 

ESD. Identifies the type of 
load card. 

Blank. 

The number of bytes in the card 
in extended card code. 
(decimal value of 16, 32; or 4 8 
in hexadecimal) 

Blank. 

Name of entry point. 

Blank. 

Extended card code 12-1-9 
(hexadecimal value of 01) , 
identifying this as an entry 
point card. 

Address , in extended card code, 
of the entry point as assigned 
by the compiler. 

Blank. 

External Symbol Identification 
(ESID) . Number, in extended 
card code, assigned to control 
segment in which entry points 
occurred. 



a repeat of columns 
a repeat of columns 



L JL 

Figure 62 



May be 
17-32. 

May be 
33-48. 

Blank. 



Not used by the loader. The 
programmer may leave blank or 
punch in program identification 
for his own convenience. 

External Symbol Dictionary 
(ESD) Type 1 Card 



EXTERNAL SYMBOL DICTIONARY (ESD) TYPE 2 
CARD 



The External Symbol Dictionary (ESD) 
Type 2 card points to a name within another 
control segment to which this control seg- 
ment may refer. It is assigned an iden- 
tifying number of 2 through 15, according 
to the order in which it is encountered by 



the compiler among the external symbols of 
the segment. 



The contents of the ESD Type 2 card 
fields are explained in Figure 63. 



r t 

| Column | 
|. f 

1 



2-4 

5-10 
11-12 

13-14 
15-16 



Contents 



17-22 
23-24 
25 

26-28 



29-32 

33-48 

49-64 
65-72 
73-80 

Figure 63, 



Load card identification 
(12-2-9) . Identifies this as a 
card acceptable to the loader. 



ESD. Identifies 
load card. 

Blank. 



the type of 



The number of bytes in the card 
in extended card code, 
(decimal value of 16, 32; or 48 
in hexadecimal) 

Blank. 

External Symbol Identification 
(ESID) . Sequential number, in 
extended card code, assigned to 
the first external symbol on 
this card. 

Name of external symbol. 

Blank. 

Extended card code 12-2-9 
(hexadecimal value of 02) iden- 
tifying this as an external 
symbol card. 

Extended card code 12-0-1-8-9, 
12-0-1-8-9, and 12-0-1-8-9 
(hexadecimal value of 000000) . 
An address of is always 
assigned to External Symbols by 
the compiler. 

Blank. 

May repeat columns 17-32 for a 
second entry. 

For a third entry. 

Blank. 

Not used by the loader. The 
programmer may leave blank or 
punch in program identification 
for his own convenience. 



External Symbol 
(ESD) Type 2 Card 



Dictionary 
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EXTERNAL SYMBOL DICTIONARY TYPE 5 CARD 



TEXT CARD 



The External Symbol Dictionary (ESD) 
Type 5 card defines a given size for Blank 
COMMON. 



The contents of the ESD Type 5 card 
fields are explained in Figure 64. 



The Text (TXT) card contains the 
instructions and/or constants of the user 
program and the starting address at which 
the first byte of text is to be loaded. 



The contents of the TXT card fields 
explained in Figure 65. 



are 



r T" 

| Column | 

f +- 



Contents 



j Column j 
F ■+- 



Contents 



2-4 

5-10 
11-12 

13-14 
15-16 



17-24 
25 

26-28 



29 



30-32 



33-72 



73-80 



Load card identification 
(12-2-9) . Identifies this as a 
card acceptable to the loader. 

ESD. Identifies the type of 
load card. 

Blank. 

The number of bytes in the 
card. Extended card code 
12-0-1-8-9 and 12-11-1-8-9 
(hexadecimal value of 0010) . 

Blank. 

External Symbol Identification 
(ESID) . Sequence number in 
extended card code, assigned to 
external symbol. 



Blank. 

Extended card code 12-5-9, 
identifying this as a Blank 
COMMON card. 

Address of first byte of the 
program as assigned by the com- 
piler. This field is always 
punched in extended card code 
with a hexadecimal value of 
000000. 

Blank. 



Number, in extended card code, 
of bytes in BLANK COMMON. 

Blank. 

Not used by the loader. The 
programmer may leave blank or 
punch in program identification 
for his own convenience. 

Figure 64. External Symbol Dictionary 
(ESD) Type 5 Card 



2-4 

5 
6-8 

9-10 
11-12 

13-14 
15-16 



17-72 



73-80 



Load card identification 
(12-2-9) . Identifies this as a 
card acceptable to the loader. 

TXT. Identifies the type of 
load card. 

Blank. 

24-bit starting address (in 
extended card code) in storage 
where the information from the 
card is to be loaded. 

Blank. 

Number of bytes (in extended 
card code) of text to be loaded 
from the card. 

Blank. 

External Symbol Identification 
(ESID) . Number, in extended 
card code, assigned to the con- 
trol segment in which the text 
occurs. 

A maximum of 56 bytes of 
instructions and/or constants 
assembled in extended card 
code. 



Not used by the loader. The 
programmer may leave blank or 
punch in program identification 
for his own convenience. 

Figure 65. Text (TXT) Card 



REPLACE CARD 



The Replace (REP) card allows correc- 
tions and/or additions to be made to the 
user program at load time. The REP card is 
supplied by the programmer. It must be 
punched in hexadecimal. 

If additions made by REP cards increase 
the length of a control segment, the pro- 
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grammer must place an ICS card (which 
defines the total length of the control 
segment) at the front of the control seg- 
ment. 

The constants of the REP card fields are 
explained in Figure 66. 



A control segment may contain more than 
one symbol or expression, definable in 
terms of one relocatable symbol. The RLD 
card lists addresses for as many as 13 
expressions so defined. If there are more 
than 13 such expressions, other RLD cards 
associated with the symbol are produced. 



T - 

Column | 



Contents 



2-4 



5-6 



7-12 



13-14 
15-16 



17-70 



71-72 
73-80 



Load card identification 
(12-2-9) . Identifies this as a 
card acceptable to the loader. 



REP. Identifies 
load card. 

Blank. 



the type of 



Starting address, in hexadeci- 
mal, of the area to be 
replaced, as assigned by the 
compiler. It must be right- 
justified in these columns, and 
unused leading columns filled 
in with zeros. 

Blank. 

External Symbol Identification 
(ESID) . Hexadecimal number 
assigned to the control segment 
in which replacement is to be 
made. 

A maximum of 1 1 four-digit 

hexadecimal fields, separated 

by commas, each replacing one 

previously loaded half-word 

(two bytes) . The last field 
must not be followed by a 
comma. 

Blank. 

Not used by the loader. The 
programmer may leave blank or 
punch in program identification 
for his own convenience. 



Figure 66. Replace (REP) Card 



RELOCATION LIST DICTIONARY CARD 



The Relocation List Dictionary (RLD) 
card is produced by the compiler when it 
encounters a DC instruction or the second 
operand of a CCW instruction , which defines 
an address as a relocatable symbol or 
expression. This may be the address of 
either an internal symbol, which occurs 
only within the control segment, or of an 
external symbol belonging to another con- 
trol segment. 



The contents of the RLD card fields are 
explained in Figure 67. 



r t" 

| Column | 

I- +- 



2-4 

5-10 
11-12 



13-16 



17-72 



Contents | 

Load card identification 
(12-2-9) . Identifies this as a 
card acceptable to the loader. 



RLD. Identifies 
load card. 

Blank. 



the type of 



Number, in extended card code, 
of bytes of information in the 
variable field (card columns 
17-72) of this card. The range 
is from 8 to a maximum of 56. 

Blank. 

Variable field (in extended 
card code) . Consists of the 
following subfields: 



Relocation 



Header. 



(Two 

bytes.) An ESID with a value 
of from 01 through 15. Whether 
or not the value is 01 or from 
02 through 15 depends on wheth- 
er the symbol it points to is 
internal or external to the 
particular control segment. 

Position Header . (Two bytes.) 
The ESID assigned to this con- 
trol segment. 

Flag Byte (bits through 3 are 
not used) . This byte contains 
three items; 

1 - Size . (Bits 4 and 5.) 
Two bits which indicate 
the length (in bytes) of 
the adjusted address cell 
(AA Cell) . 



a. 
b. 
c. 
d - 

Figure 67. Relocation 



(RLD) Card 



00 - one-byte cell 

01 - two-byte cell 

10 - three-byte cell 

11 - four-byte cell 

List Dictionary 
(continued) 
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j Column j 



Contents 



^ 



2. Complement Flag , (Bit 6.) 
When this bit is a one, it 
means that the value (or 
address) of the symbol is 
to be subtracted from the 
contents of the AA Cell, 
When this bit is a zero, 
the *alue of the symbol is 
to be added to the con- 
tents of the AA Cell. 

3. Continuation Flag . (Bit 
7.) When this bit is a 
one, it means that this is 
one of a series of 
addresses to be adjusted. 
When this bit is a zero, 
this is the only AA Cell 
to be adjusted or the last 
in a series using the same 
Relocation and Position 
headers. 



73-80 



Address . 
address 
AA Cell. 



The three-byte 
of the location of the 



The Flag Byte and Address 
may be repeated for AA Cells as 
long as the continuation flag 
bit is on in the current four- 
byte entry. 



Not used by the loader. The 
programmer may leave blank or 
punch in program identification 
for his own convenience. 



Figure 67. Relocation 
(RLD) Card 



List Dictionary 



j Column | Contents j 

Load card identification 
(12-2-9) . Identifies this as a 
card acceptable to the loader. 



2-4 



6-8 



9-14 
15-16 

17-29 
30-32 

33-72 

73-80 



END. Identifies 
load card. 

Blank. 



the type of 



Address (may be blank) , in 
extended card code, of the 
point in the control segment to 
which control may be trans- 
ferred at the end of the load- 
ing process. See the condi- 
tions and priority discussed 
under Load Terminate card. 

Blank. 

External Symbol Identification 
(ESID) . The number 0002, in 
extended card code is assigned 
to the program. 

Blank. 

Number, in extended card code, 
of bytes in the program. 

Blank. 



Not used by the loader. The 
programmer may leave blank or 
punch in program identification 
for his own convenience. 

Figure 68. Load End (END) Card 



J LOAD TERMINATE AND DATA CARDS 



The Load Terminate (LDT) and Type/Data 
(DATA) cards which are provided by the 
programmer, have the same functions: they 
terminate the loading process and may pro- 
vide the address, within one of the loaded 
control segments, to which control should 
be transferred. 



LOAD END CARD 



The Load End (END) card is produced by 
the compiler when it encounters the END 
statement instruction. This card ends the 
loading of a control segment and may 
specify a location within the control seg- 
ment to which control is to be transferred 
at end-of-load. 



The contents of the END card fields are 
explained in Figure 68. 



The specific location to which control 
will be transferred is determined through 
the following order of priority: 

1 . Control is always transferred to a 
location specified on an LDT or DATA 
card. 

2 . If the LDT or DATA card does not 
specify a location, control is trans- 
ferred to the location specified by 
the first END card containing an 
address encountered during the current 
loading process. 
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3. If neither the LDT, DATA, nor END card 
specifies a location, control is 
transferred to the first location into 
which the contents of a TXT card are 
loaded (or of a REP card, if one 
precedes the text cards) • 



The contents of the LDT and DATA card 
fields are explained in Figures 69 and 70, 
respectively. 



| Column j 
I- +- 



Contents 



Load card identification 
(12-2-9) . Identifies this as a 
card acceptable to the loader. 

LDT. Identifies the type of 
load card. 

Blank. 

Name of entry point to the 
program segment, left- justified 
in these columns. Use of this 
field is optional. 

Blank. 

Not used by the loader. The 
programmer may leave blank or 
punch in program identification 
for his own convenience. 

Figure 69. Load Terminate (LDT) Card 



r t 1 

| Column | Contents | 

1 | Load card identification (0-1) • 
Identifies this as a card 
acceptable to the loader. 



2-5 



6-16 



17-22 



23-72 



73-80 



DATA. Identifies the type of 
load card. 

Blank. 



Name of entry point to the 
program segment, left- justified 
in these columns. Use of this 
field is optional. 

Blank. 

Not used by the loader. The 
programmer may leave blank or 
punch in program identification 
for his own convenience. 



IER Routine: Chart NA 



The IER routine performs those initiali- 
zation steps that enable the loader to 
begin the loading process. 



ENTRANCE: 



The IER routine receives control 



from the FORTRAN System Director (FSD) 



OPERATION: The IER routine sets an indica- 
the communications area to notify 
the loader is in control and 
start time. IER obtains the 

of stor- 



tor in 

FSD that 

records the 

beginning load address, the size 

age, and the logical input device from the 

communications area. 



IER uses the highest available storage 
address to determine the starting address 
of Blank Common and sets the location 
counter to the begin-load address. 

After setting up the reference table 
counter, loading the entry point for IBCOM 
into the reference table, and writing the 
storage map heading, the IER routine sets 
up: to read either cards or tape, rewind 
the work tape, and transfer control to the 
RD routine. 



The IER routine exits to the RD 



Figure 70. Type/Data (DATA) Card 



EXIT: 
routine. 



RD Routine: Chart NB 



The RD routine reads one card image at a 
time into storage. 

ENTRANCE: The RD routine is entered from 
the following routines: IER, CMPICS, 
CMPSLC, CMPESD, CESDO, CESD1, CESD2, 
CMPTXT, CMPRLD, CMPREP, CMPEND, MAP, and 
EODS. 

OPERATION: The RD routine, after setting 
up to read, loads the input buffer address 
and the number of bytes to be read, and 
issues a read SVC. If the end of the data 
set has been reached, control is trans- 
ferred to the EODS routine; otherwise, a 
set of constants, used throughout the load- 
er, are loaded. 

A series of tests, based on a set of 
switches, are performed; switches 1,3, and 
6 indicate, respectively: if the end of the 
control segment has been reached on the 
system tape; if the system tape is being 
searched for a given control segment; and 
if the control segment is needed from the 
system tape. When the system tape is not 
being read, switches 1, 3, and 6 are always 
off. If the end of the control segment has 
not been reached on the system tape (switch 
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1 off) and if the system tape is not being 
searched (switch 3 off) , control is trans- 
ferred to the CMPTXT routine. 

However , when a search of the reference 
table indicates that all control segments 
have not yet been entered into storage , 
switch 3 is turned on, initiating a search 
for ESD Type cards. When an ESD Type 
card is found, the name in the card is 
compared to the entries in the reference 
table to determine if the segment is need- 
ed. If it is needed, switches 1, 3, and 6 
are turned off and control is transferred 
to the CMPESD routine. If the segment is 
not needed, the name is placed in the 
reference table with a not-found indica- 
tion, a 1 is added to the reference table 
count, switch lis turned on, and another 
card image is read. 

If the card is an ESD card, other than 
ESD Type 0, a test is made to determine if 
the card is an ESD Type 1 card. When an 
ESD Type 1 card is encountered, the ref- 
erence table is searched for the entry 
point name to further determine if this 
control segment is needed. If the entry 
point name is not in the reference table or 
if the card is not an ESD Type 1 card, 
another card is read. The name could be in 
the REFTBL and not needed. 

If the card is an ESD Type 1 card and 
the search of the reference table indicates 
that the segment is needed, switch 6 is 
turned on, and another card is read. 

When switch 1 is on and an END card is 
encountered, indicating the end of a 
library subprogram, a test is made of 
switch 6. Switch 6, being on, indicates 
that this control segment is needed, as 
requested through one of its entry points. 
Because this segment is already bypassed on 
the tape, another pass through the system 
library is needed. For this process, 
switches 1 and 6 are turned off. The ESD 
Type name, that was placed in the ref- 
erence table with a not-found indication, 
becomes a permanent entry in the table. 

If switch 6 is off and an END card is 
encountered, switch 1 is turned off, indi- 
cating that the control segment was not 
needed and 1 is subtracted from the ref- 
erence table count, effectively deleting 
the name contained in the ESD Type card 
from the reference table. 



EXITS : The RD routine exits to either the 
CMPTXT, EODS, or CMPESD routine, depending 
on the conditions discussed under 
"Operation." 

ROUTINE CALLED: During execution, the RD 
routine references the EODS routine. 



CMPSLC Routine: Chart NC 



The CMPSLC routine sets the location 
counter to the address assigned to the 
symbolic name in the SLC card; if there is 
also a hexadecimal address in the card, 
that address is added to the address 
assigned to the symbolic name, and the 
location counter is set to the resulting 
sum. 



ENTRANCE: The CMPSLC routine is entered 
from the CMPREP routine when that routine 
encounters a card that is not a REP card. 

OPERATION: The CMPSLC routine determines 
if the card to be processed is an SLC card; 
if not, the routine transfers control to 
the CMPICS routine. 

When an SLC card is encountered, a check 
is made for a name in the card. The 
absence of a name is an error. If the card 
has a name, a search for that name is made 
in the reference table. If the name is not 
in the table, an error exists. 

When the table contains the name, the 
routine obtains the address currently 
assigned to the name and sets the location 
counter to this value. 

If there is also a hexadecimal address 
in the card, however, that address is 
converted to binary and added to the 
address obtained for the name. The loca- 
tion counter is set to the resulting sum. 



EXIT: 
tine. 



This routine exits to the RD rou- 



ROUTINES CALLED: During execution the 
CMPSLC routine references the SERCH and 
HEXB routines. 



CMPICS Routine: Chart ND 



The CMPICS routine establishes reference 
table entries for the control segment name 
on the ICS card. 

ENTRANCE: The CMPICS routine is entered 
from the CMPSLC routine whenever that rou- 
tine encounters a card that is not an SLC 
card. 

OPERATION: When the card to be processed 
is not an ICS card, control is transferred 
to the CMPESD routine. When the CMPICS 
routine encounters an ICS card, it sets up 
for a possible error message and resets the 
card count counter. 
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After converting the indicated segment 
length to binary, the routine searches for 
the name in the reference table and exits 
to the READ routine if the name is found. 
If the name is not found , the CMPICS 
routine places the name into the reference 
table , adjusts the location counter to the 
next double-word boundary (if necessary) , 
and assigns the current value of the loca- 
tion counter to the name. 

The CMpiCS routine then adds the segment 
length to the current value of the location 
counter and saves the highest address 
assigned to text. 

EXIT: This routine exits to the RD rou- 
tine . 

ROUTINES CALLED; 

CMPICS routine 

SERCH, and HEXb routines 



During execution, the 
references the TBLREF, 



CMPESD Routine: Chart NE 



EXIT: The CMPESD routine exits to the RD 
routine. 



CESDO Routine: Chart NF 



The CESDO routine determines the type of 
ESD card to be processed and makes ref- 
erence table and ESID table entries for the 
control segment specified in the ESD Type 
card. 

ENTRANCE: The CESDO routine is entered 
from the CMPESD routine when that routine 
encounters an ESD card that is not an ESD 
Type 5 card. 

OPERATION: The CESDO routine determines 
the type of ESD card to be processed. It 
transfers control to the appropriate rou- 
tine for an ESD Type 1 or Type 2 card, 
retains control for an ESD Type card; and 
exits to the ERROR routine for an ESD Type 
3 or 4 card. 



If the card to be processed is 



The CMPESD routine determines if the 
card to be processed is an ESD card. If it 
is an ESD Type 5 card, it signifies Blank 
Common. 

ENTRANCE : The CMPESD routine is entered 
from the Library Primary Search routine 
when that routine encounters an ESD Type 
card for a segment that is needed; it is 
also entered from the CMPICS routine when 
that routine encounters a card that is not 
an ICS card. 

OPERATION: 

not an ESD card, the CMPESD routine trans- 
fers control to the CMPRLD routine. If it 
is an ESD card and the work tape is not 
being read, the card image is written on 
the work tape for later processing. If it 
is an ESD card, but not Type 5, control is 
transferred to the CESDO routine. 

When the CMPESD routine encounters an 
ESD Type 5 card, it determines if the work 
tape is being read. Reading of the work 
tape causes the routine to determine if 
Blank Common has been established. If so, 
a test is made to determine if Blank Common 
overlays the text placed in storage. If it 
is, an error condition exists. Control is 
transferred to the RD routine if Blank 
Common is not overlaying text. 

If the work tape is not being read, the 
size of Blank Common is subtracted from the 
size of storage. If the result is less 
than the saved Blank Common address, the 
CMPESD routine saves the size found in the 
ESD Type 5 card. Whether or not the 
routine saves the address, it exits to the 
RD routine. 



This routine resets the card count coun- 
ter for possible error messages and maps 
the segment name and its assigned location. 

The length of the control segment, as 
indicated on the ESD Type card, is loaded 
and the reference table pointer to the 
control segment is placed in the ESID 
table. 

The CESDO routine calculates the reloca- 
tion factor by subtracting the compiled 
address of the control segment from its 
current, relocated address. The routine 
places the relocation factor in the ref- 
erence table. 

EXIT: The CESDO routine exits to the RD 
routine. 

ROUTINES CALLED: During execution the 



CESDO routine references the CMPICS and MAP 
routines . 



CESD1 Routine: Chart NG 



The CESD1 routine establishes a ref- 
erence table entry for the entry point 
specified in the ESD Type 1 card, unless 
such an entry already exists. 

ENTRANCE: This routine is entered from the 
CESDO routine when that routine encounters 
an ESD Type 1 card. 

OPERATION: The CESD1 routine obtains the 
relocation factor for the specified control 
segment through the external symbol iden- 
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tification (ESID) entry on the card. The 
address on the card is added to the reloca- 
tion factor and the resulting sum is saved 
as the new, relocated address of the name. 

The routine then searches for the name 
in the reference table; if it is not in the 
table , the name of the entry point and its 
relocated address are placed in the ref- 
erence table and a map of the entry provid- 
ed. If the name is in the table, the 
routine indicates that it was found and 
compares the new, relocated address to the 
address assigned to the name in the ref- 
erence table; if they are not identical, an 
error exists. 

EXIT: This routine exits to the RD rou- 
tine. 

ROUTINES CALLED: During execution, this 
routine references the MAP, TBLREF, REFTBL, 
LODREF, and SERCH routines. 



CESD2 Routine: Chart NH 



ROUTINE CALLED : During execution, the 
CESD2 routine references the SERCH routine. 



CMPTXT Routine: Chart NI 



The CMPTXT routine makes address validi- 
ty checks and places the contents of a TXT 
card into storage. 

ENTRANCE: The CMPTXT routine is entered 
from the Library Primary Search routine; it 
is also entered from the CMPREP routine for 
address validity checks. 

OPERATION: If the card to be processed is 
not a TXT card, this routine transfers 
control to the CMPREP routine; otherwise, 
the routine obtains the relocation factor 
for this entry from the reference table and 
adds it to the address on the card. If the 
result of this addition indicates that the 
relocated address is within the area of the 
loader or that it exceeds the size of 
storage, an error condition exists. 



The CESD2 routine places the reference 
table pointer of the external name indicat- 
ed on the ESD Type 2 card into the ESID 
table. The routine places the address 
assigned to the external name into the 
reference table as the relocation factor 
for the name. 

ENTRANCE : The CESD2 routine is entered 
from the CESDO routine when that routine 
encounters an ESD Type 2 card. 

OPERATION: The routine searches for the 
name (indicated on the card) in the ref- 
erence table. If the name is not found in 
the table, the reference table pointer to 
the name is placed in the ESID table. The 
ESID table is adjusted for the next entry, 
and control is transferred to location RDD 
to determine if more entries are in the 
card. 

If the name is found in the reference 
table, a test is made to determine if the 
work tape is being read. If the tape is 
not being read, the CESD2 routine transfers 
control to the RD routine. If the work 
tape is being read, the address assigned to 
the external name is loaded into the ref- 
erence table as the relocation factor of 
that name. 

If further processing of the card is 
necessary, control is transferred to the 
CMPESD routine; otherwise, the CESD2 rou- 
tine exits to the RD routine. 



If the address is valid, the CMPTXT 
routine loads the text into storage, unless 
entry into this routine is from the CMPREP 
routine. In the latter case, control is 
returned to the CMPREP routine. 

EXITS: The CMPTXT routine exits to the 
READ or CMPREP routines. 



ROUTINES 



CALLED: 



During execution the 
references the TBLREF, 



EXITS : 
routine. 



The CESD2 routine exits to the RD 



CMPTXT routine 

REFTBL, and LODREF routines 



CMPREP Routine: Chart NJ 



The CMPREP routine places corrections to 
text into storage. 

ENTRANCE: The CMPREP routine is entered 
from the CMPTXT routine when that routine 
encounters a card that is not a TXT card. 

OPERATION: The encounter of any card type, 
other than a REP card, causes the CMPREP 
routine to transfer control to the CMPSLC 
routine. 

When a REP card is encountered, the 
routine converts the address and ESID on 
the card to binary. The routine branches 
to CMPTXT routine to determine the validity 
of that address. 

The routine converts the correction on 
the card to binary and places the correc- 
tion into storage. If there is another 
entry on the REP card, it adjusts the 
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address for the next two bytes and branches 
back to that part of the routine that 
checks address validity. 



EXITS: The CMPREP routine exits to the RD 



routine. 



ROUTINES 



CMPREP routine 
HEXB routines. 



CALLED; During 
references 



execution the 
the CMPTXT and 



CMPRLD Routine: Chart NK 



The CMPRLD routine processes RLD cards, 
which are produced by the compiler when it 
encounters address constants within the 
program being compiled. The CMPRLD routine 
places the relocated storage address of a 
given symbol or expression into the address 
indicated by the compiler. The routine 
must calculate the proper value of a given 
symbol or expression and the proper address 
for adjustment of that value. 

ENTRANCE : The CMPRLD routine is entered 
from the CMPESD routine when that routine 
encounters a card that is not an ESD card. 



The relocation factor of the control 
segment in which the current address of the 
symbol must be stored is added to the 
card- specified address. The sum is the 
current address of the location at which 
the symbol address must be stored. The 
symbol address is then calculated and 
placed at the indicated address. 

If there are no more entries on the RLD 
card, the CMPRLD routine exits; otherwise, 
a test is made of the continuation flag. 
If the flag is on, the CMPRLD routine 
branches back to process data for a new 
symbol (i.e., to that part of the CMPRLD 
routine that tests for a valid external 
ESID) . If the flag is off, the routine 
returns to process data for the same symbol 
(i.e., to that part of the CMPRLD routine 
that determines the length, in bytes, of 
the symbol being processed) . 



EXIT: 
tine. 



This routine exits to the RD rou- 



RQUTINES CALLED : During execution, the 
CMPRLD routine references the REFTBL, 
TBLREF, and L0DREF routines. 



CMPEND Routine: Chart NL 



OPERATION: If the card to be processed is 
not an RLD card, control is transferred to 
the CMPEND routine. If it is an RLD card, 
but has not been written on the work tape, 
the CMPRLD routine writes it on the work 
tape and transfers control to the RD rou- 
tine. 

Aii RLD card that has already been writ- 
ten on the work tape will be tested to 
determine if the external ESID (Relocation 
Header ESID) is valid; if it is not valid, 
an error condition exists. If the ESID is 
valid, it is used to obtain the relocated 
address of the symbol referred to by the 
RLD card. (This address is found in the 
relocation factor position of the proper 
reference table entry.) 

The internal ESID (Position Header ESID) 
is then tested to determine if it is valid; 
if it is not, an error condition exists. A 
valid internal ESID is used to obtain the 
relocation factor of the control segment in 
which the "Define Constant'' instruction 
occurred. 

The CMPRLD routine decrements the card- 
specified byte count by four; if the result 
is zero, the routine transfers control to 
the RD routine. Otherwise, the routine 
obtains the length, in bytes, of the symbol 
referred to in the RLD card and sets up to 
place the specified address value in 
storage at the specified address. 



The CMPEND routine saves the address in 
the first END card encountered as a possi- 
ble end-of-load transfer address. 

ENTRANCE: The CMPEND routine is entered 
from the CMPRLD routine when that routine 
encounters a card that is not an RLD card. 



OPERATION: 



If the card to be processed is 

not an END card, the CMPEND routine trans- 
fers control to the CMPLDT routine. A test 
is made to determine if there is an end 
address in the card. If there is, and an 
end address has not already been saved from 
a previously processed END card, the relo- 
cation factor for this control segment is 
added to the address in the card. The 
resulting value is saved for a possible 
end-of-load transfer address. If there is 
an end address in the card, but one has 
already been saved from another END card, 
or if there is not an end address in the 
card, a test is made to determine if there 
is a segment size indicated in the END 
card. When a segment size is present, it 
is added to the current value of the 
location counter. The result is saved for 
the Blank Common overlay test, only if the 
result is greater than the highest address 
assigned to text. 

If there is no segment size in the card, 
or after the result of adding the segment 
size to the location counter has been 
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saved , or after the test and processing of 
an end address , the ESID table is cleared. 
A test is made to determine if the work 
tape is being read; if it is, control is 
transferred to the EODS routine • If the 
work tape is not being read, the CMPEND 
routine exits to the RD routine. 



EXITS : 
routine. 



The CMPEND routine exits to the RD 



ROUTINES 



CALLED: 



During execution the 
references the TBLREF, 



CMPEND routine 

REFTBL, and LODREF routines. 



CMPLDT, WARN Routines; Chart NM 



OPERATION: The routine converts the card 
count number accumulated since the last ESd 
Type or ICS card was read to hexadecimal, 
places the converted address into the warn- 
ing message with the name of the last 
control segment, and writes the warning 
message. 

The WARN routine determines whether the 
current load is a GOGO load (i.e., a load 
that is to proceed regardless of this 
error) . A GOGO load causes a transfer of 
control to the RD routine. For other than 
a GOGO load f the routine issues a Terminate 
Load SVC to the FORTRAN System Director. 



EXITS: 



The 



WARN routine issues an SVC to 

the FORTRAN. System Director, unless a GOGO 
load is indicated, then the WARN routine 
exits to the RD routine. 



CMPLDT Routine 



The CMPLDT routine saves the address of 
the name on an LDT or DATA card for 
end-of-load transfer. 

ENTRANCE ; The CMPLDT routine is entered 
from the CMPEND routine when that routine 
encounters a card that is not an END card. 



OPERATION: 



If 



the CMPLDT routine encoun- 
ters a card that is not an LDT or DATA 
card, a warning message is issued (only if 
a GOGO job is indicated, otherwise an error 
is indicated) to indicate that the card is 
not recognized by the loader. For the LDT 
or DATA card, the routine determines if the 
card has a name and, if so, saves the 
address of that name. If there is no name 
in the card, or after the address name has 
been found and saved, the routine clears 
the ESID table and transfers control to the 
EODS routine. 

EXIT: The CMPLDT routine exits to the EODS 
routine. 

ROUTI NES CALLED : During execution the 
CMPLDT routine references the SERCH and 
TBLREF routines. 



WARN Routine 



HEXB Routine: Chart NN 



The HEXB routine converts hexadecimal 
numbers to binary. 



ENTRANCE: 



The HEXB routine is entered from 



the CMPREP, CMPSLC, and CMPICS routines. 



OPERATION 



The HEXB routine determines if 

character to be converted is either a 
alphabetic or numeric character; if 



the 

valid 

it is not, an error exists. 



Valid numeric characters are converted 
by clearing the four high-order bits of the 
character; alphabetic characters are con- 
verted by subtracting a constant from the 
character. 

After the character has been converted, 
the HEXB routine shifts the general reg- 
ister (in which the entire converted number 
is returned) four bits to the left, and 
places the converted character in the four 
low-order bits. 

If there is another character to be 
converted, the process is repeated. 



EXITS: 



The HEXB routine exits to the 



routine that called it. 



The WARN routine writes a warning mes- 
sage when the loader encounters a card that 
it does not recognize; it also determines 
whether to continue processing. 

ENTRANCE : The WARN routine is entered from 
the CMPLDT routine when that routine 
encounters a card that is not recognized by 
the loader. 



TBLREF Routine: Chart NO 



The TBLREF routine loads three standard 
constants . 

ENTRANCE: The TBLREF routine is entered 
from the following routines: IER, EODS, RD, 
CMPTXT, CMPSLC, CMPICS, CESD1 , CESD2, 
CMPRLD, CMPEND, and CMPLDT. 
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OPERATION: The TBLREF routine loads the 
following constants into three sequential 
registers: the address of the first loca- 
tion above the reference table, the size of 
the reference table entries (12 bytes 
each) , and the number of entries in the 
reference table. 



EXITS : 



The TBLREF routine exits to the 



routine that called it. 



REFTBL Routine: Chart NP 



The REFTBL routine calculates the stor- 
age address of a given entry in the ref- 
erence table. 



OPERATION: After clearing the specified 
register and loading the address of the 
name to be searched for, the SERCH routine 
sets up for a possible mapping of this 
entry. 

The routine compares the given name with 
each name in the reference table. When 
found, the SERCH returns with the position 
at which the name is located in the ref- 
erence table. If the name is not found, 
the SERCH routine places the name in the 
table, increments the reference table count 
by one, and checks for loader overlay. If 
the loader has been overlaid, there will be 
an error. 



EXITS: 



This routine exits to the routine 



ENTRANCE: 



REFTBL is entered from the that called it. 



CESD1, CMPRLD, and CMPEND routines. 

OPERATION: The REFTBL routine loads the 
entry position in the reference table from 
the ESID table, by using the ESID on the 
card currently being processed. It multi- 
plies the entry position by the reference 
table entry size (12) , and subtracts the 
product from the highest address (plus 1) 
of the reference table. The result is the 
location of the reference table entry. 

EXITS : The REFTBL routine exits to the 
routine that called it. 



ERROR Routine: Chart NS 



The ERROR routine writes an error mes- 
sage for the routine in which the error has 
occurred. 



ENTRANCE: The ERROR routine is entered 
from the CMPTXT, XMPSLC, SERCH, CMPICS, 
CMPESD, CESDO, CESD1 , CMPRLD, CMPLDT, WARN 
and HEXB routines. 



LODREF Routine: Chart NQ 



The LODREF routine obtains the reloca- 
tion factor of a control segment and 
returns it to the calling routine. 



OPERATION: The ERROR routine loads the 
address of the error message (determined by 
the routine in which the error occurred) 
and writes that message. 



ENTRANCE: 



LODREF is entered from the EXIT: 



The ERROR routine exits to the 



CMPTXT, CESD1, CMPRLD, and CMPEND routines. FORTRAN System Director. 



OPERATION: The LODREF routine uses the 
address obtained from the REFTBL routine as 
an index to the reference table. It places 
the relocation factor contained in the 
indicated reference table entry into a 
general register. 



EXITS: 



The LODREF routine exits to the 



routine that called it.. 



MAP Routine: Chart NT 



The MAP routine provides a map of stor- 
age for a given entry. 



SERCH Routine: Chart NR 



The SERCH routine searches for 
name in the reference table. 



given 



ENTRANCE : The SERCH routine is entered 
from the CMPSLC, CMPICS, CESD1, CESD2, and 
CMPLDT routines. 



ENTRANCE: The MAP routine is entered from 
the IER# RELCTL, CESDO, and CESD1 routines. 

OPERATION: The MAP routine unpacks a given 
address, converts the binary address to 
hexadecimal, loads the mapping address, and 
writes the map for the given entry (e.g., 
IBCOM at location 000FA0) . 



EXITS: 



The MAP routine exits to the call- 



ing routine. 



FORTRAN Loader 389 



RELCTL Routine; Chart NU 



ENTRANCE; 
indications . 



This routine is entered on EODS 



The RELCTL routine performs all the 
final functions , preparatory to releasing 
control from the loader. 

ENTRANCE ; This routine is entered from the 
loader when the end of data set is encoun- 
tered on the work tape, 

OPERATION; The RELCTL routine spaces a 
data set on the system tape, maps Blank 
Common if called for, records the time from 
the timer, and loads the end-of-load trans- 
fer address into a general register. 

EXIT; The RELCTL routine exits to FSD. 

ROUTINE CALLED; During execution the 
RELCTL routine references the MAP routine. 



EODS Routine; Chart NV 



On EODS indications, this routine deter- 
mines where the loader is in the loading 
process and, depending on the results of 
the tests made within the routine, either 
continues processing or releases control. 



OPERATIONS; If EODS has been reached on 
the work tape (switch 4 on) , control is 
transferred to the RELCTL routine; other- 
wise, a test is made to determine if the 
system tape is being read (switch 2 on) . 
If the system tape has not been read, the 
EODS routine sets up to read the system 
tape and turns switch 2 on. If the system 
tape is being read, the library data set is 
backspaced to its beginning. In either 
case, processing continues to determine if 
all necessary library routines have been 
loaded. 

If all entries have not been loaded, a 
retry will be made. For this action, 
switch 3 is turned on; switches 1, 6, and 8 
are turned off. If all entries have been 
loaded, a tape mark is written on the work 
tape and the tape is rewound. 

The EODS routine sets up to read the 
work tape, turns switches 1 and 3 off, and 
turns switch 4 on. The routine then trans- 
fers control to the RD routine. 

EXITS ; If further processing is necessary, 
the EODS routine exits to the RD routine; 
otherwise, it exits to the RELCTL routine. 
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***** 

*11 * 

* Al* 
* * 



*****A l********** 

* * 

* INITIALIZE * 

* LOADER * 

* (CHART NAB3) * 

* * 
***************** 



*****3 1 ********** 

* GETCARD * 

* IMAGE INTO * 

* STORAGE *. 

* (CHART NBB3) * 

* * 
***************** 



**** 

* * 

* Bl * 

* * 
**** 



I CARD TYPE 


• 


ROUTINE 


" 


CHART 


• 


! SLC 


* 


CMPSLC 


" 


NCB3 


* 


'. ICS 


• 


CMPIES 


* 


NDB3 


\ 


'. ESDO 


* 


CESDO 


• 


NFB3 


* 


I ESDI 


• 


CESD1 


* 


NGB3 


• 


! ESD2 


. 


CESD2 


* 


NHB3 


\ 


'. ESD5 


* 


CMPESD 


\ 


NEB3 


* 


! TXT 


' 


CMPTXT 


. 


NIB3 


\ 


* REP 


* 


CMPREP 


\ 


NJB3 


• 


I RLD 


* 


CMPRLD 


* 


NKB3 


I 


I END 


. 


CMPEND 


\ 


NLB3 


. 


'. /DATA 


• 


CMPLDT 


\ 


NMB3 


• 


'. LOT 


I 


CMPLDT 


\ 


NMB3 


• 


X 


^SUPPORTING FUNCTIONS 


\ 


ROUTINE 


\ 


CHART 


* 


^CONVERT HEX TO BINARY 


• 


HEXE 


' 


NNB3 


\ 


.PRCVICE STORAGE MAP 


• 


MAP 


' 


NTB3 


* 


•SEARCH THE REFERENCE 
.TAELE FOR A GIVEN ENTRY 


• 


SEARCH 


• 


NRB3 


• 


.PROVIDE REFERENCE 
•TAELE INFORMATION 


• 


TBLREF 


. 


N0B3 


• 



.CALCULATE STORAGE 
.ADDRESS FOR A GIVEN 
•ENTRY IN THE 
•REFERENCE TABLE 



•CETAIN RELOCATION 
•FACTOR OF A CONTROL 
•SEGMENT 



.* DID *• 

.* AN ERRCR * 
•OCCUR IN ANY 
*. ROUTINE .* 



* ERROR MESSAGE * 

* WRITTEN * 

* (CHART NSB3) * 

***************** 



* El * 

* * 
**** 



*****J4********* 
* 

* PROCESS EODS 
X* INDICATION 

* (CHART NVB3) 
* 
**************** 



. NO 
J5 *. 

END **. 

OF 
LOAD .* 
* . •* 

***YES 



RELCTL X 

****K5********* 
*RELEASE CONTROL* 
* (CHART NUB3) * 

*************** 



Chart 11. Relocating Loader Overall Logic Diagram 
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***** 
*NA * 
* E3* 



*****B3********** 

* INDICATE * 

* TO FSD * 

* THAT LOADER * 

* in in * 

* CONTROL * 
***************** 



*****C 3* ********* 

* * 

* RECORD START * 

* TIME FROM * 

* TIMER * 

* * 
***************** 



*****D3********** 
*OETAIN STARTING* 
*LOAD ADDR. AND * 

* STORAGE SIZE * 

* FROM COMMUNI- * 

* CATIONS AREA * 
***************** 



*****E3********** 

* SAVE HIGHEST * 

* STORAGE ADDR. * 

* TO DETERMINE * 

* STORAGE ADD. * 

* OF BLANK CNTR * 
***************** 



*****F3*** ******* 

* SET LOCATION * 

* COUNTER * 

* TO STARTING *. 

* ADDRESS * 



*****F5********** 

* LOAD IBCOM * 

* ENTRY INTO * 
<* REFERENCE * 

* TABLE * 



***************** 



***************** 



*****G2 ********** 

* * 

* SET UP * 

* TO READ *X 

* TAPE * 

* * 
***************** 



NO .* IS *. 
...*. INPUT ON .*X. 
*. CARDS .* 



*****G4 ********** 
*OBTAIN LOGICAL * 

* INPUT DEVICE * 
.* TYPE FROM *X 

COMMUNICATIONS * 

* AREA * 
***************** 



*****G5 ********** 

* * 

* WRITE STORAGE * 
.* MAP * 

* READING * 

* * 
***************** 



*****H3********** 

* * 

* REWIND * 

* WORK * 

* TAPE * 

* * 
***************** 



X 
***** 

*NB * 

* E3* 

* * 



Chart NA. IER Routine 
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*****B3********** 
*SET UP TO READ * 
*LOAD BUFF ADDR * 

* AND NUMBER OF *X.. 

* BYTES TO BE * 

* READ * 
***************** 



****C3*********** 
READ 
************* 



*****D4***« ****** 

* * 
*LOAD CONSTANTS * 

X* FOR USE * 

* THRU OUT * 

* LOADER * 
***************** 



END CARD 



SW1 
YES 



*****G1 ********** 

* SUBTRACT 1 * 

* FROM * 
♦REFERENCE TABLE* 

* COUNT * 



******* 



t******** 



*****F2»* ******** 



***************** 



*****G2**** 



***************** 



*****F5 ********** 



ESD *. NO 




* TURN SWITCHES * 


CARD •*.... 




* 1.3, AND 6 *X... 


• * • 




* OFF * 






* * . 


*. .* X 




***************** . 


* YES **** 




• . 


• * 


* 


. **** . 


* B3 


* 


• * * • 


• * 


* 


..X*NE * 


# **** 




* B3* 
**** . 


• X. 




• *• • 


G4 *. 




G5 *. 


*• 




.* *. 


ESD *. YES 




.* THIS *. YES. 


TYPE »*•••••• 




X*. SEGMENT .*.... 

*. NEEDED .* 


.* 





***** 

*NV * 

* E3* 

* * 



**** 
* * 

*.-B3 * 



ESD 
TYPE 1 
NEEDED 



*****H5 ********** 

* PLACE NAME * 

* IN REFERENCE * 
*TABLE. INDICATE* 
•NAME NOT FOUND * 

* * 
***************** 



*****J5********** 

* ADD 1 TO * 
•REFERENCE TABLE* 

* COUNT. TURN * 

* SWITCH 1 ON * 

* * 
***************** 



**** 

* * 

* B3 *X. 

* * 
**** 



*****K4* ********* 



**************** 
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***** 
*NC * 

* B3* 



X 

***** 

*NC * 

*. E3* 

* * 



THIS AN 

*.SLC CARD .* 

*. .* 



***** 

*NS * 

* E3* 

* * 



NO .* NAME 
...*. IN CARD 



*****C4********** 

* * 

* FIND NAME IN * 
.X* REFERENCE *. 

* TABLE * 

* * 
***************** 





.*. 


*****D2********** 


D3 *• 


*FEXe NNB3* 


# * * 


*-*-*-*—*-*—*-*-* 


YES .* HEX 


* CONVERT HEX *X.. 


*. ADDRESS IN 


* DATA TO * 


*„ CARC 


* BINARY * 


* • •* 


***************** 


* . .* 


• 


* NO 



*****D4********** 



GET ADDRESS 
OF NAME 



*****E3********** 

* ADD ADDRESS * 

* ON CARD * 

* ( IF ANY ) * 

* TO ADDRESS * 

* OF NAME * 
***************** 



*****F3********** 

* PLACE * 

* ADDRESS IN * 

* LOCATION * 

* COUNTER * 

* * 
***************** 



***** 
*NE * 
* B3* 



***************** 



*NC * 
* D4* 
***** 



YES .* NAME *. 
....*. IN REFERENCE . 
*. TAELE .* 



***** 
*NS * 
* B3* 



Chart NC. CMPSLC Routine 
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***** 
*ND * 
* E3* 



• X. 
B3 *. 

IS *. 
THIS *• NO 




CARD .* 

.* 
*. .* 

* YES 


X 
***** 
*NE * 
* B3* 



*****C3***» ****** 

* MOVE SIX * 

* CHARACTER * 

* NAME FIELD TO * 

* ERROR MESSAGE * 

* AREA * 
***************** 



*****D 3*** ******* 

* * 

* RESET CARD * 

* COUNT * 

* COUNTER * 

* * 
***************** 



*****E3 *********** 
*HEXB NNB3* 

*_*_#_#_*_#_#_•*_# 

* CONVERT * 

* SEGMENT LNGTH * 
*( IF ANY) TO BIN* 
***************** 



*****F2** ******** 

* PLACE NAME * 

* IN REF TBL * 

* AND INDICATE *X 

* NAME NCT * 

* FOUND * 
***************** 



*****G2** ******** 

* * 

* LOAD * 

* LOCATION *. 

* COUNTER * 

* * 
***************** 



F3 *. 
.* IS *. 

.* NAME *• 

►•IN REFERENCE .* 

*. TABLE .* 



X 

***** 

*NB * 

* B3* 

* * 



.*. 

G3 *. 

.* IS *. 

.* ADDR * 

.X*. A MULTIPLE 

*.OF EIGHT .* 
*. .* 
*. .* 
* YES 



*****G4********** 

♦ADJUST LOCATION* 

♦COUNTER ADDRESS* 

.X* TO NEXT * 

* DOUBLE-WORD * 

* BOUNDARY * 
***************** 



*****H3*** ******* 
♦ASSIGN LOCATION* 
*COUNTER ADDRESS* 

* TO NAME AND * 

* PLACE IN * 

* REFERENCE TBL * 
***************** 



*****j 3**** ****** 

* * 

* ADD LENGTH * 

* OF SEGMENT TO * 

* LOCATION CNTR * 

* # 
***************** 



***** 
*NB * 
* B3* 
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***** 

*NE * 

* A3* 

* * 



.* ESD 
*. CARD 



X 

***** 

*NK * 

* B3* 

* * 



B3 *. 

•* WORK *. NO 
*. TAPE BEING •*... 
*. READ .* 
*. .* 

*. .* 

* YES 



******B4*********** 

* WRITE CARD * 
.X IMAGE ON 

* WORK TAPE * 

************* 



X 

***** 

*NF * 

* E3* 

* * 



ESD 
TYPE 

5 



*****D2** ******** 

* LOAD STORAGE * 
*SIZE, SUBTRACT * 

* SIZE OF BLANK *X . 

* COMMON * 

* * 
***************** 



NO •* WORK 
...*. TAPE BEING 
*. READ 



*****D4**** ****** 

* * 

* GET SAVED * 
.X* BLANK-COMMON * 

* ADDRESS * 

* * 
***************** 





• X. 




E2 *. 




.* LESS *. 




NO .*THAN SAVED *. 




•••*• ELANK— COMMON • 


X 


*. ADDR .* 


**** 


*• •* 


NB * 


*. .* 


B3* 


* YES 



E4 *. 

.* LESS *. 

•THAN HIGHEST 

TEXT 

*. ADDR .* 

*• •* 


• YES 






X 
***** 


*. .* 
* NO 




*NS * 

* B3* 

* * 



*****F2** ******** 



SAVE 
ADDRESS 



***************** 



X 

***** 

*NB * 

* B3* 

* * 



***** 

*NB * 

* B3* 

* * 
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***** 
*NF * 
* B3* 



***** 

*NS * 

* B3* 

* * 





EQ .* ESD *. GTR 




X 

*** 

G * 
B3* 


*. TO 1 .* 

*• •* 

*• .* 

* LESS 




X 
***** 
*NH * 
* B3* 



*****D3 ********** 
•MOVE NAME INTO * 
♦WARNING MESSAGE* 

* AREA, RESET * 

* CARD COUNT * 

* COUNTER * 
***************** 



*****E 3 ********** 

* * 
*LOAD INDICATED * 

* SEGMENT * 

* LENGTH * 

* * 
***************** 



* NO 
**** . 

* * • 

* G3 *.X. 

* * • 
**** . 

X 
*****G3 ********** 

* * 

* PLACE NAME * 
*IN TAELE ASSIGN* 

* LOCATION * 

* * 
***************** 



*****H3********** 
*MAP NTB3* 

*—*—*—*—*—*—*—*—* 

* MAP ESD * 

* ENTRY * 

***************** 



*****J3********** 
*PLACE REFERENCE* 

* TABLE ENTRY * 
♦POSITION IN THE* 

* ESID TABLE * 

* * 
***************** 



*****K 3 ********** 

* CALCULATE THE * 

* RELOCATION * 
*FACTR AND PLACE* 

* IT IN THE * 
♦REFERENCE TABLE* 
***************** 



***** 
*NH * 
* 63* 



**** 

* * 
.X* G3 * 

* * 
**** 



ADDR 

COMPARE 

EQU 



***** 
*NS * 
* B3* 
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***** 

*NG * 

* E3* 

* * 



*****B3********** 

* * 

* OETAIN * 

* ESID FROM * 

* THE CARD * 

* * 
***************** 



*****C3**** ****** 

* OBTAIN THE * 

* STORAGE ADDR * 

* OF REFERENCE * 

* TABLE ENTRY * 

* * 
***************** 



*****D 3* ********* 

* OETAIN THE * 

* RELOCATION * 

* FACTOR FROM * 

* REFERENCE * 

* TABLE ENTRY * 
***************** 



*****E3**** ****** 

* ADD ADDRESS * 

* ON CARD TO * 

* RELOC FACTOR. * 

* FORM NEW * 

* ADDRESS * 
***************** 



*****F2 ********** 

* INDICATE ENTRY * 

* FOUND. OETAIN * 
*ACDRESS OF NAME*X. 
*FROM REFERENCE * 

* TABLE * 
***************** 



YES •* NAME *. NO 
....*. IN REFERENCE .*... 

*. TABLE .* 



*****F4********** 

* PLACE NAME * 

* AND NEW * 
•X* ADDRESS IN * 

* REFERENCE * 

* TABLE * 
***************** 



G2 *. 
•*REF TE *. 
NO .* AND NEW *. 

*. ADDRESS .* 

X *. SAME .* 

***** *. .* 

*NS * *. .* 

* B3* X YES 



*****G4 ********** 

*MAP NTB3* 

* * 

* MAP THIS * 

* ENTRY * 
***************** 



X 
***** 
*NH * 
* G3* 
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***** 
*NH * 
* B3* 



*****C 1 ********** 

* ADJUST ESID * 

* FOR POSSIBLE * 

* SECOND ENTRY *X. 

* INCARD * 

* * 
***************** 



*****C2*** ******* 

* INDICATE NAME * 

* NOT FOUND * 
•* PUT REFERENCE *X • 

* TAELE POINTER * 

* IN ESID TABLE * 
***************** 



NO .* NAME * 
...*.IN REFERENCE 
*. TABLE .* 



*****D3********** 
*PLACE REFERENCE* 

* TABLE POINTER * 

* IN ESID TABLE * 
*ADJ FOR POSSI- * 

* BLE 2ND ENTRY * 
***************** 



.* *. 

* WORK 

TAPE BEING 
*. READ 
*• •* 



YES 



*****P3********** 

* LOAD ASSIGNED * 
*ADDR AND PLACE * 

* IN THE RELOC * 
*FACTOR POSITION* 

* OF REF. TBL. * 
***************** 



ROD X 

*****G3**«* ****** 

* * 

* SET UP FOR * 

* CARD EYTE * 

* COUNT CHECK * 

* * 
***************** 



H3 *. 


*****H 4** ******** 




• * *• 


* SET UP FOR * 




.* IS *. NO 


* FURTHER * 




*NEW BYTE COUNT * 


...X* PROCESSING OF *... 




*. ZERO .* 


* CARD DATA * 


X 


*. .* 


* * 


***** 


*. .* 


***************** 


*NE * 


* YES 




* C3* 



X 

***** 

*NB * 

* B3* 

* * 
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*NI * 
* B3* 



TXT *. NO 
CARD •*.. 
.* 
.* 


X 
***** 


*. .* 

* YES 


*NJ * 

* B3* 

* * 



*****C3********** 

* * 

* SETUP TO * 

* PROCESS * 

* TXT CARD * 

* * 
***************** 



*****D3********** 

* * 
*GET RELOCATION * 

* FACTOR FROM * 
♦REFERENCE TABLE* 

* * 
***************** 



*****E3********** 
*ADD RELOCATION * 

* FACTOR TO THE * 

* ADDRESS IN * 

* THE CARD * 

* * 
***************** 



*NI *.X 
* F3* 
**** 



F3 



YES .* ADDRESS 

*. WITHIN THE 

X *. LOADER 

***** *. .* 

*NS * *. .* 

* E3* * NO 
* * 



G3 *. 

•*LENGTH *. 
OF TEXT PLUS . YES 
ADDR EXCEED •*•••• 




*. STORAGE .* 
•*• .* 

*. .* 
* NO 


X 

***** 
*NS * 
* B3* 



.* 



*. 



YES .* ENTERED *. 

*. FROM CMPREP .* 

X *• ROUTINE .* 

***** *. .* 

*NJ * *• •* 

* C3* * NO 



*****J3**«* ****** 

* SETUP TO LOAD * 

* DATA INTO * 

* STORAGE AND * 

* LOAD DATA * 

* * 
***************** 



X 
***** 

*NB * 
* B3* 
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***** 
*NJ * 
* E3* 



*****B1 ********** 
*HEXB NNB3* 

*-*-*-*-*-*-*-*-* 

* CONVERT *X. 

* ADDRESS TO * 

* BINARY * 
***************** 



***** B2 ********** 

* * 

* SET UP TO * 
.* CONVERT HEX *X. 

* ADD TO EINARY * 

* * 
***************** 



REP 
CARD 



X 

***** 

*NC * 

* B3* 

* * 



*****C 1 ********** 

* * 

* SET UP TO * 

* CONVERT HEX *. 
*ESID TO BINARY * 

* * 
***************** 



*****C2** ******** 

*HEXE NNB3* 

*-*-*—*—*—*—*-*-* 

.X* CONVERT ESID *. 

* TO BINARY * 

* * 
***************** 



*****C3********** 

*LOAD EYTE COUNT* 

*BRANCH TO NJF3 * 

.X*IN TXT RTN FOR *X. 

* ADDR VALIDITY * 

* CHECK * 
***************** 



**** . 

* * . 
*NJ *.X. 

* D3* 
**** . 

X 
*****D3********** 

* SET UP TO * 

* CONVERT HEX * 

* HALF-WORD * 

* CORRECTION * 

* TO BINARY * 
***************** 



*****E3 ********** 
*HEXB NNB3* 

*—*—*—*-*—*—*-*—* 

* CONVERT * 

* HALF-WORD * 
*CORR TO EINARY * 
***************** 



*****F3********** 

* SET UP * 

* AND PLACE * 

* CORRECTION * 

* IN STORAGE * 

* * 
***************** 



ANOTHER 

REP CARD 

ENTRY 



*****G 4*** ******* 

* * 
*ADJUST ADDRESS * 

X* FOR NEXT * 

* TWO BYTES * 

* * 
***************** 



***** 

*NB * 

* B3* 

* * 
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*NL * 

* E3* 

* * 



***** 
*NK * 

* E3* 



RLD CARD 



READING 
WORK 
TAPE 



****** B5 *********** 

* WRITE THIS * 
.X CARD ON 

* WORK TAPE * 



***** 
*NB * 
* B3* 



***** 
*NS * 
* B3* 



.* GET CURRENT 
* SYMEOL ADDR 
*FROM REFER TBL 
**************** 



* GET ADDR OF * 
*EXTERNAL ENTRY * 
*FROM REF. TBL. * 
***************** 



* GET ADDR OF 

* INTERNAL ENTRY 
*FROM REFER TEL 
**************** 



*— *^-* — *— *-*—*— *—* 
X* GET CURRENT *. 

* SYMBOL ADDR * 

♦ FROM REFER TBL * 
***************** 



*****E4***» ****** 

* MODIFY * 
*STORAGE - TO - * 

X* STORAGE MOVE *. 

* INSTRUCTIONS * 

* * 
********** 



******* 



*****E5 ********** 

* REDUCE RLD * 

* CARD DATA * 
. X* BYTE COUNT BY * 

* FOUR * 

* * 
***************** 



*****F2** ******** 

* MOVE * 

* ADJUSTMENT * 
.♦CELL TO LDR FOR*X. 

* MODIFICATION * 

* * 
***************** 



*****F 3**** ****** 

* DETERMINE IF * 

* THE SYMBOL * 
.♦LENGTH IS ONE. *X 

*TWO, THREE, OR * 

* FOUR BYTES * 
***************** 



*****F4********** 

* RESTORE * 
♦DECREMENTED RLD* 

.*CARD DATA BYTE *X. 

* COUNT IN CARD * 

* IMAGE * 
***************** 



BYTE COUNT 



*****G2*« ******** 

* FIND NEW DC * 

* VALUE BY SUB- * 
•X*TRACTING CURR- * 

*ENT VALUE FROM * 

* SYMBOL ADDR * 
***************** 



***** 
*NB * 
* B3* 



*****H1 ********** 

* FIND NEW DC * 
•VALUE BY ADDING* 

* CURRENT VALUE *. 
*TO SYMBOL ADDR * 

* * 
***************** 



*****H2* ********* 

* * 

* RESTORE * 
.X* ADJUSTED CELL ». 

* TO DCB * 

* * 
***************** 



*****H3**** ****** 

* REDUCE RLD * 

* CARD DATA * 
X* BYTE COUNT *. 

* BY FOUR * 

* * 
***************** 



J3 *. 
**** .* *. 

* * NO .* IS *. 

* C4 *X. ...*. CONTINUATION .♦X. 

* * *. FLAG ON .* 
**** *. .* 

*• •* 
* YES 



*****J4* ********* 

* RESTORE * 
♦DECREMENTED RLD* 

.*CARD BYTE COUNT* 

* TO CARD IMAGE ♦ 



******** 



********* 



**** 

* * 

* F3 ♦ 

* * 
**** 



Chart NK. 



CMPRLD Routine 
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***** 
*NL * 
* B3* 



***** 
*NM * 
* 83* 



ADDRESS 

IN 

CARD 



GET REFERENCE *X. 
TABLE ADDRESS * 
OF THIS ENTRY * 
**************** 



*****D2 ********** 

* INDICATE ADCR * 
♦SAVED, GET ESID* 

.♦ FROM CARD * 

* IMAGE * 

***************** 



.* HAS * 
.♦.ADDRESS BEEN 
*. SAVED .* 



SEGMENT 

SIZE IN 

CARD 



*****D5****>****** 

* LOAD LOCATION * 

* COUNTER. ADD * 
. X*SIZE IN CARD TO* 

♦LOCATION COUNTR* 

* * 
***************** 



*GET RELOCATION * 
* FACTOR FROM * 
♦REFERENCE TABLE* 
***************** 



.♦GREATER*. 
.* THAN * 

.HIGHEST ADDR 
*. OF TEXT .* 



*****Fl ********** 

* * 
*ADD RELOCATION * 

* FACTOR AND *. 

* ADDRESS * 

***************** 



*****F2 #< **^***^^ 

* SAVE ADDRESS * 

* FOR POSSIBLE * 

* END OF LOAD ♦ 

* TRANSFER ♦ 

* * 
***************** 



*****F3*********^ 



*************** 



*****F5********** 

* * 

* * 
.* SAVE ADDRESS * 

* * 

* * 
***************** 



* SYSTEM 

TAPE EEING 
*. READ 



***** 

*NV * 

* E3* 

* * 



***** 

*NB ♦ 

♦ B3^ 

* * 



Chart NL. CMPEND Routine 
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***** 
*NM * 
* E3* 



.* LOT *. 

CARD 
* • •* 



B4 *. 
.* *. 

.* TYPE/ * 

DATA 

*. CARD •* 

* • • * 

*. .* 

* YES 



**** 
x * 
* 1-3 *X. 



NAME *• 

IN .* 
CARD .* 



***** 

*NS * 

* E3* 

* * 



•* NAME ». 
NO .* IN *. 
...*• REFERENCE 

*. TAELE .* 

* • •* 

* • •* 



*****D5********** 
♦CONVERT CRD CNT* 

* TO HEX AND * 

* MOVE INTO MSG * 
*AREA WITH NAME * 
*OF LAST CTL SEG* 
***************** 



******E5 *********** 

* WRITE * 

WARNING 

* MESSAGE * 

************* 



*****F 3*** ******* 
*0RG2 NCB3* 
*_*_♦_*_*_*_#_*_* 

* GET CURRENT * 

* ADD OF NAME * 

* AND RETURN * 
***************** 



GOGO 
LOAD 



***** 

*NE * 

* B3* 

* * 



*****G3********** 

* * 

* SAVE ADDRESS * 
*FOR END-OF-CARD* 

* TRANSFER * 

* * 
***************** 

**** . 

* * „ 

* H3 *.X. 

* * • 
**** . 

X 
*****H3* ********* 

* * 

* CLEAR ESID * 

* TAELE * 

* * 

* * 
***************** 



****G5********* 

* * 

* SVC TO FSD * 

* * 
*************** 



***** 

*NK * 

* D3* 

* * 



Chart MM. CMPLDT, WARN Routines 
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***** 

*NN * 

* B3* 

* * 



*****B3********** 

* SAVE RETURN * 
*ADDR LOAD CON- * 

* STANTS FOR * 

* THIS ROUTINE * 

* * 
***************** 



C2 *. 
.* * . 
YES .» IS 
....*. CHARACTER 
^ALPHABETIC 
*. .* 
*. .* 
* NO 



C3 *. 
.* *. 
NO .* IS 
•..*. CHARACTER 
*. NUMERIC . 
*. .* 
*. .* 
* YES 



VALID *. NC 

HEX .*... 
DIGIT .* 



D3 *. 
.* 
.* VALID 
HEX 
*. CIGIT 
*. 



X 
***** 
*NS * 
* B3* 



*****£ 3 ********** 

* * 

* CONVERT * 

* NUMERIC HEX * 
*DIGIT TO BINARY* 

* * 
***************** 



*****F1**** ****** 

* * 

* CONVERT * 
^ALPHABETIC HEX *. 
*DIGIT TO BINARY* 

* * 
***************** 



.* ANOTHER * 

•X*«CHARACTER TO 

*. CONVERT ♦* 

* • •* 

* • •* 

* NO 



****G3********* 
x * 

* RETURN * 

* * 
*************** 



Chart NN. HEX Routine 



FORTRAN Loader 405 



***** 
*N0 * 
* B3* 



*****B 3**** ****** 

* LOAD ADDRESS * 
*OF FIRST LOCATN* 
♦ABOVE REFERENCE* 

* TABLE INTO A * 

* REGISTER * 
***************** 



*****C3«* ******** 

* * 
♦LOAD REFERENCE * 

* TABLE ENTRY * 

* SIZE * 

* * 
***************** 



*****D3 ********** 



*LOAD REFERENCE * 
* TABLE COUNT * 



***************** 



****E3********* 

* * 

* RETURN * 

* * 
*************** 



Chart NO. TBLREF Routine 
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* # * * * 
*NP * 

* E3* 



X 
*****C3 ********** 

* USE ESID TO * 

* GET ENTRY * 

* POSITION IN * 

* REFTBL FROM * 

* ESIC TABLE * 
***************** 



*****D3********** 

* MULTIPLY * 
*ENTRY POSITION * 

* BY REF TBL * 

* ENTRY SIZE * 

* * 
***************** 



*****E 3 ********** 

* SUBTRCT * 

* PRODUCT * 

* FROM HIGHEST * 

* LOCATION OF * 

* REFTBL + 1 * 
***************** 



*****F3********** 

* RESULT IS * 

* LOCATION OF * 

* REFERENCE * 

* TABLE ENTRY * 

* * 
***************** 



****G3********* 

* RETURN * 

* * 
*************** 



Chart NP. REFTBL Routine 
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***** 

*NQ * 

* B3* 

* * 



LODREF X 

*****C3* ********* 

* GET * 

* RELOCATION * 

* FACTOR FROM * 
♦REFERENCE TABLE* 

* ENTRY * 
***************** 



****D3********* 

* * 

* RETURN * 

* * 
*************** 



Chart NQ. LQDREF Routine 
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***** 
*NR * 

* B3* 



*****A3**** ****** 
♦CLEAR SPECIFIED* 
♦REGISTER. LOAD * 
♦ADDRESS OF NAME*. 
♦TO BE SEARCHED ♦ 
♦ FOR ♦ 
***************** 



*****A4********** 

♦ LOAD HIGHEST ♦ 

♦ ADDRESS +1 ♦ 
•X*OCCUPIED BY THE* 

♦ REFTBL INTO ♦ 

♦ SPECIFIED REG ♦ 
***************** 



*****B3********** 

♦ SET UP FOR ♦ 

♦ POSSIBLE ♦ 

♦ MAPPING OF ♦ 

♦ THIS ENTRY ♦ 

♦ * 
***************** 



**** 

* * 

* C4 * 

* * 
**** 



*****C3*** ***♦♦♦♦ 



*************** 



*****C4** ******** 
♦SUBTRACT REFTBL* 
♦ENTRY SIZE FROM* 
.X*HIGHEST ADDR +1* 
♦OCCUPIED BY THE* 
♦ REFTBL ♦ 
***************** 



*****D3********** 

♦ ADD 1 TO ♦ 

♦ SPECIFIED REG ♦ 
♦ADJUST TO COMP ♦ 
♦NAME AND REFER ♦ 

TABLE ENTRY 



*********** 



**** 



****E1 ********* 

* * 

* RETURN ♦ 

* * 
*************** 



***** E2** ******** 

♦ DEVELOP ♦ 

♦ REFTBL LOC ♦ 
.♦CF NAME AND POS*X. 

♦ OF NAME IN ♦ 

♦ TABLE ♦ 
***************** 



♦ NAME ♦ 

SAME AS 

ENTRY 



TABLE 
COUNT 
ZERO 



*****G3*»* ******* 

♦ ADJUST TABLE ♦ 

♦ COUNT. ADJUST ♦ 

♦ TO PLACE NAME ♦ 

♦ IN REFER. TBL ♦ 

♦ * 
***************** 



*****F4* ***♦*♦♦** 

* * 

♦ DECREMENT ♦ 
X* TABLE COUNT ♦ 

♦ BY 1 ♦ 

* * 
***************** 

X 
**** 

* * 

* C4 ♦ 

* * 
**** 



*****H3*** ******* 

* * 

* PLACE NAME * 

* IN * 

* REFER. TBL ♦ 

* * 
***************** 



.♦ IS 
LOADER 
OVERLAID 



****K3*** ****♦♦ 

* * 

♦ RETURN * 

*************** 



Chart NR. SERCH Routine 
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***** 
*NS * 
* E3* 



*****B 3** ******** 
* LOAD ADDRESS * 
*OF THE MESSAGE * 
♦FOR THIS ERROR * 



***************** 



******C3 *********** 

* WRITE * 

ERROR 

* MESSAGE * 

************* 



****D3 ********* 

* SVC * 

* TO * 

* FSD * 
*************** 



Chart NS. ERROR Routine 
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***** 
*NT * 

* B3* 



*****B3********** 

* UNPACK * 

* GIVEN ADDRESS * 

* AND CONVERT * 

* BINARY TO * 

* HEX * 
***************** 



*****C3** ******** 

* * 

* LOAD ADDRESS * 

* OF GIVEN * 

* MESSAGE * 

* * 
***************** 



******D3*********** 



WRITE 
MESSAGE 



************* 



****E 3* ******** 

* * 

* RETURN * 

* * 
*************** 



Chart NT* MAP Routine 
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***** 
*NU * 

* B3* 



******B3*** ******** 

SPACE DATA 

* SET ON * 

SYSTEM 

* TAPE * 

************* 



• X. 
D2 *• 
.* WAS 
•* BLANK 
*. COMMON 
*. CALLED 



C3 *. 

NO .** WAS "*. 

.. •♦SYSTEM LIBRARY 
*. READ .* 
*• .* 



*****D3********** 

*MAP NTB3* 

*-*-*-*-*-*-*-*-* 

•X*PROVIDE STORAGE* 

* MAP OF BLANK * 

* COMMON * 
***************** 



*****C4********** 

* TURN SWITCH * 
♦THAT INDICATES * 

. X*SYSTEM LIBRARY * 

* WAS READ OFF * 

* * 
***************** 



*****E3********** 

* LOAD END-OF- * 

* LOAD TRANSFER * 

* ADDRESS INTO * 

* A SPECIFIED * 

* REGISTER * 
***************** 



*****F3*** ******* 

* * 
*RECORO TIME IN * 
♦COMMUNICATIONS * 

* AREA * 

* * 
***************** 



****G3********* 

* SVC * 
» TO * 

* FSD * 
*************** 



Chart NIK RELCTL Routine 
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***** 
*NV * 
* B3* 



X 

***** 

*NU * 

* E3* 

* * 



SWITCH 
4 ON 



SWITCH 
2 ON 



******C4*********** 
BACKSPACE 
* LIBRARY * 
. X TAPE DATA 

* SET * 

************* 



**** 

* * 

*NV * 

* D3* 
**** 

LDTENT X 

*****D3********** 
*SET UP TO READ * 

* SYSTEM * 

* LIBRARY * 

* TURN SWITCH * 

* 2 ON * 
***************** 

**** 

* * 
*NV * 

* E3* 
**** 

REFSER X 

*****E3 ********** 

* SEARCH REFER. * 

* TABLE TO SEE * 

* IF FURTHER *X 

* PROCESSING * 

* NECESSARY * 
***************** 



.*. 

C5 *. 
.* TAPE 
.* SEARCH 
.X*. COUNT 
*. ZERO 



X 

***** 

*NS * 

* B3* 

* * 



• X. 


RETRY 




F3 *. 


*****F 4** ******** 




ALL *. 


* TURN SWITCH 3 * 




ENTRIES *. NO 


* ON * 




FOUND •* • • • • 


• « • • X* TURN SWITCHES *••« 




• * 


* 1 AND 6 OFF * 


X 


.* 


* * 


***** 


*. .* 


***************** 


*NB * 


* YES 




* B3* 



*****G 3* ********* 

* * 

* SET UP * 

* CONTROLS * 

* TO READ * 

* WORK TAPE * 
***************** 



*****H3 ********** 

* TURN SWITCHES * 

* 1 AND 3 OFF * 

* TURN SWITCH * 

* 4 ON * 

* * 
***************** 



***** 

*N8 * 
* B3* 



Chart W. EODS Routine 
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IBCOM 



IBCOM, a segment of the FORTRAN system, 
performs object time implementation of the 
following FORTRAN I/O source statements: 



■1. READ and WRITE (both requiring and not 
requiring a format) . 

2. BACKSPACE, REWIND, and END FILE (tape 
manipulation) . 

3. STOP and PAUSE (write to operator) . 



In addition, IBCOM processes object time 
errors detected by the various FORTRAN 
library subroutines, processes arithmetic 
type program interrupts, and terminates 
object program execution. 

Chart 12 the IBCOM-Object Program Over- 
all Logic Diagram indicates the entrance to 
and exit from IBCOM as the guide to the 
overall functions of IBCOM. 

All linkages to IBCOM are compiler- 
generated. Each time one of the above- 
mentioned source statements is encountered 
during compilation, an appropriate calling 
sequence to IBCOM is generated and included 
as part of the object program. At object 
time, these calls are executed, passing 
control to IBCOM to perform the indicated 
I/O operation. 

Except for READ/WRITE implementation, 
the operation of IBCOM, is straightforward. 
Therefore, only READ/WRITE implementation 
is discussed in this introduction. The 
other operations are discussed as part of 
the subroutine descriptions. 

For the implementation of READ and WRITE 
statements, IBCOM consists of the opening, 
I/O list, and closing sections. 



OPENING SECTION 



READ Requiring a Format 



If the determined operation is that of a 
READ requiring a format, a record is read 
into an I/O buffer. The location and size 
of the I/O buffer are saved, a pointer to 
the I/O buffer is initialized to the first 
location in that buffer, and the address of 
the FORMAT statement associated with the 
READ is saved. (The address of the FORMAT 
statement is passed as an argument to the 
opening section.) Control is passed to a 
portion of IBCOM that scans the FORMAT 
statement. The first format code (either a 
control or conversion type) of the FORMAT 
statement is then accessed. 



For the control type code (e.g., an H 
format code or a group count) , a list item 
is not required. Control passes to the 
control routine associated with the format 
code under consideration to perform the 
indicated operation. (See Subroutines 
FRDWF, FWRWF, FIOLF, FIOAF, and FENDF, 
Table E. 1 , Format Codes.) Control then 
passes to the scan portion, which obtains 
the next format code. The above operation 
is repeated for all control type codes, 
until either the end of the FORMAT state- 
ment or the first conversion code is 
encountered. 



A conversion type code (e.g., an I 
format code) requires a list item in a READ 
statement. Upon the first encounter of a 
conversion type code in the scan of the 
FORMAT statement, the opening section of 
IBCOM completes its processing of a READ 
requiring a format and returns control to 
the next sequential instruction of the 
object program. The object program obtains 
the list item associated with the conver- 
sion code and calls the I/O list section of 
IBCOM. 



The compiler generates a linkage to the 
opening section of IBCOM when it detects a 
READ or WRITE statement in the FORTRAN 
source program. 

The opening section determines the 
nature of the operation (READ or WRITE, 
requiring or not requiring a format) and 
the address of the device upon which the 
operation is to be performed. The device 
address is saved for future operations. 



WRITE Requiring a Format 



If the opening section determines that 
the desired operation is that of a WRITE 
requiring a format, it proceeds in a manner 
similar to a READ requiring a format. 
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READ Not Requiring a Format 



If the desired operation is that of a 
READ not requiring a format, the opening 
section of IBCOM reads a record into the 
I/O buffer. This section saves the loca- 
tion and size of the I/O buffer , initiali- 
zes the buffer pointer to the first loca- 
tion in the I/O buffer beyond the control 
word, and returns control to the next 
sequential instruction of the object pro- 
gram. The object program obtains a list 
item and calls the I/O list section of 
IBCOM. 



WRITE Not Requiring a Format 



If the operation to be performed is a 
WRITE not requiring a format, the opening 
section proceeds in a fashion similar to a 
READ not requiring a format. 



I/O LIST SECTION 



The compiler generates a linkage to the 
I/O list section of IBCOM when it encoun- 
ters an I/O list item in the FORTRAN source 
program. 

The I/O list section performs the actual 
input of data to the list item if a READ 
statement is being implemented and from the 
list item if a WRITE statement is being 
implemented. 

In processing list items for any READ or 
WRITE requiring a FORMAT, the I/O list 
section passes control to the conversion 
routine that puts the list item in a format 
according to its associated conversion type 
format code. (This conversion routine has 
been pre- determined by the scan portion of 
IBCOM, and its address is made available to 
the I/O list section.) For input, the 
conversion routine accesses data from the 
I/O buffer and converts the data to the 
form dictated by the format code. The 
converted data is then moved into the list 
item. For output, the conversion routine 
accesses the list item, converts it to the 
form dictated by the format code, and moves 
the result to the I/O buffer. 

After the conversion routine has proc- 
essed the list item, the I/O list section 
determines if the format code applied to 
the list item just processed is to be 
repeated for the next list item. It looks 
for a field count (the number of times a 
conversion is to be repeated for an I/O 
list item) associated with the format code. 



If the format code is to be repeated and 
the list item just processed was a varia- 
ble, control returns to the object program 
to obtain the next item. The object pro- 
gram again links to the I/O list section, 
and the conversion routine which processed 
the previous list item is given control. 
This action applies the same format code to 
the next list item. 



If the format code is to be repeated and 
the list item just processed was an array 
element, the next element of the array is 
obtained. The format code is repeated for 
this element. There is no return to the 
object program until all array elements 
have been satisfied. If the format code is 
not to be repeated, control is passed to 
the scan portion of IBCOM to continue the 
scan of the FORMAT statement. 



If the scan portion determines that a 
group of format codes is to be repeated, 
the format statement pointer is adjusted to 
the first format code in the group. The 
codes of the group are then repeated. If a 
group of codes is not to be repeated, the 
scan portion of IBCOM accesses the next 
format code. For the control type code, 
control is passed to its associated control 
routine. For the conversion type code. 



control is returned to the object pro- 
gram which obtains the list item associated 
with the conversion code. The object pro- 
gram again links to the I/O list section to 
process the list item. 

In processing list items for READ and 
WRITE statements not requiring a format, 
the I/O list section determines the size of 
the list item (i.e., the number of bytes 
reserved for the list item) . The list item 
may be either a variable or an array. In 
either case, the number of bytes specified 
by the size of the list item is moved from 
the I/O buffer to the list item on input 
and reversed on output. Control is then 
returned to the object program to obtain 
the next list item. 



Conversion Routines: The conversion rou- 
tines, an integral part of the I/O list 
section for any READ or WRITE requiring a 
format, have an associated, conversion type 
format code. Each conversion routine con- 
verts the list item presented to it into 
the form dictated by its associated format 
code. The conversion routine moves the 
converted result to the address assigned to 
the list item if a READ statement is being 
implemented, or to the I/O buffer if a 
WRITE statement is being implemented. 
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CLOSING SECTION 



Chart PY 



HO 17. 
The compiler generates a linkage to the 5 — 
closing section of IBCOM after all list 
items associated with the READ or WRITE 
statement have been processed. The closing 44^1 8. 
section closes input/output operations for 
I/O statements irrespective of format 
requirements . 

19. 



IBFERR Execution error monitor 



Chart PZ 



IBFINT Interrupt processor 



Charts QA, QB 



FIOCS I/O interface 



Chart QC 
-f~6$20. IBEXIT Job terminator 



IBCOM SUBROUTINES 



The IBCOM subroutines are broken down in 
the following categories: 



6. 



*r*UO 7. 




+3X10- 



+3C11- 



ii£<U2. 

-MM 1 3. 



+ S~616. 



Charts PA through PH 



READ 



FRDWF — Opening section for a 

requiring a format 
FWRWF — Opening section for a WRITE 

requiring a format 
FIOLF--I/0 list section for the list 

variable of a READ or WRITE 

requiring a format 
FIOAF — I/O list section for list array 

of a READ or WRITE requiring a 

format 
FENDF — Closing section for a READ or 

WRITE requiring a format 

Charts PI through PN 

D, E, F, I, A conversion routines 
(both input and output) 

Charts PO through PT 

FRDNF — Opening section for a READ not 
requiring a format 

FWRNF — Opening section for a WRITE not 
requiring a format 

FIOLN — I/O list section for list vari- 
able of a READ or WRITE not 
requiring a format 

FIOAN — I/O list section for list array 
of a READ or WRITE not requir- 
ing a format 

FENDN — Closing section for a READ or 
WRITE not requiring a format 

Charts PU through PW 

FBKSP 

FRWND Tape manipulation 

FEOFM 

Chart PX 

FSTOP Write to operator 
FPAUS 



Subroutines FRDWF, FWRWF, FIOLF, FIOAF, and 
FENDF; Charts PA through PH 



These five subroutines transfer data 
between external storage and main storage 
under control of a FORMAT statement. The 
format code specifies the type of conver- 
sion to be performed between the internal 
and external representations of the data. 
These subroutines constitute that portion 
of IBCOM which implements any READ or WRITE 
requiring a format. 

ENTRANCE; The five subroutines are entered 
at object time under the following condi- 
tions; 

1. Subroutine FRDWF when a READ statement 
requiring a format is to undergo open- 
ing section operations. 

2. Subroutine FWRWF when a WRITE state- 
ment requiring a format is to undergo 
opening section operations. 

3. Subroutine FIOLF when a list variable 
of a READ or WRITE requiring a format 
is to undergo I/O list section proc- 
essing. 

4. Subroutine FIOAF when a list array of 
a READ or WRITE requiring a format is 
to undergo I/O list section process- 
ing. 

5. Subroutine FENDF when a READ or WRITE 
operation requiring a format is to 
undergo closing section operations. 

OPERATION; Subroutines FRDWF and FWRWF, 
the opening section subroutines, call sub- 
routine FIOCS to select the actual channel 
and device that corresponds to the data set 
reference number. FIOCS also initializes 
the data set for input or output. 

Upon return from FIOCS, FORMAT statement 
processing is initiated. The FORMAT state- 
ment has been analyzed, translated, and 
packed during compilation to a format rec- 
ognizable by IBCOM (see introduction to 
Phase 14). The processing performed for 
the various format codes is explained in 
Table 2. 
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Table 2. 



Format Codes 



— T 

| Type 



FORMAT Code (Description 
+- 



n( 

n 

nP 
Tn 

nX 

•text' or nH 



Fw.d 

Ew.d 

Dw.d 

Iw 

Aw 



beginning of 
statement ®*~ 

group count 

0*1 uk 



field counto^kK 



scaling factor 
column reset 

skip or blank 

If „ 

literal data 

tfct ^ tobfof tf j 



conversions 



F 
E 


t 



O AwwJ *i 



group end 



record end 

le 

end of 
statement 

VL 



control 
control 

control 

control 
control 

control 

control 

conversion 



control 



control 



control 



Corresponding Action Upon Code 



Save location for possible repetition of the 
format codes; clear counters. 

Save n and location of left parenthesis for 
possible repetition of the format codes in the 
group • 

Save n for repetition of format code which 
follows . 

Save n for use by F, E, and Deconversions. 

{xt"fc~\^o%f tit iPmkss:/ if nh ?S KegoJi'v*" 

Reset current position within record to nth 
column or byte. 

Skip n characters of an input record or insert 
n blanks in an output record. 

Move n characters from an input record to the 
FORMAT statement , or n characters from the 
FORMAT statement to an output record. 

Exit to the object program to return control to 
subroutine FIOLF or FIOAF. Using information 
passed to the I/O list section, the address and 
length of the current list item are obtained 
and passed to the proper conversion routine 
together with the current position in the I/O 
buffer, the scale factor, and the values of w 
and d. Upon return from the conversion routine 
the current field count is tested. If it is 
greater than 1 , another exit is made to the 
object program to obtain another list item. 

Test group count. If greater than 1, repeat 
format codes in group; otherwise continue to 
process FORMAT statement from current position. 



Input or output 
FIOCS. 



one record using subroutine 



If no I/O list items remain to be transmitted, 
return control to the object program to link to 
subroutine FENDF, the closing section; if list 
items remain, input or output one record using 
subroutine FIOCS. Repeat format codes from 
last left parenthesis. 



H 



Note ; The internal representation of the above format specification codes is discussed 



in the introduction to Phase 14. 



When any conversion code is encountered 
in the FORMAT statement and no I/O list 
items remain to be transmitted, control is 
passed to subroutine FENDF, the closing 
section. If a WRITE operation is being 
implemented, the current record is put out 
using subroutine FIOCS. General housekeep- 
ing is performed, and control is returned 
to the object program. 



EXIT: Each IBCOM section (opening, I/O 
list, and closing) returns control to the 
object program after execution. However, 
the exit is to subroutine IBFERR for an 
error. 
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Subroutines FCVII and FCVIO; Charts PI, PJ 



Subroutine FCVII 



buffer location. The characters in these 
bytes are converted to a binary integer and 
scaled according to the value of d and the 
exponent field. The result is stored in 
the list item. 



Subroutine FCVII reads integer data 
(integer input conversion) according to an 
Iw format code. 



EXIT: After execution, subroutine 
FCVEI/FCVDI exits to subroutines FIOLF or 
FIOAF. 



ENTRANCE: 



Subr6utine FCVII receives con- 



trol from subroutines FIOLF or FIOAF. 

OPERATION: The number of bytes, (specified Subroutine FCVEO/FCVDO 



by w, in the format code) is scanned from 
left to right, starting at the appropriate 
I/O buffer location. The characters con- 
tained in these bytes are converted to a 
signed binary integer and stored in the 
list item. 



Subroutine FCVED/FCVDO writes real data 
with an external exponent (real/double out- 
put conversion, exponent) according to an 
Ew.d or Dw.d format code. 



EXIT: After execution subroutine FCVII ENTRANCE: Subroutine FCVED/FCVDO receives 



exits to subroutines FIOLF or FIOAF. 



control from subroutines FIOLF or FIOAF. 



Subroutine FCVIO 



Subroutine FCVIO writes integer data 
(output integer conversion) according to an 
Iw format code. 

ENTRANCE: Subroutine FCVIO receives con- 
trol from subroutines FIOLF or FIOAF. 

OPERATION: The contents of the list item 
are converted from a binary integer to 
decimal digits. These characters, preceded 
by leading blanks sufficient to fill the 
number of bytes, specified by w, are stored 
from left to right in the I/O buffer, 
starting at the appropriate buffer loca- 
tion. 



OPERATION: The contents of the list item 
are scaled according to its characteristic 
and the scale factor. The result is seg- 
mented into integer and fractional por- 
tions, and then converted to properly 
signed decimal digits, separated by a deci- 
mal point. An exponent field is placed to 
the right of the fraction indicating a 
power of 10 to which the preceding number 
must be raised to obtain the proper value. 
All of these characters, preceded by suffi- 
cient blanks to fill w bytes, are stored 
from left to right in the I/O buffer, 
starting from the appropriate buffer posi- 
tion. 



EXIT: 



After 



execution 



subroutine 

FCVEO/FCVDO exits to subroutines FIOLF or 
FIOAF. 



EXIT: 



After execution subroutine FCVIO 



exits to subroutines FIOLF or FIOAF. 



Subroutines FCVFI and FCVFO: Charts PK, PL 



Subroutines FCVEI/FCVDI and FCVEO/FCVDO: 
Charts PK, PL 

Subroutines FCVEI/FCVDI 



Subroutine FCVFI 



Subroutine FCVFI reads real data without 
an external exponent (real- double input 
conversion, no exponent) according to a 
Fw.d format code. 



Subroutine FCVEI/FCVDI reads real data 
with an external exponent (real/double 
input conversion, exponent) according to an 
Ew.d or Dw.d format code. 

ENTRANCE : Subroutine FCVEI/FCVDI receives 
control from subroutines FIOLF or FIOAF. 

OPERATION: The number of bytes, (specified 
by w, in the format code) is scanned from 
left to right, starting at the appropriate 



ENTRANCE: 



Subroutine FCVFI receives con- 



trol from subroutines FIOLF or FIOAF. 

OPERATION: A number of bytes (specified by 
w in the format code) is scanned from left 
to right starting from the appropriate I/O 
buffer position. The characters contained 
in these bytes are converted to a binary 
integer and scaled according to the value 
of d and the scale factor. The result is 
stored in the list item. 
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EXIT: 



After execution subroutine FCVFI OPERATION: If the value of w is less than 



exits to subroutine FIOLF or FIOAF. 



Subroutine FCVFO 

Subroutine FCVFO writes real data with- 
out an external exponent (real-double out- 
put conversion, no exponent) according to a 
Fw.d format code. 



or equal to L the w leftmost characters in 
the list item are placed into the I/O 
buffer. If the value of w is greater than 
L, L characters from the list item are 
right justified in the I/O buffer with w 
minus L leading blanks. 



EXIT: 



After execution subroutine FCVAO 



exits to subroutines FIOLF or FIOAF. 



ENTRANCE: 



Subroutine FCVFO receives con- 



trol from subroutine FIOLF and FIOAF. 

OPERATION: The contents of the list items 
are scaled according to its characteristic 
and scale factor. The result is segmented 
into integer and fractional portions and 
then converted to properly signed decimal 
digits separated by a decimal point. These 
characters , preceded by sufficient blanks 
to fill w bytes # are stored from left to 
right in the I/O buffer , starting from the 
appropriate buffer location. 



EXIT: 



After execution subroutine FCVFO 



exits to subroutines FIOLF or FIOAF. 



Subroutines FCVAI and FCVAO: Charts PM, PN 



Subroutine FCVAI 



Subroutine FCVAI reads alphameric data 
(alphameric input conversion) according to 
an Aw format code. 



ENTRANCE: 



Subroutine FCVAI receives con- 



trol from subroutines FIOLF or FIOAF. 

OPERATION: If the value of w (in the 
format code) is greater than or equal to L 
(the length of the list item) , the L 
rightmost characters in the I/O buffer are 
used to fill the list item. If the value 
of w is less than L # w characters from the 
I/O buffer are left- justified in the list 
item with L minus w trailing blanks. 

EXIT: After execution subroutine FCVAI 
exits to subroutine FIOLF or FIOAF. 



Subroutine FCVAO 



Subroutine FCVAO writes alphameric data 
(alphameric output conversion) according to 
an Aw format code. 

ENTRANCE: Subroutine FCVAO receives con- 
trol from subroutine FIOLF or FIOAF. 



Subroutines FRDNF, FWRNF, FIOLN, FIOAN, and 
FENDN: Charts PO through PT 



These five subroutines transfer data 
between external storage and main storage 
with no intermediate conversion. These 
subroutines constitute that portion of 
IBCOM which implements any READ or WRITE 
not requiring a format. 

ENTRANCE: The five subroutines are entered 
object time under the following condi- 



at 
tions: 



1. Subroutine FRDNF when a READ statement 
not requiring a format is to undergo 
opening section operations. 

2. Subroutine FWRNF when a WRITE state- 
ment not requiring a format is to 
undergo opening section operations. 

3. Subroutine FIOLN when a list variable 
for a READ or WRITE not requiring a 
format is to undergo I/O list section 
processing. 

4. Subroutine FIOAN when a list array for 
a READ or WRITE not requiring a format 
is to undergo I/O list section proc- 
essing. 

5. Subroutine FENDN when a READ or WRITE 
not requiring a format is to undergo 
closing section operations. 

OPERATION: Each record read that does not 
require a format is expected to contain a 
control word of the type prefixed to every 
record written not requiring a format. 
This control word occupies the first four 
bytes of the record and consists of the 
following fields: 



| 8 bits 
F — 

j LRI 

l - 


T — 

I 

I 

A 


24 bits 


i 


record length 




A FORTRAN logical record consists of the 
total number of records necessary to con- 
tain all I/O list items within a single 
WRITE statement. For all but the last 
record within the logical record, LRI (Last 
Record Indicator) equals zero; for the last 
record, LRI equals the total number of 
records within this logical record. The 
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"record length" is always present and 
equals the number of bytes within the 
record, excluding the control word. Sub- 
routines FRDNF and FWRNF, the opening sec- 
tion subroutines, call subroutine FIOCS to 
select the actual channel and device cor- 
responding to the data set reference number 
and to initialize the data set for input or 
output. 

Upon return from subroutine FIOCS, con- 
trol returns to the object program to 
obtain an I/O list item and to call the I/O 
list section, either subroutine FIOLN or 
FIOAN. Using the information passed to the 
I/O list section, the address of the cur- 
rent list item and its length are obtained. 
They are used to transfer bytes from the 
I/O buffer to the list item on input or 
from the list item to the I/O buffer on 
output. 

If end of record is reached and I/O list 
items remain to be transmitted, one record 
is read or written using subroutine FIOCS. 
Then processing of the I/O list resumes. 

When no I/O list items remain to be 
transmitted, control is passed to subrou- 
tine FENDN, the closing section. If a READ 
operation is being implemented, successive 
records are read using FIOCS until the end 
of the logical record is reached. If a 
WRITE operation is being implemented, the 
current record (containing an end-of- 
logical record indicator) is written using 
FIOCS. General housekeeping is performed, 
and control is returned to the object 
program. 

EXIT: Each section of IBCOM (opening, I/O 
list and closing) returns control to the 
object program after execution. However, 
if an error exists, the exit is to 
subroutine IBFERR. 



OPERATION; Subroutine FBKSP calls subrou- 
tine FIOCS to select the actual channel and 
device corresponding to the data set ref- 
erence number and issue a backspace record 
control to that channel and device. If the 
data set required a format, subroutine 
FBKSP returns control to the object pro- 
gram. If the data set did not require a 
format, subroutine FBKSP reads the record 
backspaced over, using subroutine FIOCS, 
and obtains the control word specifying the 
number of records within this logical 
record (see control word format under sub- 
routine FRDNF/FWRNF) . Subroutine FBKSP 
issues an equal number of backspaces (using 
subroutine FIOCS) before returning to the 
object program. 



EXIT: 



After execution subroutine FBKSP 



returns control to the object program. 



Subroutine FRWND: Chart PV 



Subroutine FRWND implements 
source statement. 



the REWIND 



ENTRANCE: 



Subroutine 



FRWND receives con- 
trol from the object time execution of a 
compiler generated linkage. This linkage 
is generated during compilation when a 
REWIND source statement is encountered. 

OPERATION: Subroutine FRWND calls subrou- 
tine FIOCS to select the actual channel and 
device corresponding to the data set ref- 
erence number and to issue a rewind control 
to that channel and device. 

EXIT: After execution subroutine FRWND 
returns control to the object program. 



Subroutine FBKSP: Chart PU 



Subroutine FEOFM: Chart PW 



Subroutine FBKSP implements the BACK- 
SPACE source statement. This subroutine 
backspaces the specified tape unit one 
physical record for a data set requiring a 
format, and one logical record for a data 
set not requiring a format. 



ENTRANCE : 



Subroutine 



FBKSP receives con- 
trol from the object time execution of a 
compiler-generated linkage. This linkage 
is generated during compilation when a 
BACKSPACE statement is encountered. 



If the tape is at load device. 



CONSIDERATION: 
point and a backspace operation is request- 
ed, the backspace operation is not per- 
formed. 



Subroutine FEOFM implements the END FILE 
source statement. 

ENTRANCE : Subroutine FEOFM receives con- 
trol from the object time execution of a 
compiler generated linkage. This linkage 
is generated during compilation when the 
END FILE source statement is encountered. 

OPERATION: Subroutine FEOFM calls subrou- 
tine FIOCS to select the actual channel and 
device corresponding to the data set ref- 
erence number and to issue a write end-of- 
data set control to that channel and 



EXIT: 



After execution subroutine FEOFM 



returns control to the object program. 
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Subroutine FSTOP ; Chart PX 

Subroutine FSTOP implements the STOP 
source statement. 

ENTRANCE ; Subroutine FSTOP receives con- 
trol from the object time execution of a 
compiler-generated linkage. This linkage 
is generated during compilation when a STOP 
statement is encountered. 



OPERATION: 



Subroutine FIOCS is called 

twice: to initialize the data set for a 
write; and, to write on the typewriter the 
message associated with the STOP statement. 

EXIT : After execution subroutine FSTOP 
passes control to subroutine IBEXIT to 
terminate program execution. 



Subroutine FPAUS : Chart PX 

Subroutine FPAUS implements the PAUSE 
source statement. 



ENTRANCE : 



Subroutine FPAUS receives con- 



trol from the object time execution of a 
compiler-generated linkage. This linkage 
is generated during compilation when a 
PAUSE statement is encountered. 



OPERATION: 



Subroutine FIOCS is called 



twice: to initialize the data set for a 
write; and, to write on the typewriter the 
message associated with the PAUSE state- 
ment. Subroutine FPAUS places the system 
in a "wait" state, until a reply is 
received from the operator. 

EXIT : When the operator's reply is 
received, subroutine FPAUS returns control 
to the next sequential instruction of the 
object program. 



Subroutine IBFERR: Chart PY 

Subroutine IBFERR (Execution Error Monitor) 
processes object-time errors (e.g., a 
permanent tape redundancy) . 

ENTRANCE: Subroutine IBFERR receives con- 
trol from the various FORTRAN library sub- 
routines, when they detect object-time 
errors. 

OPERATION : Subroutine IBFERR, using sub- 
routine FIOCS, prints out a message to in- 
dicate the type of error detected and the 
point in the object program where the 
error occurred. 
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EXIT : After execution subroutine IBFERR 
passes control to subroutine IBEXIT to 
terminate the execution of the object 
program. 

Subroutine IBFINT: Chart PZ 

Subroutine IBFINT (Interrupt Processor) 
processes arithmetic type program errors 
(e.g. , overflow, underflow, divide check) . 

ENTRANCE : Subroutine IBFINT initially 
receives control from a compiler generated 
linkage, which is included in as the initial 
object program coding to be executed. Sub- 
sequent entries into subroutine IBFINT are 
effected whenever program interrupts occur. 



OPERATION: 



The first time subroutine IBFINT 



receives control, it initializes the object 
time 2540 punch error recovery mechanism in 
the FSD error recovery routine (SERP) . In 
addition IBFINT saves the new program PSW 
and substitutes its own. This is done to 
insure that subroutine IBFINT receives con- 
trol each time a program interrupt occurs. 
In handling interrupts, subroutine IBFINT 
determines if the interrupt is the arith- 
metic type. If not, it loads the saved 
new program PSW, thereby giving control to 
the program interrupt routine of the FORTRAN 
System Director to process non -arithmetic 
program interrupts. If the interrupt is 
arithmetic, subroutine IBFINT writes out the 
old program PSW, using subroutine FIOCS. 
This PSW can be examined to determine the 
nature of the interrupt. 

If overflow or underflow has caused the 
interrupt, subroutine IBFINT sets the ap- 
propriate indicators, which are referenced 
by subroutine OVERFL (a library subroutine) . 
If any type of divide check has caused the 
interrupt, subroutine IBFINT sets the indi- 
cator referenced by subroutine DVCHK (a 
library subroutine) . 

EXIT : After processing an arithmetic pro- 
gram error, subroutine IBFINT returns con- 
trol to the point in the object program at 
which the interrupt occurred. If the pro- 
gram interrupt is not arithmetic, subrou- 
tine IBFINT exits to the program interrupt 
routine of the FORTRAN System Director. 



Subroutine FIOCS: Charts QA, QB 

Subroutine FIOCS (I/O Interface) handles 
all I/O requests from other FORTRAN library 
subprograms . 



ENTRANCE : 



Subroutine FIOCS receives con- 



trol from the various FORTRAN library sub- 
routines when they request I/O operations. 
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CONSIDERATIONS ; Subroutine FIOCS does not 
perform the actual I/O operations. It acts 
as an interface between the subprogram 
requesting the I/O operation and the 
FORTRAN System Director (FSD) , which actually 
fulfills the I/O request of the subprogram. 
Subroutine FIOCS receives and passes the 
I/O request on to the FSD by means of a 
Supervisor Call. The FSD performs the re- 
quested I/O operation and returns control 
to subroutine FIOCS. 

OPERATION ; The operation of FIOCS is com- 
prised of initialization, read, write, and 
control. 

Initialization : Data set initialization is 
considered as part of the opening section 
operation. The requested data set ref- 
erence number is saved and used, until 
another initialization occurs, for all sub- 
sequent read or write requests. If the 
data set is to be read, a record is read 
into an I/O buffer, using the FSD. The 
beginning address of the I/O buffer and the 
size of the record read are returned to the 
calling subprogram. If the data set is to 
be written, an I/O buffer area is located 
and initialized. The beginning address of 
this area and its maximum length (in bytes) 
is returned to the calling subprogram. 

Read ; A record is read, using the FSD, 
from the current data set into an I/O 
buffer. The beginning address of the buf- 
fer and the size of the record read are 
returned to the calling subprogram. 



Write : The contents of the last located I/O 
buffer are written, using the FSD, onto the 
current data set. If the write was a suc- 
cessful 2540 punch operation, the informa- 
tion just punched and the device parameters 
are saved for possible punch equipment check 
recovery procedures . A new I/O buffer area 
is located and initialized. The beginning 
address of this area and its maximum length 
(in bytes) are returned to the calling sub- 
program. 



Control : The qualifying argument passed to 
subroutine FIOCS is examined and its cor- 
responding operation (backspace, rewind, 
or end of data set) is performed on the 
requested data set, using the FSD. If the 
operation was a backspace, the previous 
qualifier set during data set initializa- 
tion for this data set reference is re- 



turned to the calling subprogram (to indi- 
cate the format requirement) . Subroutine 
FBKSP needs this information to complete 
the backspacing of a data set that does not 
require a format. 

The other types of control operations 
(rewind and end of data set) do not require 
output from subroutine FIOCS. 

EXIT : After execution subroutine FIOCS 
returns control to the calling subprogram. 



Subroutine IBEXIT; Chart QC 

Subroutine IBEXIT terminates the execution 
of an object program. 

ENTRANCE : Subroutine IBEXIT receives con- 
trol from subroutines FSTOP, DUMP, EXIT, 
and IBFERR after it prints an error mes- 
sage; and from the object time execution of 
a compiler generated linkage for the RETURN 
statement appearing in the main program. 



OPERATION: 



Subroutine IBEXIT closes all 



FORTRAN data sets that are open. 

EXIT : After execution subroutine IBEXIT 
passes control to the FORTRAN System 
Director. 

Subroutine IB2540; Chart QD 

Subroutine IB25 40 handles 25 40 punch equip- 
ment check retries during object time. 

ENTRANCE : IB25 40 receives control from the 
external interrupt after FSD has printed 
the error message. 

OPERATION : IB2 5 40 routine sets up the 
error device UCB and CSW to indicate a 
successful punch operation, and changes the 
FSD return address to return to the IB25 40 
retry address (IORTRY) . It then gives con- 
trol to the FSD interrupt routine (SNTPIN) . 
Routine SNTPIN will find a successful punch, 
restore IBCOM registers and I/O device 
indicators, and then return to the retry 
entry (IORTRY) . 

IB2540 will punch the first card and 
then give control back to the IBCOM I/O 
Interface Subroutine (FIOCS) to punch the 
second card. 

EXIT : After execution of subroutine 

IB25 40 control is returned to the IBCOM I/O 

Interface Subroutine (FIOCS) . 
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CBJECT PROGRAM 



THIS CALL IS 
GENERATED BY 

COMPILER WHEN A 
READ OR WRITE 

IS ENCOUNTERED 



*****C2**** ****** 

* * 

* CALL OPENING * 

* SECTION OF *. 

* IBCCM * 

* * 
***************** 



*****C4 ********** 

* * 
♦PERFORM OPENING* 

.X*OPERATIONS FOR * 

* READ OR WRITE * 

* * 
***************** 



THIS CALL IS 

GENERATED BY 

COMPILER WHEN 

AN I/O LIST ITEM 

IS ENCOUNTERED 



*****D2** ******** 

* * 
*GET LIST ITEM. * 

.X* CALL I/O LIST *. 

* SECTION * 

* * 
***************** 



*****D 4**** ****** 

* * 

* PERFORM I/O * 
•X*LIST OPERATIONS* 

* ON LIST ITEM * 

* * 
***************** 



LAST 
LIST 
ITEM 



THIS CALL IS 

GENERATED BY 

COMPILER WHEN ALL 
OF THE LIST ITEMS 
ASSOCIATED WITH READ 
OR WRITE HAVE 
BEEN PROCESSED 



*«***F2** ******** 

* * 

* CALL CLOSING * 

* SECTION OF *. 

* IBCOM * 

* * 
***************** 



*****F4**«* ****** 

* * 

* CLOSE OUT * 
X* I/O * 

* OPERATION * 

* * 
***************** 



*****G2** ******** 

* * 

* CONTINUE WITH * 
*CEJECT PROGRAM * 

* PROCESSING * 

* * 
***************** 



Chart 12 • IBCOM-Object Program Logic Diagram 



IBCOM 
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***** 
*PA * 
* B2* 



***** 
*PA * 
* B4* 



FRDWF X 

*****B2**** ****** 

* * 

* SET FOR INPUT * 

* REQUIRING *. 

* A FORMAT * 

* * 
***************** 



*****B3 ********** 
* 
* 
*X. 



* SAVE MAIN 
•X* REGISTERS 



FWRWF X 

*****B4* ********* 



*SET FOR OUTPUT 
.* REQUIRING 
* A FORMAT 



***************** 



*****C 3 ********** 



GET POINTER 
TO PARAMETERS 



***************** 



***************** 



*****D3**** ****** 
*FIOCS QAA1* 
*—*—*—*—*—*—*—*—* 

* INITIALIZE * 

* DATA SET * 

* * 
***************** 



*****E3********** 

* * 

* SAVE * 
♦START LOCATION * 

* OF RECORD * 

* * 
***************** 



*****F 3* ********* 

* * 

* COMPUTE * 

* END LOCATION * 

* OF RECORD * 

* * 
***************** 



*****G3*** ******* 

* * 

* INITIALIZE * 

* RECORD * 

* POINTER * 

* * 
***************** 



*****H3«* ******** 

* * 

* INITIALIZE * 

* FORMAT * 

* POINTER * 

* * 
***************** 



X 

***** 

*PB * 

* Bl* 

* * 



Chart PA. Subroutines FRDWF, FWrWF 
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***** 
*PB * 
* Bl* 



*****B 1********** 



SCAN OUT 
OPERATOR 



***************** 



BRANCH *• 

ACCORDING «* 

TO OP •* 



********* 




CLEAR 
COUNTS 



***************** 



*****E2** ******** 



SAVE 
GROUP COUNT 



***************** 



*****F2********** 



* SAVE * 
X* FIELD COUNT *• 



***************** 



*****G2* ********* 



* SAVE 
•X* SCALE FACTOR 



***************** 



*****H2 ********** 

* * 

* COMPUTE * 
•X*START OF RECORC*. 

* PLUS COLUMN * 

* * 
***************** 



*****D3********** 

* * 

* BUMP FORMAT * 
•X* POINTER *. 

* AND SAVE IT * 

* * 
***************** 



*****E3*** ******* 

* * 

* BUMP FORMAT * 



POINTER 
AND SAVE I 



***************** 



*****F3********** 



BUMP FORMAT 
POINTER 



***************** 



*****G3 ********** 



BUMP FORMAT 
POINTER 



***************** 



PAST *. NO 
RECORD .*... 
END .* 



*****H4* ********* 



* BUMP FORMAT 
•X* POINTER 



***************** 



***** 

*PC * 

* Bl* 

* * 



*PB *.X 
* J3* 
**** 



*****J3********** 

* ATTEMPT TO * 

* READ/WRITE * 

* PAST RECORD * 

* END * 

* * 
***************** 
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***** 

*PY * 
* E3* 
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«****B2 ********** 



**************** 



INPUT 

OR 

OUTPUT 



*****C3* ********* 



***************** 



*****B4*« ******** 



************* 



AT END *. 


YES 










• * 




X 


*. .* 




***** 


*. .* 




*PB * 


* NO 




* J3* 

* * 



***** 
*PB * 
* Bl* 



************* 



*#***E3********** 

* * 
♦COMPUTE RECORD * 

•X*END AND RECORD *• 

* POINTER * 

***************** 



***** 
*PB * 
* J3* 



INPUT 

OR 

OUTPUT 



*****G4* ********* 

* * 

* MOVE N * 

* CHARACTERS *. 

* TO BUFFER * 

* * 
***************** 



*****J2*» ******** 



************* 



***** 
*PD * 
* Bl* 



.* GROUP *. YES 
.X*. COUNT .*.... 
*. GT 1 .* 



***** 
*PB * 
* Bl* 



*****J4 ********** 

* * 

* RESET FORMAT * 
X* POINTER TO *. 

* LAST GROUP * 

* * 
***************** 



*****F5 ********** 

* * 

* MOVE N * 
X* CHARACTERS * 

* TO FORMAT * 

* * 
***************** 



*****G5 ********** 

* * 

* BUMP RECORD * 
X* AND FORMAT * 

* POINTERS * 

* * 
***************** 



***** 
*PB * 
* El* 



*****J5 ********** 

* * 

* REDUCE * 
X* GROUP COUNT * 

* BY 1 * 



***** 
*PB * 
* Bl* 
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***** 
*PD * 
* Bl* 



*****B2********** *****B3********** *****B4********** 

* * *FIOCS QAA1* * * 

* SET UP FOR * *_*_*_*_*-.*_*_*_* * BUMP * 

.X* READ OR WRITE * X* READ/WRITE * X* FORMAT * ••• 

* * * ONE RECORD * * POINTER * X 

* * * * * * ***** 
***************** ***************** ***************** *PB * 

* Bl* 
* * 



*****C2** ******** 

* * ****C3********* 

* SET END * * TO OBJECT * 
X* CF FORMAT * X* PROGRAM * 



* SWITCH ON 

* * *************** 
***************** 



X 

***** 
*PE * 
* Bl* 



Chart PD. Subroutines FRDWF, FWRWF 



IBCOM 427 



*****B2 ********** 

* * 

* SET FOR * 
X* F * 

* CCCNVERSION * 

* * 
***************** 



*****C2** ******** 

* * 

* SET FCR * 

* e *. 

* CONVERSION * 

* * 
***************** 



*****C 3**** ****** 

* * 

* SET WIDTH, * 
X* DECIMALS. AND * 

* SCALE FACTOR * 

* * 
***************** 



***D2* ********* 

SET FOR * 

I *. 

CONVERSION * 

* 

*************** 



*****E2 ********** 

* * 

* SET FOR * 
X* A *. 

* CONVERSION * 

* * 
***************** 



*****E3********** 

* * 

* SET WIDTH * 
X* PLUS A * 

* NOP * 

* * 
***************** 



***** 
*PY * 
* B3* 



*****F3**** ****** 

* * 

* BUMP * 

* FORMAT * 

* POINTER * 

***************** 



*****G3********** 



**************** 



END 

OF 

FORMAT 



***** j 3* ********* 

* * 

* SET END * 

* OF FORMAT * 

* SWITCH OFF * 

* * 
***************** 



.* IS *. 

.* CURRENT * 
.X*.LIST ITEM AN 
*• ARRAY •* 



**** 

* * 

* H4 * 

* * 
**** 



***** 
*PG * 
* H2* 



*****H5********** 

* * 

* SAVE OWN, * 
.X* RESTORE MAIN * 

* REGISTERS * 

* * 
***************** 



**** J5 ********* 

* TO OBJECT * 

* PROGRAM FOR * 

* LIST ITEM * 
*************** 



THE CONVERSION 
SUBROUTINE DEPENDS 
UPON THE ITEM 
TO BE CONVERTED 



*—*—*—*— 



-*-*-*-* 



***************** 



*****K5 ********** 

* * 

* REDUCE * 
.X* FIELD COUNT * 

* BY 1 * 

* * 
***************** 



Chart PE. Subroutines FRDWF, FWRWF 



**** 
* * 

* H4 * 

* * 
**** 



428 



***** 
*PF * 
* B2* 



FICLF X 

*****B2** ******** 

* * 

* GET LENGTH * 

* OF LIST * 

* ITEM * 

* * 
***************** 



*****C2 ********** 

* * 

* GET * 

* ADDRESS OF * 

* LIST ITEM * 

* * 
***************** 



THE CONVERSION 
SUBROUTINE 
DEPENDS UPON 
THE ITEM TO BE 
CONVERTED 



END 
CF FORMAT 



*****E2********** 

* FVC — * 
*-*-*-*-*-*-*-*-* 

* CONVERT * 

* LIST ITEM * 

* * 
***************** 



***** 03**** ****** 

* * 

* SET UP * 
K* FOR READ *. 

* OR WRITE * 

* * 
***************** 



*****D4 ********** 
*FIOCS QAA1* 
*_*_*_*_*_*_*_*_* 

•X* READ/WRITE * 

* ONE RECORD * 

* * 
***************** 



*****E4**** ****** 

* * 

* RESET FORMAT * 

* POINTER AND * 

* GROUP COUNT * 

* * 
***************** 



X 
***** 
*PB * 
* Bl* 



FIELD 
COUNT 
GT 1 



X 
***** 
*PE * 
* El* 



*****G2** ******** 

* * 

* REDUCE * 

* FIELD COUNT * 

* BV 1 * 

* * 
***************** 



****H2* ******** 

* TO OBJECT * 
» PROGRAM FOR * 

* LIST ITEM * 
*************** 
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***** 
*PG * 
* B2* 



FIOAF X 

*****B2** ******** 

* * 

* GET LENGTH * 

* OF LIST * 

* ITEM * 

* * 
***************** 



*****C2** ******** 



* 


GET ADDRESS 


* 


* 


OF 


* 


* 


LIST ITEM 


* 


* 




* 


***************** 




**** , 






* 


* « 






* 


D2 *.X« 






* 


* 
**** 








• X. 






D2 *. 






• * *. 






.* END * 




* 


OF 


• * 




*. FOR* 


1AT .* 





*****D 3** ******** 

* * 

* SET UP FOR * 
<* READ OR *. 

* WRITE * 

* * 
***************** 



*****04* ********* 

*FIOCS QAA1* 

*-*-*-*—*-*-*-*-* 

.X* READ/WRITE * 

* ONE RECORD * 

* * 
***************** 



THE CONVERSION 
SUBROUTINE 
DEPENDS UPON 
THE ITEM TO BE 
CONVERTED 



*****E2* ********* 

* FCV — * 
*-*-*-*-*-*-*-*-* 

* CONVERT * 

* LIST ITEM * 

* * 
***************** 



*****E4* ********* 

* * 

* RESET FORMAT * 

* POINTER + * 

* GROUP COUNT * 

* * 
***************** 



X 
***** 
*PB * 
* Bl* 



FIELD 
COUNT 
GT 1 



*****G2** ******** 



***** 
*PE * 
* El* 



* 


REDUCE 


* 


* 


FIELD CCUNT 


* 


* 


BY 1 


* 


* 




* 


***************** 


**** . 




* 


* • 




*PG *.X. 




* 


H2* 




**** . 






• X. 






H2 *. 






.* *. 




a 


* ARRAY * 


• NO 


*. 


EXHAUSTED 


• * 



*****H3 ********** 

* * 

* INCREMENT * 
<* ADDRESS BY *. 

* ITEM LENGTH * 

* * 
***************** 



**** 

* * 
•X* D2 * 

* * 
**** 



****J2********* 

* TO OBJECT * 

* PROGRAM FOR * 

* LIST ITEM * 
*************** 
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***** 

*PH * 

* C3* 

* * 



FENDF X 

*****C3********** 

* * 

* SAVE MAIN. * 

* RESTORE OWN * 

* REGISTERS * 

* * 
***************** 



*****D 3* ********* 



RESET 
SWITCHES 



***************** 



INPUT 

OR 

OUTPUT 



• INPT 



*****F 3* ********* 



SET UP 

FOR WRITE 



***************** 



*****G3*** ******* 
*FIOCS QAA1* 
*-*-*-*-*-*-*-*-* 

* OUTPUT A * 

* RECORD * 

* * 
***************** 



*****H3*** ******* 

* * 

* RESTORE * 

* MAIN * 

* REGISTERS * 

* * 
***************** 



****j 3* ******** 

* TO OBJECT * 

* PROGRAM * 
» * 

*************** 
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***** 

*PI * 

* B2* 



FCVII X 

*****B2********** 



SAVE 
REGISTERS 



***************** 



*****C2* ********* 

* * 

* SCAN INPUT * 

* AND CONVERT * 

* TO BINARY * 

* * 
***************** 



INPUT 
NEGATIVE 



*****E2**** ****** 



NEGATE 
DATUM 



ITEM 
LENGTH 



***************** 



• .* 

* 4 BT 



*****E4********** 

* * 

* STORE * 
X* HALF-WORD * 

* INTEGER * 

* * 
***************** 



*****F3*** ******* 

* * 

* STORE * 

* FULL-WORD *. 

* INTEGER * 

* * 
***************** 



*****F4**** ****** 



RESTORE 
REGISTERS 



***************** 



****G4********* 

* * 

* RETURN * 

* * 
*************** 
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432 



***** 
*PJ * 

* B2* 
* * 



*****B5 ********** 



***************** 



***************** 



*****C2*» ******** 



***************** 



*****C4* ********* 

* START AT * 

* RIGHT END * 

* OF DIGITS AND * 

* BUFFER AREA * 



************ 



:**** 



»D2 ********** 



***************** 



*****D4********** 

* * 

* MOVE ONE * 
X* DIGIT TO * 

* BUFFER * 

* * 
***************** 



****£ 2* ********* 

* 

LOAD * 

HALF-WORD * 

INTEGER * 



******** 



******** 



*****P2*« ******** 

* * 

* LOAD * 

* FULL-WCRD * 

* INTEGER * 

* * 
***************** 



*****G3********** 



************** 



*****G4********** 

* * 

* SET SIGN * 

* ACCORDING * 

* TO SWITCH * 

* * 
***************** 



*****H2** ******** 



***************** 



***** J2* ********* 

* * 

* CONVERT * 

* DATUM TO * 

* DECIMAL * 

* * 
***************** 



***J4 ********** 



***************** 



*****J5 ********** 



***************** 



***%*K2* ********* 

* * 

* GET NUMEER * 

* OF SIGNIFI- * 

* CANT DIGITS * 

* * 
***************** 



****K5 ********* 

* * 

* RETURN * 

* * 
*************** 
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***************** 



*****B4******** 

* SCALING 

* POWER 
X* + SCALE 

* FACTOR 
* 
*************** 



*****C2********** 

* SCAN * 

* INPUT * 
*AND CONVERT TO * 

* BINARY * 



********** 



>*** 



*****C3****** 

* SCALING 

* POWER 

* - SCALE 

* FACTOR 
* 
************* 



*****C4********** 

* * 

* TEST * 
.X* FINAL SCALING * 

* POWER * 

* * 
***************** 



*****D3********** 

* SET * 
X* DATUM TO *X 

* ZERO * 



* SHIFT INTEGER * 

* RIGHT 1 OR 2 * 

* HEX DIGITS * 

* * 
***************** 



*****F1 ********** 

* * 

* SET * 

* CHARACTERISTIC * 

* OF 15 OR 16 * 

* * 
***************** 



* ROOM * 

FCR CHAFAC- 
*.TERISTIC .* 



*****F2 ********** 

* * 

* SET * 
♦CHARACTERISTIC * 

* OF 14 * 

* (HEX POWER) * 
***************** 



*****G2** ******** 

* * 

* FLOAT DATUM * 
X* USING * 

* 0.0 * 

***************** 



*****H2********** 

* * 

* SCALING POWER * 

* = SPILLS - D * 

* + EXPONENT * 

* * 
***************** 



.* *. **** 

.* EXPONENT *. NO * * 
*. IN INPUT .*....X* E3 * 



**** 

* * 

* C4 * 

* * 
**** 



* SIGN 

OF SCALING 
*. POWER 



*****E5****** 

* DIVIDE 
X* BY 10** 

* POWER 



********* 



X 




*F4****** 


**** . 




* • 


MULTIPLY 


* • 


BY 10** 




POWER 


* • 






********* 


**** . 


'.X.,. 





*****G5 ********** 



*************** 



*****J4********** 

* * 

* STORE * 

* SHORT *. 

* PRECISION * 

* * 
***************** 



****H5 ********** 

* 

STORE * 

LONG * 

PRECISION * 



*****J5 ********** 



**************** 



****K5 ********* 

* * 

* RETURN * 

* * 
*************** 
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***** 
*PL * 
* B2* 



**B2********** 



****B4 ********** 



***************** 



***************** 



****C2 ********** 

* 

SET * 

FOR NC * 

EXPONENT * 

**************** 



*****C4********** 

* * 

* SET * 

* FOR * 

* EXPONENT * 



* FIX OUTPUT * 

* AND CONVERT * 

* TC DECIMAL * 

* * 
***************** 



*****D4********** 

* * 

* FIX OUTPUT * 

* AND CONVERT * 

* TO DECIMAL * 

* * 
***************** 



*****E2* ********* 



************ 



*****E4 ********** 

* * 

* GET BUFFER * 

* POSITION OF * 

* EXPONENT * 

* * 
***************** 



****F2** ******* 

* * 

* RETURN * 

* * 
*************** 



*****F5********** 

* * 

* SET * 
X* =D= * 

* CHARACTER * 

* * 
***************** 



*****G4********** 

* * 

* SET * 

* =E= *. 

* CHARACTER * 

* * 
***************** 



*****G5 ********** 

* * 

* SET * 
X* SIGN OF * 

* EXPONENT * 

***************** 



*****H5 ********** 

* * 

* SET * 

* 2-DIGIT * 

* EXPONENT * 

* * 
***************** 



*****J5********** 



***************** 



****K5 ********* 

* * 

* RETURN * 

* * 
*************** 



Chart PL. Subroutine FCVFO/FCVEO/FCVDO 
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***** 
*PM * 
* B2* 



ft**************** 



*****C2*» ******** 

* * 

* POINT * 

* TO . * 

* PARAMETERS * 

* * 
***************** 



*****D2**** ****** 

* * 

* PICK UP * 

* ITEM * 

* LENGTH * 

* * 
***************** 



#«***E2 ********** 

* * 

* PICK UP * 

* FORMAT * 

* WIDTH * 

***************** 



COMPARE 

LENGTH, 

WIDTH 



*****G2********** 

* * 

* SKIP EXCESS * 

* CHARACTERS IN *. 

* BUFFER * 

* * 
***************** 



*****G3********** 

* * 

* USE SMALLER * 
•X* NO. (L OR W) * 

* AS COUNT * 

* * 
***************** 



*****H3 ********** 

* * 

* MOVE BYTES * 

* FROM BUFFER * 

* TO ITEM * 

* * 
***************** 



****** 3* ********* 

* * 

* FILL ITEM * 

* ON RIGHT *• 

* WITH BLANKS * 

* * 
***************** 



*****K4«* ******** 



************ 



****K5 ********* 

* * 

* RETURN * 

* * 
*************** 
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***** 
*PN * 
* B2* 



***************** 



*****C2********** 

* * 

* POINT * 

* TO * 

* PARAMETERS * 

* * 
***************** 



***** D2** ******** 

* * 

* PICK UP * 

* ITEM * 

* LENGTH * 

* * 
***************** 



*****E2*« ******** 

* * 

* PICK UP * 

* FORMAT * 

* WIDTH * 

* * 
***************** 



COMPARE 

LENGTH, 

WIDTH 



L GT OR EQ W 



*****G2* ********* 

* * 

* ELANK EXCESS * 

* CHARACTERS IN *. 

* BUFFER * 

* * 
***************** 



*****G3********** 

* * 

* USE SMALLER * 
.X* NO. (L OR W) * 

* AS COUNT * 

***************** 



*****H3********** 

* * 

* MOVE BYTES * 

* FROM ITEM * 

* TO BUFFER * 

* * 
***************** 



*****J3********** 



***************** 



****K 3*** ****** 

* * 

* RETURN * 

* * 
*************** 
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***** 
*P0 * 
* B2* 



FRDNF X 

*****B2** ******** 

* SET * 

* FOR INFUT * 

* NOT REQUIRING *. 

* A FORMAT * 



****** 



********** 



*****B3********** 

* * 

* SAVE * 
X* MAIN *X 

* REGISTERS * 

* * 
***************** 



****B4********** 

SET * 

FOR OUTPUT * 

NOT REQUIRING * 

A FORMAT * 



***i 



******** 



*****C3**** ****** 

* * 

* GET * 

* POINTER TO * 

* PARAMETERS * 

***************** 



* INITIALIZE * 

* DATA * 

* SET * 
***************** 



*****E3********** 

* * 

* SAVE * 
♦START LOCATION * 

* AT RECORD * 

* * 
***************** 



*****F3*«* ******* 

* * 

* COMPUTE * 

* END LOCATION * 

* OF RECORD * 

* * 
***************** 



*****G3********** 

* ADJUST * 
♦RECORD POINTER * 

* PAST CONTROL * 

* * 
***************** 



*****H3**« ******* 

* * 

* INITIALIZE * 

* RECORD * 

* COUNT * 

* * 
***************** 



***** j 3* ********* 

* * 

* SAVE OWNt * 

* RESTORE MAIN * 

* REGISTERS * 

* * 
***************** 



•***K 3 ********* 

* TO OBJECT * 

* PROGRAM FOR * 

* LIST ITEM * 
*************** 
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***** 

*PQ * 

* B2* 



***** 
*PG * 
* B4* 



FICLK X 

*****B2**** ****** 

* * 

* SAVE * 

* MAIN * 

* REGISTERS * 

* * 
***************** 



FIOAN X 

*****B4********** 

* SAVE MAIN, * 

* RESTORE * 

* OWN * 

* REGISTERS * 

* * 
***************** 



*****C2* ********* 

* * 

* GET LENGTH * 

* OF LIST * 

* ITEM * 

* * 
***************** 



*****C4 ********** 

* * 

* GET LENGTH * 

* OF ITEMS * 

* IN ARRAY * 

* * 
***************** 



*****D2** ******** 

* GET * 

* ADDRESS OF * 

* LIST * 

* ITEM * 

* * 
***************** 



*****D 4**** ****** 

* * 

* GET * 

* ADDRESS OF * 

* ARRAY * 

* * 
***************** 



X 

***** 
*PR * 
* Bl* 



X 
***** 
*PR * 
* Bl* 
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***** 

*PR * 

* Bl* 



*****B l********** 

* * 

* COMPUTE * 
•RECORD POINTER * 

* + LENGTH * 

* * 
***************** 



INPUT 

OR 

OUTPUT 



*****D2********** 
» * 

* MCVE BYTES * 

* TO ITEM * 

* FROM BUFFER * 

K * 

***************** 



*****£ 1 ********** 

* * 

* MOVE BYTES * 

* FROM ITEM * 

* TO BUFFER * 



********** 



****** 



*****F 1 ********** 

* * 

* INCREMENT * 
♦RECORD POINTER »X. 

* BY LENGTH * 

* * 
***************** 



***** 
*PS * 
* B2* 



INPUT 

OR 

OUTPUT 



*****D 3* ********* 

* * 

* SET * 

* FOR * 

* WRITE * 

* * 
***************** 



*****E 3 ********** 

* * 

* PICK UP » 

* NUMBER OF * 

* BYTES * 

* * 
***************** 



*****F 3*** ******* 

* * 

* STORE * 

* RECORD LENGTH * 

* IN CONTROL * 

* * 
***************** 



*****G 3*** ******* 

* * 

* UPDATE * 

* RECORD * 

* COUNT * 

* * 
***************** 



COUNT 
GT 
255 

**. .** 



#-*-*-*- 



-*-*-*-* 



LAST .*.. 




RECORD .* 


X 


.* 


***** 


*• •* 


*PY * 


* NO 


* B3* 



*****D4********** 

* SET * 

* FOR * 

* READ * 

* * 
***************** 



*****K 1 **** ****** 

* * 

* ADJUST * 
••RECORD POINTER *X. 

* PAST CONTROL * 

* * 
***************** 



*****K2** ******** 

* * 
« COMPUTE * 

.* END LOCATION *X 

* CF RECORD * 

* * 
***************** 



READ/WRITE 

* ONE * 

* RECORD * 
***************** 



*****K3********** 

* * 

* SAVE * 
••START LOCATION * 

* OF RECORD » 

* * 
***************** 
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***** 

*PS * 

* B2* 



WHERE *. FIOLN 
FROM •*•••••• 

.* 

*„ .* 

*FIOAN 



*****B3********** 

* * 

* SAVE OWN, * 
•X* RESTORE MAIN *• 

* REGISTERS * 

* * 
***************** 



****B4********* 

* TO OBJECT * 
,X* PROGRAM FOR * 

* LIST ITEM * 
*************** 



C2 *. 

9 * * e 
•* SAVE OWN* *. NO 

♦^RESTORE FAIN * * « « » 
♦•REGISTERS.* 
*« « * 
*„ .« 

* YES 



*****C 3 ********** 

* * 

* INCREMENT * 

K* ADDRESS BY * 

* ITEM LIST * 

* * 
***************** 



*****D2** ******** 



X 
***** 

*PR * 
* Bl* 



* SAVE GWN 9 * 

* RESTORE MAIN * 

* REGISTERS * 

* * 
***************** 



****E2********* 

* TO OBJECT * 

* PROGRAM FOR * 

* LIST ITEM * 
*************** 
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***** 
*PT * 
* B3* 



FENDN X 

*****B3 ********** 

* * 

* SAVE MAIN. * 

* RESTORE OWN * 

* REGISTERS * 

* * 
***************** 



INPUT 

OR 

OUTPUT 



.* 
. .* 

* OTPT 



*****D3**** ****** 

* * 

* PICK UP * 

* NUMBER OF * 

* BYTES * 

* * 
***************** 



**»**E3********** 

* STORE * 

* RECORD LENGTH * 

* AND COUNT * 

* IN CONTROL * 

* * 
***************** 



*****F3********** 
*FIOCS QAA1* 
*_*-*-*_*_*-*_*_« 

* WRITE * 

* A * 

* RECORD * 
***************** 



*****G3********** 

* * 

* RESTORE * 

* MAIN *X 

* REGISTERS * 

* * 
***************** 



****H3*** ****** 

* TO * 

* OEJECT * 

* PROGRAM * 
*************** 



.* AT 
•X*. LAST 
*. RECORD 



*****C5********** 
*FIOCS QAA1* 
*_*_*_*-.*_*_*_*_* 

•X* READ * 

* A * 

* RECORD * 
***************** 



Chart PT. Subroutine FENDN 
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***** 
*PU * 
* B2* 



FBKSP X 

*****B2*« ******** 

* SAVE MAIN * 

* REGISTERS. * 

* * 

* PICK UP * 

* PARAMETERS * 
***************** 



*****C2** ******** 
*FIOCS QAA1* 
*_*-*_*_*_*-*_*-* 

* * 

* PERFORM * 

* BACKSPACE * 
***************** 



D2 *• 
.* DID *• 

YES .* DATA SET 
...*. REQUIRE A 
*. FORMAT 



*****E2* ********* 
*FIOCS QAA1* 
*_*-.*_*_*_*-*_.*_* 

* READ RECORD * 

* BACKSPACED * 

* OVER * 
***************** 



*****F2* ********* 

* * 

* GET * 

* NUMBER OF * 

* RECORCS * 

* * 
***************** 



* NUMBER *. NO 

OF RECORDS .*... 
*. EQ .* 



*****G3* ********* 

♦FIOCS QAA1* 

*-*-*-*—*-*—*-*-* 

• X* *. 

* PERFORM * 

* BACKSPACE * 
***************** 



*****G4********** 

* * 

* SUBTRACT 1 * 
<* FROM NUMBER * 

* OF RECORDS * 

* * 
***************** 



*****H2** ******** 

* * 

* RESTORE * 

* MAIN * 

* REGISTERS * 

* * 
***************** 



****J2*« ******* 

* TO * 

* OBJECT * 

* PROGRAM * 
*************** 



Chart PU, Subroutine FBKSP 
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***** 
*PV * 
* E3* 



FRWND X 

*****B3********** 

* * 

* SET * 

* FOR * 

* REWIND * 

* * 
***************** 



*****C 3 ********** 

* SAVE MAIN * 

* REGISTERS. * 

* * 

* GET * 

* PARAMETERS * 
***************** 



*****D3********** 
*FIOCS GAA1* 



_#_*_ 



_*_*_ 



* PERFORM * 
♦REWIND CONTROL * 

* OPERATION * 
***************** 



*****E 3*** ******* 



* RESTORE * 
♦MAIN REGISTERS * 



***************** 



****F3*** ****** 

* TO * 

* OEJECT * 

* PROGRAM * 
*************** 



Chart PV. Subroutine FRWND 
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***** 
*PW * 

* B3* 



FEOFM X 

*****B3********** 

* SET * 

* FOP WRITE * 

* END-OF-DATA * 

* SET * 

* * 
***************** 



*****C3********** 

* SAVE MAIN * 

* REGISTERS. * 

* * 

* GET * 

* PARAMETERS * 
***************** 



*****D3**« ******* 
*FIOCS GAA1* 
*_*_*_*_*_*_#_*_* 

* PERFORM WRITE * 
*END-OF-DATA CCN* 
*TROL OPERATION * 
***************** 



*****E3********** 

* * 

* RESTORE * 

* MAIN * 

* REGISTERS * 

* * 
***************** 



****F3********* 

* "to * 

* OEJECT * 

* PROGRAM * 
*************** 



Chart PW. Subroutine FEOFM 
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***** 
*PX * 
* B4* 



* INDICATE * 

* THIS IS * 

* STOP * 

* * 
***************** 



INDICATE * 

THIS IS * 

PAUSE * 

* 

************** 



*****C3****»***«* 

* * 

* SAVE * 

* MAIN * 

* REGISTERS * 

* * 
***************** 



*****D 3* ********* 

* * 

* SELECT * 

* CONSOLE * 

* OUTPUT * 

* DEVICE * 
***************** 



*-*-*-*-*-*-*-*-* 

* INITIALIZE * 

* DATA * 

* SET * 
***************** 



*****F 3* ********* 

* * 

* GET NUMBER * 

* OF BYTES * 

* IN MESSAGE * 

* * 
***************** 



* ACCEPT- * 

ABLE NUMBER 
*.OF BYTES .* 



*****G4* ********* 

* SET NUMBER * 

* OF BYTES TO * 
.X*MAXIMUM BUFFER * 

* LENGTH * 

* * 
***************** 



* WRITE * 

* MESSAGE * 
***************** 



*****J4********** 

* PLACE * 

* COMPUTER * 
.X*IN 'WAIT* STATE*.., 



**************** 

.WHEN OPERATOR 
.REPLIES 



OBJECT * 
PROGRAM * 
************* 



Chart PX. Subroutines FSTOP, FPAUSE 
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***** 
*PY * 

* E3* 



IEFERR X 

*****B 3* ********* 



SAVE 
REGISTERS 



***************** 



*****C3********** 

* * 

* SELECT * 

* SYSTEM OUTPUT * 

* DEVICE * 

* * 
***************** 



*****D3 ********** 
♦FIOCS GAA1* 
*—*—*—*—*-*—*—*—* 

* INITIALIZE * 

* DATA * 

* SET * 
***************** 



*****E 3 ********** 
♦FIOCS CAA1* 
*—*—*—*—*—*-*-*—* 

* WRITE * 

* ERROR * 

* MESSAGE * 
***************** 



*****F3* ********* 



RESTORE 
REGISTERS 



***************** 



***** 

*QC * 

« E3* 

* * 



Chart PY. Subroutine IBFERR 
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Exponent Overflow 
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Initialize 
Data Sets 








H4 






Convert PSW 
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PSW 








K4 






Restore 


( 




Regi 


sters 


\ 



"\ Interrupted Program/ 
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» Al« 



*****B1 ********** 

* * 

* GET * 

* OPERATION * 

* TYPE * 

* * 
***************** 



•«***C2** ******** 



•INITIALIZATION * X* 



SET 

DATA SET 

QUALIFIERS 



***************** 



*****C3********** 

* * 

* GET DEVICE * 
X* ADDRESS AND * 

* SAVE * 

* * 
***************** 



*****D2** ******** 

* * 

* SET * 
X* INDICATORS *X 

* FOR READ * 

* * 



* DATA » 

SET 

REQUIRE 

A FORMAT 



***** 05 ********** 



***************** 



***** 

*QB * 

* Al* 

* * 



******E2** ********* 

PERFORM 

* I/O * 

(USING 

* FSD) * 

************* 



*QA * 
* D4* 
***** 



****#E 4* ********* 

* PICK UP * 

* RECORD * 

* LENGTH * 

* AND * 

* ADDRESS * 
***************** 



*****F2** ******** 

* PICK UP * 

* RECORD « 

* ACDRESS AND * 

* LENGTH * 

* * 
*****••***•***•** 



****#F4* ********* 



***************** 



*****G2*« ******** 



***************** 



****H2* ******** 

* * 

* RETURN * 

* * 
****•*•***•***« 



•***G4** ******* 

* * 

* RETURN * 

* * 
••**••*****•*** 



Chart QA. Subroutine FIOCS I/O Interface 
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Set Record 
Length 



Set Indicator 
for Write 



Must Be 
Control 



Perform I/O 
(Using FSD) 



Pick up 
Device 
Number 




Save Info 
just Punched 
and Device 
Parameters 



Get Channel 
Device Address 
and Save 



Get 

Control 

Type 



Set 

Control 

Command 



Set Indicator 
for Control 



Perform l/O 
(Using FSD) 



Restore 
Registers 




Pick up 
Data Set 
Qua1 i f iers 
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*QC * 
* B3* 



•**#*B 3* ********* 
» * 

* CLOSE ALL * 

* FORTRAN * 

* DATA SETS * 

* * 



*»**C3 ********* 

* FORTRAN * 

* SYSTEM * 

* DIRECTOR * 
««***«********* 



Chart QC. Subroutine IBEXIT 
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B3 



Set Return 
Address in FSD 
to 2540 Punch 
Recovery 
Routine 



Set UCBond 
CSW to 
Indicate 
Successful 
Punch 



SNTPIN AFA3 



FSD 

Interrupt 

Routine 



Punch Saved 
Info into First/ 
, Card 



• Chart QD. Subroutine IB2540 
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PART 5; SYSTEM MODIFICATION 



The Basic Programming Support FORTRAN 
system may be tailored to fit the program- 
ming requirements of a particular installa- 
tion. Any editing of the system is per- 
formed via three segments of the system: 
FORTRAN System Director (FSD) , Control Card 
routine , and editor. 

The FSD and Control Card routine are 
discussed in Part 2; the editor is to be 
discussed in this part of the manual. 
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EDITOR 



The editor, with its associated rou- 
tines , makes it possible for the user to 
revise one or more portions of the system 
tape by adding, replacing , or deleting 
features to meet the requirements of his 
installation. For reference purposes in 
the subsequent discussions of the various 
editor routines, a generalized layout of 
the system tape is shown in Figure 71. 



The editing process ends when the editor 
recognizes the end of data set on the input 
device or when it encounters a card which 
indicates that no more editing is to be 
done. The editor then gives control to the 
FORTRAN System Director. 



ROUTINES 



Chart 10, the Editor Overall Logic 
Diagram, indicates the entrance to and exit 
from the editor and is a guide to the 
overall functions of the editor. 



An editing process begins with the 
recognition of an EDIT control card by the 
CCLASS routine. The FORTRAN System Direc- 
tor loads the editor from the system tape 
and transfers control to the editor. 



Initialization for the editor is rep- 
resented in Chart MA. Classification of 
the current control card to be processed by 
the editor is represented in Chart MB. The 
resultant processing, depending upon the 
current control card, is represented in 
Charts MC through MP. 



START Routine: Chart MA 



The logic of the editor is developed on 
the basis of the modifications that can be 
incorporated in the various portions of the 
system tape. These modifications are indi- 
cated on editor control cards. The cards 
and the affected portions of the system 
tape are; 



Card 


System Tape Portion 


REPLACE 


Initial Program Load 


(REP) 


FORTRAN System Director 




Control Card Routine 




Compiler Phases 




Loader 




Library 


SET 


FSD - Device Assignment Table 




- Line Length 


AFTER 


Library Subprograms 


DELETE 


Library Subprograms 


EDR 


Editor 




IBCOM 


ASTERISK 


Signals end of processing 



The START (EDIT Control Card) routine 
forms a device assignment table for the new 
system tapes, places the object machine 
size in the communications area; rewinds 
the old and new system tapes; and makes the 
Initial Program Load available for process- 
ing. 



ENTRANCE: 



As revisions, additions, and deletions 
are made as a result of information on the 
control cards, the revised old system tape 
is copied onto the new system tape or 
tapes . 



The START routine receives con- 
trol from the FORTRAN System Director, 
after the CCLASS routine has recognized an 
EDIT control card and called the FORTRAN 
System Director to find and load the editor 
from the system tape. 

CONSIDERATIONS: The EDIT control card is 
read by the CCLASS routine and the informa- 
tion on the card is stored in the FORTRAN 
System Director buffer, where it is 
retrieved by the START routine. 

Unlike the standard control cards, the 
format of the EDIT card is relatively 
fixed. The first field is either blank or 
contains the specification of machine size 
in bytes. The data set reference number (s) 
are specified after the first field. 



(Initial (FORTRAN (Control 
j Program j System | Card 
I Load | Director | Routine 
| (IPL) | (FSD) | (CTL) 
,. J J. 



I I 

| Compi 1 er | Loader 

j Phases j 

I I (LDR) 

-± j 



t r t t~"- 

I T I I T | 

| M (Library j M j IBCOM 



I EDITOR 



I (D I 
J. L- 



| (1) | (IBC) 
_JL JL_ 



-,A- 



~T 1 

I T | 

I M | 

I I 

! (D I 
-J. ^ 



( (1) Tape Mark 

L 



Figure 71. System Tape Layout 
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If the size field is blank , the routine 
retains the old machine size in the com- 
munications area and starts to search for 
the data set reference numbers. When the 
first blank is encountered , the routine 
will finish any other processing and exit 
to read another card. 

OPERATION; Following initialization, the 
routine moves the information on the EDIT 
control card from the FORTRAN System Direc- 
tor buffer area to the editor buffer area 
and rewinds the old system tape. If the 
edit control card specifies a GO option, an 
indication of this edit and go condition is 
set for the ASTRSK routine. The START 
routine then lists the data set reference 
numbers in packed form, and tests the size 
field for a blank. 



that routine. Under normal conditions, 
control is returned to the RDACRD routine 
from the called routine so that the next 
card may be read in. 



OPERATION: Initially, the RDACRD routine 
reads a card and prints its contents. If 
an end of data set is encountered, the 
ASTRSK routine is called. 



If an end of data set is not encoun- 
tered, the routine determines if the card 
is an ASTERISK control card. If it is, the 
ASTRSK routine is called. If the card is 
not an ASTERISK control card, the RDACRD 
routine determines if the old system tape 
is at editor. 



If the size field is not blank, a check 
is made to determine that the specified 
size is a valid machine size. If the size 
is valid, it is placed in the communi- 
cations area. An error message is written 
for an invalid size specification, and the 
job is aborted. Also, if the size field is 
blank, the old machine size in the communi- 
cations area is not disturbed. 

The data set reference numbers are load- 
ed into the device assignment table, the 
tapes to be used for new systems tapes are 
rewound, and the Initial Program Load is 
read in from the old system tape. 

EXIT; After the Initial Program Load is 
read in, control is transferred to the 
RDACRD routine. 



ROUTINE CALLED; 



During execution , the 



START routine calls the RDOSYS routine. 



RDACRD Routine; Chart MB 



The RDACRD (Classification) routine 
reads a system maintenance control card, 
determines if it is a valid control card, 
and interprets the type of control card for 
transfer to the appropriate processing rou- 
tine. 

ENTRANCE ; The RDACRD routine receives con- 
trol initially from the START routine. 
However, control is also returned to it 
from every card processing routine which it 
calls, with the exception of the ASTRSK 
routine. 



If the tape is at editor, it is an 
indication that no more editing is 
required. Thus, the RDACRD routine seeks 
only an ASTERISK control card. Any other 
control card is considered invalid. If a 
card other than an ASTERISK control card is 
read, the routine prints an error message 
for an invalid control card and then 
returns to FSD as end of job. 

If the tape is not at editor, the 
routine checks for a loader control card. 
A loader control card, if present, is 
examined for a phase name* The presence of 
a phase name requires that one or more 
parts of the compiler be revised, and 
control is transferred to the T92CMP rou- 
tine. If no phase name exists, the loader 
control card is for revision of one or more 
library subroutines, and control is trans- 
ferred to the T92LB1 routine. 

A card other than a loader control card, 
causes the RDACRD routine to check for a 
SET control card, which is used for revi- 
sion of the FORTRAN System Director on the 
system tape. A SET control card causes the 
routine to transfer control to the SET 
routine. 

If the card is a SET control card and 
the FORTRAN System Director has not been 
copied from the old system tape, the rou- 
tine calls the COPYC routine. This routine 
uses FSD as the phase name, to allow the 
FORTRAN System Director to be revised on 
the system tape. Control is then trans- 
ferred from the RDACRD routine to the SET 
routine to accomplish the revisions. The 
RDACRD routine then returns to read another 
card. 



CONSIDERATIONS: The RDACRD routine has few 
functions of its own that directly affect 
the system. It merely determines, on the 
basis of the type of card it reads in and 
the setting of various switches, the proper 
processing routine and transfers control to 



If the card is not a SET control card, a 
check is made for a DELETE control card. A 
DELETE card causes transfer of control to 
the DELET routine. When control is 
returned to the RDACRD routine, another 
card is read. 
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If the card is not a DELETE control 
card, a check is made for an AFTER control 
card. If the card is an AFTER control 
card, control is transferred to the AFTER 
routine, and then returned to the RDACRD 
routine to read in another card. 

If the card is not an AFTER control 
card, the possible legitimate control cards 
(ASTERISK, LOADER, SET, DELETE, and AFTER) 
have been checked. An error message is, 
therefore, printed to indicate an invalid 
control card, and the routine returns to 
FSD to end the job. 

EXIT; Following the end of data set and/or 
processing of an ASTERISK control card, the 
ASTRSK routine calls the FORTRAN System 
Director to terminate the job. If no more 
editing is required, but the card read is 
not an ASTERISK control card, an error 
message is printed and the FORTRAN System 
Director is called to terminate the job. 

ROUTINES CALLED; During execution, the 
RDACRD routine references any one of the 
following processing routines; 

1. ASTERSK Control Card routine. 

2. T92CMP routine. 

3. T92LB1 routine. 

4. SET routine. 

5. DELET routine. 

6. AFTER routine. 



AFTER Routine; Chart MC 



If the subroutine name on the AFTER card 
is in the directory, the routine further 
checks whether this name is the last entry 
in the directory. If it was the last entry 
up to this time, the routine turns on a 
switch to indicate new subroutines are to 
be inserted and returns to the RDACRD 
routine to begin reading new subroutines 
from the card reader. If the subroutine 
name is in the directory, but not the 
latest entry, the routine name is out of 
sequence; an error message is given. A 
return to the RDACRD routine is made to 
read another card. The listed subroutines 
are inserted at the end of the library. 

If the AFTER name is not in the directo- 
ry, the routine transfers control to the 
COPYCL routine to copy the old system tape 
up to, but not including, the AFTER- named 
subroutine. 

Control returns to the AFTER routine, 
which checks to see if the entire library 
has been copied. If it has, the AFTER- 
named subroutine, which would have stopped 
the copying, was not found. The routine 
prints an error message to this effect and 
exits to the RDACRD routine to read another 
card. The listed subroutines are inserted 
at the end of the library. 

If the entire library has not been 
copied, the next subroutine on the old 
system tape (the AFTER-named subroutine) is 
copied onto the new system tape (s) . A 
switch is set to indicate new subroutines 
are to be inserted. Then, the AFTER 
routine exits to the RDACRD routine. 



The AFTER (AFTER Control Card) routine 
processes the insertion of library subrou- 
tines in the compiler library, following 
the subroutine specified on the AFTER con- 
trol card. The system tape is copied on a 
new system tape, up to and including the 
specified subroutine. Text cards, contain- 
ing the additional subroutine or subrou- 
tines are copied onto the new system tape. 
The RDACRD routine is then called. 



EXIT; 



The AFTER routine exits to the 



RDACRD routine. 

ROUTINE CALLED; During execution the AFTER 
routine calls the COPYCL routine. 



ASTRSK Routine: Chart MD 



ENTRANCE : The AFTER routine receives con- 
trol from the RDACRD routine when an AFTER 
control card is encountered. 

OPERATION: The AFTER routine assumes that 
the AFTER control card is followed by cards 
concerned with a library subroutine. Ini- 
tially, the routine examines the AFTER 
control card and lists the names of the 
subroutines to be inserted, which are on 
that card. The AFTER control card also 
contains the name of the library subroutine 
after which new subroutines are to be 
inserted. The routine checks this name 
against a directory of subroutine names 
which have already been copied into the new 
library. 



The ASTRSK (ASTERISK Control Card) rou- 
tine terminates editing of the system tape 
and copies the remainder of the old system 
tape onto the new system tape or tapes. 
Under certain conditions, the ASTRSK rou- 
tine merely makes new copies of the old 
system tape. 

ENTRANCE: The ASTRSK routine receives con- 
trol from the RDACRD routine if the RDACRD 
routine recognizes either an ASTERISK con- 
trol card or an end of data set. 



CONSIDERATIONS: 



The only data on the 
card is /*, which is 
An ASTERISK 



ASTERISK control 

necessary for recognition 

control card is not necessarily required 
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for copying "tapes. For example, if an EDIT 
control card has been recognized, and if 
the START routine encounters an end of data 
set, the old system tape is copied. Nor- 
mally, the conditions for copying a system 
tape are an EDIT control card, followed by 
an ASTERISK control card. If there is an 
EDIT control card and an end of data set, 
there is nothing to replace or delete on 
the system tape? therefore, the tapes are 
simply copied. 



COPYC Routine: Chart ME 



The COPYC (Copy Compiler) routine facil- 
itates revision of compiler phases by copy- 
ing a portion of the compiler from the old 
system tape onto new system tapes. 

ENTRANCE: The COPYC routine receives con- 
trol from the RDACRD, T92CMP, or COPYEC 
routine. 



OPERATION: The ASTRSK routine checks first OPERATION: 



whether the read position of the old system 
tape is at the editor or IBCOM. If it is 
not, the routine sets a fictitious library 
subroutine name so that copying is not 
halted by any recognizable subroutine name. 
The COPYCL routine is called to copy the 
old system tape, to the end of the library, 
onto the new system tapes. Following this, 
control returns to the ASTRSK routine, 
which writes end of data set on the new 
system tapes . 

If the read position of the old system 
tape is presently at the editor or IBCOM, 
the routine determines if IBCOM has already 
been copied onto the new system tapes. If 
it has not, it is copied. 

Next f the routine reads in the editor 

from old system tape and copies it onto the 

new system tapes. The routine then writes 
another end of data set. 

The ASTRSK routine then rewinds the old 
and new system tapes, prints an END OF EDIT 
message, and checks to see if the GO option 
is specified. If not, the FORTRAN System 
Director is called to terminate the job. 

When the GO option is specified, the 
routine reads in, from the new system tape, 
the new FORTRAN System Director, and over- 
lays the old FORTRAN System Director in 
main storage. Following this, the Control 
Card routine is read in. 

The ASTRSK routine revises the device 
assignment table to permit access to the 
new FORTRAN system tape. The routine then 
exits to the FORTRAN System Director. 



The COPYC routine obtains the 

name of the phase to be revised from the 
loader control card and determines if the 
phase name is valid. If not, an error 
message is printed and an end-of-job return 
is made to FSD. 

If the phase name is valid, the routine 
computes and stores the number of phases to 
be copied. The number, reduced by one each 
time a phase is copied, is checked for 
zero. At zero, an exit to the calling 
routine is made. If the count becomes 
minus, an error message is printed to 
indicate a phase name that is out of 
sequence. The routine then makes an end- 
of-job return to FSD. 

For each phase to be written on the new 
system tape, a message is printed to 
identify the phase just copied, and then 
the RDOSYS routine is called. 

EXIT: The conditions under which exit is 
made from the COPYC routine are: 

1 . When an invalid phase name is found on 
the loader control card, control is 
returned to the FSD. 

2. When the phase count is found to be 
less than zero, control is again 
returned to the FSD. 

3. When the phase count is found to be 
zero, indicating that all phases have 
been copied from the old to the new 
system tapes, control is returned to 
the calling routine. 



COPYCL Routine: Chart MF 



EXIT: Control is passed to the FORTRAN 
System Director under either of two condi- 
tions : 

1. If the GO option is not specified, the 
FORTRAN System Director is called to 
terminate the job . 

2. If the GO option is specified, the 
routine calls the FORTRAN System 
Director to return control to the 
CCLASS routine to read in a card. 



ROUTINE CALLED: 



During execution the 



The COPYCL (Copy Compiler and Library) 
routine copies the remaining records from 
the old system tape, up to the desired 
point in the library, onto the new system 



The COPYCL routine receives con- 



ASTRSK routine calls the COPYCL routine. 



tapes. 

ENTRANCE: 

trol from the T92CMP routine. 

OPERATION: The routine checks to see if 
the library is now being copied and/ or 
modified. If it is not, the routine calls 
the COPYEC routine. In either case, the 
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name of a specified library subroutine is 
used to halt copying at that routine. The 
routine then calls the COPYL routine. When 
the COPYL routine is finished, the COPYCL 
routine receives control and exits to the 
routine which initiated the call. 



EXIT: 



The COPYCL routine returns control 



to the T92CMP routine. 

ROUTINE CALLED; During execution the 
COPYCL routine calls the COPYEC and COPYL 
routines. 



COPYL Routine: Chart MG 



The COPYL (Copy Library) routine copies 
the library from the old system tape onto 
the new system tapes. Any subroutines 
specified for deletion on the delete list 
are not copied. 

ENTRANCE : The COPYL routine is called from 
either the COPYCL or AFTER routine. 

OPERATION: The COPYL routine initially 
determines whether or not the library has 
already been copied. If the library is 
already copied onto the new system tapes, 
the routine exits to the calling routine. 

If the library has not been completely 
copied, a record is read in from the old 
system tape. The routine checks to deter- 
mine if the entire library has now been 
read. If the record is the last one in the 
library, an indicator is set and the rou- 
tine exits to the calling routine. The 
routine checks the record to see if it is 
an ESD card, the first record of a subrou- 
tine. If it is not an ESD card, a subrou- 
tine is in the process of being copied and 
the card is written on the new system tape. 
This process continues until the last 
record of the library has been read or 
until an ESD card is read, indicating the 
start of another subroutine. 

If the entire library has not yet been 
read, the name on the ESD card, which is 
the name of the subroutine, is compared 
with the name on the fter card, which 
indicates the subroutine after which new 
subroutines are to be inserted in the 
library. If the names match , insertions 
are to be made here, and the routine exits 
to the calling routine. 

If the name on the ESD card is not the 
AFTER name, the name of this subroutine is 
checked against the list of subroutines to 
be deleted and not copied on the new system 
tapes. If the subroutine is to be deleted, 
the routine skips to the END card of the 
subroutine, prints a message to identify 



the deleted subroutine. The name of the 
next subroutine is then checked against a 
stored subroutine name, representing a sub- 
routine in the library before which a stop 
is to be made for revisions to the library. 
If the names match, a switch is set to 
indicate to other routines that a replace- 
ment deck is needed. The routine then 
exits to the calling routine. 

If an ESD card is found, but the subrou- 
tine is not to be deleted, the name of the 
subroutine is placed on the list or direc- 
tory of subroutines in the new library. 
The COPYL routine checks the subroutine 
name to determine whether or not a stop is 
to be made here for revisions to the 
library. If the names match, the routine 
exits to the calling routine. If not, the 
subroutine is copied on the new system 
tape. The routine returns to read another 
record. 

EXIT: Control passes from the COPYL rou- 
tine to the calling routine under any one 
of the following conditions: 

1 . A match exists between the name on the 
ESD card and the name on the AFTER 
card. 

2. The library has already been copied. 

3. The last record in the library is 
copied. 

4. A match between the ESD name and the 
stored stopping name indicates that a 
library subroutine is to be replaced. 



COPYEC Routine: Chart MH 



The COPYEC (Copy to End of Compiler) 
routine controls the copying of the old 
system tape onto the new system tape up to, 
but not including, the library. 



ENTRANCE: 
trol from: 



The COPYEC routine receives con- 



1. The COPYCL routine 

2. The T92LB1 routine 



OPERATION: The 
if the library is 
and/or modified, 
processed at this 
past the compiler 
and the routine 
tine. 



COPYEC routine determines 
currently being copied 
If the library is being 
time, the tape is already 
on the old system tape, 
exits to the calling rou- 



If the tape is not in the library 
portion of the old system tape, the loader 
name (LDR) is inserted as the phase name 
for terminating the compiler copying proc- 
ess. The reason for this is that, if 
nothing halts the process before the loader 
is reached on the tape, the compiler will 
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have been copied to the end* Control is 
then given to the COPYC routine to perform 
the copying. 

When the compiler is copied, control 
returns to the COPYEC routine, which writes 
the loader on the new system tapes and 
spaces over the end of data set indicator. 
End of data set is then written on the new 
system tape. The switch checked at the 
beginning of this routine to determine if 
the library is currently being copied 
and/or modified is turned on. That switch, 
being set on, indicates that, if the copy- 
ing process continued, the library would be 
copied next. The routine then exits to the 
calling routine. 



If no more subroutine names remain to be 
examined, the routine exits to the RDACRD 
routine to read another card. 

EXIT; Exit from the routine and passage of 
control to the RDACRD routine occurs in one 
of two ways: 

1 . A subroutine name on the DELETE con- 
trol card is found to be out of 
sequence. 

2. All DELETE table names are checked and 
none found in the directory. 



REDCRD Routine: Chart MK 



EXIT: 



The COPYEC routine exits to the 



calling routine under either of the follow- 
ing conditions: 

1. The library on the old system tape is 
currently being copied and/or modi- 
fied. 

2. The compiler and loader have been 
copied from the old system tape to the 
new system tape. 

ROUTINE CALLED: During execution the COPY- 
EC routine calls the COPYC routine. 



The REDCRD (Read New Phase) routine 
revises a phase of the compiler by reading 
in and processing REP and/or TXT cards to 
replace some or all of the information in 
the specified phase on the old system tape. 

ENTRANCE: Entrance to the REDCRD routine is 
from the T92CMP routine. If it is esta- 
blished that the editor or IBCOM is not to 
be modified or replaced, the compiler is 
copied up to the point of the phase to be 
revised. The REDCRD routine is then 
called. 



DELET Routine: Chart MJ 



The DELET (Delete) routine produces a 
list of library subroutines to be deleted 
from the library on the system tape. The 
routine also determines if the subroutine 
to be deleted from the library in the new 
version has already been copied on the new 
system tape. 

ENTRANCE : The DELET routine receives con- 
trol from the RDACRD routine when a DELETE 
control card is encountered. 

OPERATION: The DELET routine examines the 
DELETE control card and makes a list, or 
table, of the names of the subroutines to 
be deleted. The capacity of the DELETE 
table is limited. If the number of subrou- 
tines on the DELETE card exceeds the capac- 
ity of the table, the routine prints an 
error message that the DELETE table is full 
and exits to the calling routine. 

As each subroutine name is entered in 
the DELETE table, the routine checks to see 
if the name is in the directory of subrou- 
tines which have already been copied onto 
the new system tapes. When this occurs, an 
error message is printed that the subrou- 
tine name is out of sequence. The routine 
returns to the FSD to end the job. 



OPERATION: The REDCRD routine reads a card 
from the card reader. It then makes a 
check for end of data set in the card 
reader. An end of data set prior to the 
END card means that insufficient cards were 
supplied to the card reader and/or the END 
card was not furnished. An error message 
is printed and the FORTRAN System Director 
is called to abort editing. 

If no end of data set exists, the 
routine checks for an END card. The pre- 
sence of an END card means that all of the 
cards necessary to the revision of this 
phase have been read. The routine calcu- 
lates the length of the phase and exits to 
the calling routine. 

If the card read is not an END card, it 
is examined to determine whether or not it 
is a REP card. The presence of a REP card 
causes the routine to check to determine if 
the entire phase is to be replaced. 
Replacement of a whole phase implies that 
TXT cards follow the REP card with suffi- 
cient additional data for replacement of 
the entire phase. Another card is read and 
all of the above checks are made. If the 
entire phase is not to be replaced, the 
routine processes the REP card and goes 
back to read another card. 

Whenever a card is read by the routine, 
the checks for end of data set, END card, 
and REP card are followed by checks for RLD 
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and ESD cards. If an RLD or ESD card is 
found , the routine ignores it and goes back 
to read another card. If the card is still 
unidentified, a check is made for a TXT 
card. If the card is not a TXT card, the 
routine makes a final check for an EDR 
card. If the card is an EDR card, it is 
processed like a REP card and the routine 
then goes back to read another card. If 
the card is not an EDR card, the routine 
assumes that the card is an invalid control 
card. An error message is printed, and an 
exit is made to FSD to abort the edit. 

If the card is a TXT card, it is applied 
to revise the specified portion of the 
compiler phase. The routine then reads 
another card. TXT cards are read and 
applied in this fashion until there is an 
illegal end of data set (as noted above) , 
or until an END card is found 

EXIT; Under any one of three conditions, 
control passes from the REDCRD routine: 

1. An end of data set signal is on. An 
error message is written and the 
FORTRAN System Director is called to 
abort the edition. 

2. The card read is not a valid control 
card for this routine. An error mes- 
sage is written and FSD is called to 
abort the edit. 

3. An END card is encountered. The rou- 
tine exits to the calling routine. 



RDOSYS Routine: Chart ML 



The RDOSYS (Read Old System Tape) rou- 
tine reads a record from the old system 
tape, then calculates and stores the length 
of the record. If the phase just read is 
FSD, the machine size is changed to the 
current machine size. 

ENTRANCE : The RDOSYS routine receives con- 
trol from the RDACRD routine to read in the 
Initial Program Load. Control is also 
received from the AFTER routine when one or 
more library subroutines are to be read 
from the old system tape and copied on the 
new tapes. The routine is called in the 
COPYC routine when the compiler on the old 
system tape is copied on the new tapes, up 
to a specified phase or to the end of the 
compiler. The routine^ is also called by 
the ASTRSK routine when the Initial Program 
Load and the FORTRAN System Director are to 
be read from the old system tape. 

OPERATION: The RDOSYS routine sets a poin- 
ter at the name of the phase to be read. 
It then reads a record from the old system 
tape and a check is made for end of data 
set. When end of data set is detected. 



there is an exit from the routine to write 
an illegal end of data set message. 
Absence of the end of data set causes the 
length of the record to be computed and 
stored. If the phase read is FSD, the 
current machine size is moved from the 
communications area to the communications 
area in the FSD just read. This move is 
performed because the machine size may have 
been changed by the EDIT card. 

EXIT: In addition to an illegal end of 
data set, control is passed from the RDOSYS 
routine to the calling routine. 



T92CMP Routine: Chart MM 



The T92CMP (Compiler) routine checks all 
12-9-2 cards that are concerned with phase 
modification. The processing consists of 
replacing or modifying the specified phase 
and copying the old system tape onto the 
new system tapes as far as the specified 
phase. 

ENTRANCE: The T92CMP routine receives con- 
trol from the RDACRD routine, when any 
loader control card, containing a phase 
name is encountered. 

OPERATION: Initially the routine gets the 
phase name from the loader control card and 
stores it. It then determines if the 
editor or IBCOM is to be either modified or 
replaced. If the editor or IBCOM is not 
involved, the routine calls the COPYC rou- 
tine in order to copy the old system tape 
up to the phase to be modified. Control 
then returns to the T92CMP routine which 
branches to read in the new phase or 
modifications from the card reader. 

If the editor or IBCOM is to be modified 
or replaced, the routine checks to see if 
IBCOM has been copied onto the new system 
tape. If IBCOM has not been copied, the 
routine calls the COPYCL routine to copy 
the old system tape as far as IBCOM. 
Control returns to the T92CMP routine, 
which calls the RDOSYS routine to read 
IBCOM from the old system tape. 

If an IBCOM replacement is to occur, the 
routine passes control to the REDCRD rou- 
tine to read in replacement cards from the 
card reader. If there is no IBCOM replace- 
ment, the routine writes IBCOM on the new 
system tape (s) and reads in the editor. 
The routine then branches to read in 
replacement cards, so the editor can be 
modified. 

EXIT: The T92CMP routine passes control to 
the REDCRD routine, under any one of three 
conditions: 
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1. Some phase, other than the editor, is 
to be modified or replaced and the 
system tape has been copied up to the 
phase to be modified. 

2. IBCOM is to be modified or replaced* 

3. IBCOM has been copied and the editor 
has been read in from the old system 
tape for modification. 



ROUTINES 



CALLED ; During execution 



the 
and 



T92CMP routine calls the COPYC, COPYCL, 
RDOSYS routines. 



T92LB1 Routine: Chart MN 



The T92LB1 (Library) routine copies the 
compiler and library up to a specified 
library subroutine which is to be revised. 
The routine adds object decks from the card 
reader to the library. 

ENTRANCE : The T92LB1 routine receives con- 
f rom the RDACRD routine when a loader 
card without a phase name is 



trol 

control 

encountered. 



OPERATION: The T92LB1 routine checks a 
switch, which is turned on whenever an 
AFTER card is encountered, indicating that 
there are subroutines to be added to the 
new library. If the switch is off, no 
library subroutines are to be inserted and 
the routine calls the COPYEC routine. 



RDACRD routine to read the next card. The 
T92LB1 routine also exits to the T92LB2 
routine when a subroutine is to be revised. 



Editor T92LB2 Library Routine #2: Chart MO 

The T92LB2 (Library) routine replaces a 
library subroutine. 

ENTRANCE: The T92LB2 routine receives con- 
trol from the T92LB1 routine, after the 
COPYL routine has copied the library up to 
the subroutine specified for revision. 

OPERATION: The operation performed by this 
routine depends upon the last card read 
from the card reader. An ESD card indi- 
cates that an entire subroutine replacement 
exists in the card reader. Thus, the 
subroutine, on the old system tape, that 
corresponds to the subroutine replacement 
in the card reader is bypassed. If, howev- 
er , that same subroutine on the old system 
tape has already been copied onto the new 
system tape and cannot be bypassed, an Out 
of Sequence message is printed. In either 
case, the subroutine replacement in the 
card reader is copied onto the new system 
tapes. 

EXIT: The T92LB2 routine passes control to 
the RDACRD routine to read the next card. 



When library subroutines are to be 
inserted, or at the end of the COPYEC 
routine, T92LB1 routine searches the direc- 
tory of copied subroutines to see if the 
directory contains the name of the subrou- 
tine to be revised. If it does, the 
revision cards for this subroutine are out 



ROUTINE CALLED: 



During 



execution 



the 



of sequence, causing 
message to be printed, 
exits to the RDACRD 
next card. 



an Out of Sequence 

The routine then 

routine to read the 



If the name of the subroutine to be 
revised is not in the directory and if the 
switch, indicating that subroutines are to 
be inserted, is still on, the routine 
copies, from the old to the new system 
tape, the subroutine after which insertions 
are to be made. It then reads a new 
subroutine from the card reader and adds it 
to the library on the new system tape. 
Subroutines are read from the card reader 
and copied on tape until the list of 
subroutine names is exhausted. At that 
time, the name of the subroutine after 
which insertions are to be made is blanked 
out. 

EXIT: When the revision cards for a speci- 
fied library subroutine are out of 
sequence, the T92LB1 routine exits to the 



T92LB2 routine calls the COPYL routine. 



SET Routine: Chart MP 



The S1EH (Editor SET Control Card) rou- 
tine uses information supplied on the edi- 
tor SET control card to modify the device 
assignment table and line length in the 
FORTRAN System Director on the new system 
tape. 

ENTRANCE: The SET routine receives control 
from the RDACRD routine when an editor SET 
control card is encountered. 



CONSIDERATIONS: 



The information on the 



editor SET control card specifies: 



of the 



1 . The data set reference number 
device specified. 

2. The physical address of the device. 

3. The designation of the actual type of 
input/output device. 

4. Where applicable, certain charac- 
teristics of the tape and data set to 
be used. 

5. Length of print line if this is being 
changed. 
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OPERATION; A check is made to determine if 
the FSD has already been copied from the 
old system tape to the new system tape. If 
the FSD has been copied, it is too late to 
revise it for this job* An error message 
is written , and a return is made to the 
RDACRD routine to read another card. The 
SET routine calls the COPYC routine , if the 
FSD has not been copied from the old system 
tape. 

When control is returned to the SET 
routine , it examines each field on the SET 
control card to determine if a line length 
change or a data set change is involved. A 
line length change causes the new line 
length to be inserted in the communications 
area of the new system tape (s) . Data set 



changes are checked for validity, and the 
physical address and device type are stored 
in the device assignment table. The device 
type code is stored in the DSCB for the 
associated data set. If the device is a 
7-track tape device, the mode set code to 
be used with this device is stored in the 
DSCB. 

When a blank field is encountered, con- 
trol is returned to the RDACRD routine* An 
invalid field causes an error message to be 
printed and the job to be terminated. 



EXIT; The SET routine exits to the RDACRD 
routine, upon encountering the first blank 
field. 
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***** 
*10 * 
* B2* 



****** B2 *********** 

* REWINC * 

OLD SYSTEM 

* TAPE * 

************* 



*****C2** ******** 

* * 
*ACCESS DATA SET* 
♦REFERENCE NOS. * 

* CF NEW SYSTEM * 

* TAPES * 
***************** 



*****D2** ******** 

* * 

* FRCCESS EDIT * 
*CCNTL CARD READ* 

* EY CCLASS * 

* ROUTINE * 
***************** 



******E2** ********* 

* REWIND * 

NEW SYSTEM 

* TAPES * 

************* 



******F2** ********* 

* READ * 

A X. 

* CARD * 

************* 



**** 
if * 
* F2 * 



**** 

* * 

* G4 * 

* * 
**** 



* IS * 

CARD READER 
*• EMPTY •* 



******G3 *********** 

*COPY OLD SYSTEM* 

.X TAPE TO END AND .. 

* REWIND ALL * 

TAPES 

************* 



****G4** ******* 

* CALL FSD * 
.X* TO TERMINATE * 

* THE JOB * 
*************** 



**** 

* * * 

* G4 *X. 

* * 
**** 



.* ASTERISK 
CONTROL 
*. CARD 



*****H 3 ********** 

* * 

* PROCESS * 
•X* ASTERISK *. 

* CONTROL CARD * 

* * 
***************** 



H4 * 
.* 
.* EDIT 
•X*. AND 
*• GO 



***** J2** ******** 

* * 

* REVISE SYSTEM * 
*TAPE ACCORDING *.. 
*TC CONTENTS OF * 

* CONTROL CARD * 
***************** 



**** 

* * 
.X* F2 * 

* * 
**** 



**** j 4********* 

* CALL, FSD TO * 

* GET CONTROL * 

* CARD ROUTINE * 
*************** 



Chart 10- Editor Overall Logic Diagram 
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*****FROM FORTRAN 
*MA *SYSTEM DIRECTOR 
* B3* 



******B3*** ******** 

* REWIND * 

OLD SYSTEM 

* TAPE * 

************* 



NO ^COMPILATION*. 
...*.TO FOLLOW THE.* 
*. EDITION .* 



*****D 3*** ******* 
*SET INDICATION * 

* FOR ASTERISK * 
*RTN THAT SOURCE* 

* PROGRAM IS TO * 

* BE COMPILED * 
***************** 



*****£ 3********** 

* LIST DATA SET * 

* REFERENCE * 

* NUMBERS OF * 

* NEW SYSTEM * 

* TAPES * 
***************** 



*****F 4**** ****** 



* IS 

SIZE FIELD 
*. BLANK 



* USE OLD * 
.X*MACHINE SIZE IN*. 

♦COMMUNICATIONS * 

* AREA * 
***************** 



G3 *. 
.* IS *. 
.* SPECIFIED *. YES 
*MACHINE SIZE A *.... 
*. NUMBER .* 
* • •* 
* • •* 
* NO 



*****G4**** ****** 

* USE NEW * 

* MACHINE SIZE * 
• X* PLACED IN * 

♦COMMUNICATIONS * 

* AREA * 
***************** 



******H3**** ******* 

PRINT ERROR 

* MESSAGE- * 

INVALID CONTROL 

* CARD * 

************* 



****J3********* 

* END-OF-JOB * 

* RETURN TO * 

* FSD * 
*************** 



******H4* ********** 

* REWIND NEW * 

SYSTEM 

* TAPE(S) * 

************* 



*****J4** ******** 
*RDOSYS MLB3* 
*-*-*-*-*-*-*-*-* 

* READ OLD * 

* SYSTEM TAPE- * 

* IPL RECORD * 
***************** 



X 
***** 
*MB * 
* A2* 
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RDACRD 


X 








***** 


*A2***« 




**** 






* 




* 


* 


READ A 


* 


A2 


*. 


. ..X 


CARD 



************ 



.* HAVE *. YES 
*ALL CARDS BEEN *.... 
*. READ .* 



*****B3********** 

* * 

* INDICATE * 
.X*THAT ALL CARDS * 

* ARE READ * 

* * 
***************** 



CARD AN 
ASTERISK 
. CONTROL 
*.CARD .* 



* OLD * 

SYSTEM TAPE 
*.AT EDITOR.* 



.* CARD A *. 
*LCADER CONTROL 
*. CARD .* 



* CARD A * 

SET CONTROL 
*. CARD .* 



* 


SET 




* 


CARD 




* 


ROUTINE 




**************** 




, **** 




• * 






..X* 


A2 










**** 



.* CARD A *. 
*DELETE CONTROL 
*. CARD .* 



.* CARD AN *. YES 
•AFTER CONTROL.*.... 
*. CARD .* 



*****D4*********** 
PRINT ERROR 

* MESSAGE- * 
INVALID CONTROL 
* CARD * 

************* 



***E4********* 
END-OF-JOB * 

RETURN TO * 

FSD * 

************** 



X* DELETE * 

* CARD * 

* ROUTINE * 
***************** 



AFTER 

CARD 

ROUTINE 

************* 



**** 

* * 

* A2 * 



*****G l ********** 
WRITE ERROR 

* MESSAGE- * 

INVALID CONTROL 
* CARD * 



.* DOES * 

•CARD CONTAIN 
*PHASE NAME * 



12-9-2 

COMPILER 

ROUTINE 

************* 



***H 1 **** *** 

END-OF-JOB 

RETURN TO 

FSD 



*************** 



Chart MB. RDACRD Routine 
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***** 
*MC * 
* E3* 



AFTER X 

*****B3********** 

* LIST FROM * 

* AFTER CARD * 

* NAMES OF * 
♦SUBROUTINES TO * 

* BE INSERTED * 
***************** 



**** 
» * 

* C4 * 

* * 
**** 



*****C2 ********** 

* COPYCL * 
*_*_»_*_*_#_#_*_* 

* COPY OLD TAPE *X. 
*UP TO, BUT NOT * 
♦INCLUDING NAMEC* 
***************** 



C3 *. 

• *IS NAME*. 

NO •* IN AFTER *. YES 

...*.CARD NAME FLD.*.... 

*IN DIRECTRY* 



C4 *. 

• *IS AFTR*. 

.* CARD NAME *. 

•X*.THE LAST NAME. 

*IN DIRECTRY* 

*. .* 

*. .* 

* NO 



*****C5 ********** 
*TURN ON SWITCH * 

* INDICATING * 
. X* THERE ARE NEW * 

* SUBRTNS TO BE * 
*ADDED TO LIBRY.* 
***************** 



D2 *• 

.* HAS *. 

.*, ENTIRE * 

*.LIERARY BEEN 

*. COPIED .* 

*. .* 

*. .* 

* NO 



****** E2 *********** 

CCPY SUBROUTINE 

* (UP TO END * 

CARD) ON NEW 

* SYSTEM * 

TAPE 

************* 



******D 3*** ******** 

PRINT ERROR 

* MESSAGE- * 

•X SUBROUTINE NAME 

* NOT FOUND * 

************* 



X 

***** 

*MB * 

* A2* 

* * 



******D4 *********** 

PRINT ERROR 

* MESSAGE- * 

OUT OF 

* SEQUENCE * 

************* 



• X.« 

X 

***** 

*MB * 

* A2* 

* * 



X 
**** 



* C4 * 

it * 
**** 
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***** 
*MD * 
* B2* 



•*SYSTEM TAPE*, 

•AT EDITOR OR • 

*• IBCOM .* 



.* HAS 
•X*. IBCOM BEEN 
*. COPIED . 



*****C2********** 
*SET FICTITIOUS * 
♦LIBRARY NAME TO* 
♦PERMIT COPYING * 

* TO END OF * 

* LIBRARY * 
***************** 



*****D2 ********** 
*CCPYCL MFE3* 
*-*-*-*-*-*-*-*-* 
*CCPY OLD SYSTEM* 

* TAPE TO END * 

* OF LIBRARY * 
***************** 



******E2** ********* 

WRITE END OF 

* DATA SET ON * 

NEW SYSTEM 

* TAPE(S) * 

************* 



******F2* ********** 



READ IN 
OLD IBCOM 



************* 



******C3*********** 

COPY IBCOM 

* ON NEW * 

SYSTEM 

* TAPE * 

************* 



******D3** ********* 

* READ IN * 

OLD 

* EDITOR * 

************* 



******E 3*"** ******** 

COPY EDITOR 

* ONTO NEW * 

SYSTEM X. 
* TAPE(S) * 

************* 



******F 3* ********** 

WRITE END 

* OF DATA SET * 

ON NEW SYSTEM 

* TAPE(S) * 

************* 



X 
**** 



******B4**** ******* 

REWIND OLD 

* AND NEW * 

SYSTEM 

* TAPES * 

************* 



******C4* ********** 

PRINT 

* MESSAGE- * 

END OF 

* EDIT * 

************* 



GO *. NO 
OPTION .*... 



****D5 ********* 

* CALL FSD TO * 
•X* TERMINATE JOB * 

* * 
*************** 



******E4 *********** 

READ IN NEW 

* FSD FROM * 

NEW TAPE- 

* OVERLAY * 

OLD FSD 

************* 



*****F4********** 

* REVISE DEVICE * 

* ASSIGNMENT * 
♦TABLE TO ACCESS* 

* NEW FORTRAN * 

* SYSTEM TAPE * 
***************** 



****G4** ******* 

* CALL FSD TO * 
*READ IN CONTROL* 

* CARD ROUTINE * 
*************** 
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***** 
*ME * 
* B3* 



COPYC X 

*****B 3 ********** 

* GET PHASE * 

* NAME FROM * 
♦LOADER CONTROL * 

* CARD * 

* * 
***************** 



C3 *. 
.* IS *. 
.* NAME A *. NO 
*. VALID PHASE .*... 
*. NAME .* 



******C4*********** 

WRITE ERROR 

* MESSAGE- * 

•X INVALID PHASE 

* NAME * 

************* 



*****0 3 ********** 

* * 
♦COMPUTE NUMBER * 

* OF PHASES TO * 

* BE COPIED * 

* * 
***************** 

**** 

* * 

* E3 *. 

* * 
**** 



****D4** ******* 

* END-OF-JOB * 

* RETURN * 

* TO FSD * 
*************** 



E3 *. 
.* ARE *• 

NO .*THERE MORE *. 
...♦.PHASES TO BE • 
*. COPIED .* 
*. .* 



* IS * 

PHASE COUNT 

*. MINUS .* 

*. .* 

*. •* 

* NO 



****G2** ******* 

* * 

* RETURN * 

* * 
*************** 



******F3*********** 

WRITE ERROR 

* MESSAGE- * 

•X PHASE OUT OF 

* SEQUENCE * 

************* 



****G3* ******** 

* END-OF-JOB * 

* RETURN * 

* TO FSD * 
*************** 



******F4**** ******* 

WRITE OUT 

* CURRENT PHASE * 

ON NEW SYSTEM 

* TAPE * 

************* 



******G4*********** 

READ A 

* PHASE FROM * 

OLD SYSTEM 

* TAPE * 

************* 



*****H4********** 

* * 

* REDUCE COUNT * 

* OF PHASES TO * 

* BE READ BY 1 * 

* * 
***************** 



X 
**** 
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***** 
*MF * 
* B3* 



PYCL .X. 

B3 *. 
•* IS *. 
.* LIBRARY *. YES 
♦BEING COPIED OR*.,.. 
♦.MODIFIED .* 



*****C3*** ******* 
♦COPYEC MHB3* 
*-*-*-*-*-*-*-*-* 

* COPY TO END * 

* OF COMPILER * 

* ROUTINE * 
***************** 



*****D3 ********** 
*COPYL MGA3* 



*-*-*-*-*- 



-*-*-* 



* COPY *X 

* LIBRARY * 

* ROUTINE * 
***************** 



X 
***** 
*MM * 
* B3* 



Chart MF. COPYCL Routine 



Editor 



ii€9 



***** 
*MG * 
* A3* 



**** 

* * 

* A4 * 



.* HAS * 
.LIBRARY BEEN 
*. COPIED .* 



****A4********* 

* * 

* RETURN * 

*************** 



* E3 *.X. 



**** 



******B3*********** 

READ A RECORD 

* (CARD IMAGE) * 

FROM OLD SYSTEM 

* TAPE * 

************* 



* C3 *.X. 



****C2********** 

SET INDICATOR * 

THAT LIERARY * 

HAS BEEN * 

PROCESSED * 

**************** 



YES .* HAS *. 
....*ALL OF LIBRARY 
*.BEEN READ.* 



..X* A4 
**** 

******D2** ******* 
VkRITE RECORD 
* ON NEW 

SYSTEM 
* TAPE * 

************* 



* IS RECORD * 

AN ESD CARD 
*. IMAGE .* 



*****E3********** 

* PUT NAME IN * 

* DIRECTORY OF * 
*NEW SYSTEM TAPE* 

* SUBROUTINE * 

* NAMES * 



F3 *. 

.* DOES *. 

.*NAME ON ESD*. YES 

*CARD MATCH NAME*.... 

*.ON AFTER .* 

*.CARD .* 



* NO 



.♦ASSOCIATED *. 

♦.SUBROUTINE TO. 

*BE DELETED * 



.* CURRENT *. 

•SUBROUTINE TO. 

*BE REVISED * 



. X* A4 * 



*****H3********** 

* DELETE * 

* NAME FROM * 

* DIRECTORY * 



♦WRITE RECORD ON* 

NEW SYSTEM 

* TAPE * 



*****J2******** 

* SKIP TO END 

* CARD OF 

* CURRENT 

* SUBROUTINE 



X 
******K3********* 

PRINT MESSAGE 
* TO IDENTIFY 
DELETED 
* SUBROUTINE * 

************* 



.* ARE * 

LIBRARY 
EVISIONS T 
.OCCUR NOW 



*****K5 ********* 

* SET 
♦INDICATOR THAT 

X* A REPLACEMENT 

* DECK IS 
NEEDED 



**** 



f***** 
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.* LIBRARY *. YES 
*BEING COPIED OR*.... 
*. MODIFIED .* 



RETURN 
*********** 



* SET LOADER- * 

* NAME (LDR) TO * 

* STOP THE COM- * 

* PILER COPYING * 

* PROCESS * 
***************** 



****D3********* 

COPY COMPILER 

PHASE ONTO 

NEW SYSTEM 

* TAPE * 



**** 



******* 



* HAS * 

LOADER BEEN 
*. REACHED .* 



***F3******** 

WRITE 

LOADER ON 

NEW SYSTEM 

TAPE 



******** 



* SPACE OVER * 

* TAPE MARK ON * 
*OLO SYSTEM TAPE* 



**H3********* 
WRITE 
TAPE MARK 
ON NEW 
SYSTEM * 
TAPEt S ) 
************ 



****j 3*** ******* 

SET INDICATOR * 

THAT LIBRARY * 

IS NOW BEING * 

COPIED * 

* 

**************** 



****K3********* 

* * 

* RETURN * 

* * 
*************** 
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***** 
*MJ * 
* E3* 



C3 *. 


******C4** ********* 




• * * • 


PRINT ERROR 




.* IS *. YES 


* MESSAGE- * 




X*. DELETE TABLE .* 


. ..X DELETE TABLE . .. 




*. FULL .* 


* FULL * 


X 


*. .* 




***** 


*• .* 


************* 


*MB * 


* NO 




* A2* 



*****D 3 ********** 

* OBTAIN NAME * 
*OF NEXT SUBRTN * 

* FROM DELETE * 

* CARD AND * 

* PUT IN LIST * 
***************** 



• X. 

E3 *. 

.* HAS *. 

•*SUBR TO BE *. YES 

*DELETED ALREADY*.... 

♦BEEN COPIED* 

*. .* 



******E4 *********** 

PRINT ERROR 

* MESSAGE- * 

. X SUBR OUT OF 

* SEQUENCE * 

************* 



****E5 ********* 

* END-OF-JOB * 
.X* RETURN TO * 

* FSD * 
*************** 



* NO 



F3 *. 

.* IS *. 

YES .* THERE *. NO 

...♦ANOTHER SUBRTN * 

*.ON DELETE.* X 

*.CARD .* ***** 

*. .* *MB * 

* * A2* 

* * 
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***** 
*MK * 
* B3* 



*****B3********** 

* READ * 

A 

* CARD . * 

************* 



*****C4* ********** 

WRITE ERROR 

* MESSAGE- * 

ILLEGAL END 

* OF DATA * 

SET 

************* 



*****D2 ********** 

* * 

* CALCULATE * 

* LENGTH OF *X 

* PHASE * 

***************** 



**** 

MB * 
A2* 



****D4********* 
EXIT TO FSD * 
TO ABORT * 
EDITING * 
*************** 



* ENTIRE * 

PHASE TO BE 
♦.REPLACED .* 



E5 * 
**** 



*****£5 ********** 



PROCESS 

REP 

CARD 

************ 



.* IS CARD *. 

.AN ESD OR RLD. 

*. CARD .* 



*****G2 ********** 

* * 

* PROCESS * 

* TXT *X 

* CARD * 

***************** 



******J3********** 

WRITE ERROR 

* MESSAGE- * 

INVALID CONTROL 

* CARD * 

************* 



****K3********* 

* EXIT TO * 

* FSD TO ABORT * 

* EDITION * 
*************** 
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***** 
*ML * 
* B3* 



RDOSYS X 

*****B3**«* ****** 

* SET POINTER * 

* AT NAME OF * 

* PHASE TO BE * 

* READ * 

* * 
***************** 



******C3*********** 

READ A 

* RECORD FROM * 

OLD SYSTEM 

* TAPE * 

************* 



D3 *• 

* * . 

END *. YES 
OF DATA .*.... 
SET .* 
*. .* 
*. .* 



******D4**** ******* 
WRITE ERROR 
* MESSAGE- * 
.X ILLEGAL END 

* OF DATA SET * 

************* 



*****E3**** ****** 

* * 

* COMPUTE AND * 

* STORE LENGTH * 

* OF RECORD * 

* * 
***************** 



*****F 3*** ******* 

* * 

* SET MACHINE * 

* SIZE. IF THE * 

* PHASE IS FSD * 

* * 
***************** 



****G3********* 

* * 

* RETURN * 

* * 
*************** 



****E4** ******* 

* EXIT TO FSD * 

* TO ABORT * 

* EDITION * 
*************** 
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***** 
*MM * 

* B3* 



*****B 3*** ******* 

* GET PHASE * 
♦NAME FROM CARD * 

* AND SAVE * 

* * 
***************** 



C3 *. 


C4 *. 


•*EDITOR *. 


# * *. **** 


• *OR IBCOM TO*. YES 


.* HAS *. YES * 


*BE MODIFIED OR * 


..X*. IBCOM BEEN .*....X* F4 


♦.REPLACED .* 


*. COPIED .* * 


*. .* 


*. .* **** 



*****D3 ********** 
*COPYC MFB3* 
■a—*—*—*—*—*—*—*—* 

* COPY SYS TAPE * 
*UP TO PHASE TO * 

* BE MODIFIED * 
***************** 



X 
***** 
*MK * 
* B3* 



*****D4 ********** 
*COPYCL MFB3* 
*_*_*_*_*_#_*_*_* 

* COPY SYSTEM * 

* TAPE UP TO * 

* IBCOM * 
***************** 



*****E4**** ****** 
*RDOSYS MLB3* 
#_#_#_*-*-*-*-*-* 

* READ RECORD * 

* FROM OLD * 

* SYSTEM TAPE * 
***************** 



**** 
* 
F4 *.. 
* 
**** 


• X. 

F4 *. 

.* IS *. 

.* THIS AN *.YES 

••X*IBCOM REPLACE— *••• 




*. MENT .* 
*. .* 


X 
***** 




*• •* 
* NO 


*MK * 
* B3* 



****** G 4** ********* 

WRITE IBCOM 

* ON NEW * 

SYSTEM 

* TAPE(S) * 

************* 



*****H4**** ****** 
*RDOSYS MLB3* 
*—*—*—*—*—*—*—*—* 

* READ IN * 

* EDITOR * 

* * 
***************** 



***** 
*MK * 
* B3* 
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***** 
*MN * 
* B3* 



• X. 
B3 *. 
.* ARE *. 
.* THERE *• NO 
•LIBRARY SUBRS.*... 
*.TO BE IN-.* 
*SERTED * 
*• .* 
* YES 



*****B 4* ********* 
*COPYEC MHB3* 

. X* COPY TO END * 

* OF COMPILER * 

* ROUTINE * 
***************** 



****** C2** ********* 

PRINT ERROR 

* MESSAGE- * 

SUBR OUT OF X. 

* SEQUENCE * 

************* 



X 
***** 
*MB * 
* A2* 



C3 *. 
• *IS NAME*. 
YES .*OF SUBR TO * 
....*BE REVISED AL- 
*. READY IN .* 
*DIRCTRY* 
*. .* 
* NO 



.* WAS *. NO 
♦THERE AN AFTER *... 
*. CARD .* 



******D4*********** 
COPY LIBRARY 
* TO PREVIOUSLY * 
•X SPECIFIED 

* SUBROUTINE * 

************* 



*****GO TO 
*MO *PROCESS 
* B3*ESD CARD 



******E2** ********* 

READ SUBR TO 

*EE INSERTED FRM* 

•X CARD READER* X. 

* COPY ON NEW * 

SYS TAPE 

************* 



• X. 
F2 *. 

.* IS *. 

NO .* LIST OF * 

...*.SUBR»S TO BE 

♦.INSERTED .* 

*. EMPTY.* 

*. .* 



******E 3 *********** 

COPY SUBR NAMED 

* ON AFTER CARD * 

FROM OLD TO 

*NEW SYS TAPE * 

************* 



*****F 3**** ****** 

* BLANK OUT * 
*SUBR NAME THAT * 

•X* WAS ON AFTER *• 

* CARD * 



***************** 



*****P4**«* ****** 

* SET INDICATOR * 

* THAT THERE IS * 
.X* NO LONGER AN *. 

* AFTER CARD TO * 

* BE PROCESSED * 
***************** 



X 

***** 

*MB * 

* A2* 

* * 
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***** 

*M0 * 

* B3* 

* * 



B3 *. 



ESD CARD 



******B4**** ******* 

PRINT ERROR 

* MESSAGE- * 

•X INVALID •• 

* CONTROL * 

CARD 

************* 



****B5********* 

* EXIT TO FSD * 
•X* TO ABORT * 

* EDITION * 
*************** 



• X. 

C3 *. 

.* HAS *. 

.* ALL OF * 

*. LIBRARY BEEN 

*. WRITTEN .* 



****** C4** ********* 
PRINT ERROR 
* MESSAGE- * 
•X SUBROUTINE 

* NOT IN * 

LIBRARY 

************* 



******D3* ********** 

SPACE OVER 

* COPY OF * 

SUBROUTINE ON 

* OLD SYS- * 

TEM TAPE 

************* 



******E3**** ******* 

WRITE THE NEW 

* SUBROUTINE * 

ON NEW 

* SYSTEM * 

TAPE(S) 

************* 



X 
***** 

*MB * 

* A2* 

* * 
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.* HAS *. 
.* FORTRAN *. YES 
.SYSTEM DIREC-.*.... 
*.TOR BEEN .* 
♦COPIED * 
*• • * 
* NO 



******B4** ********* 

PRINT ERROR 

* MESSAGE- * 

. X FSD ALREADY 

* COPIED * 

************* 



*-*-*-*-*-*-*-*-* 

* COPY * 

* COMPILER * 

* TO FSD * 
***************** 



* D3 *.X. 



LINE 
LENGTH 
CHANGE 



*****D4********** 

* * 

* CHANGE LINE * 
.X* LENGTH ON NEW * 

* SYSTEM TAPE * 

* * 
***************** 



* VALID * 
LOGICAL 
DEVICE 

NUMBER 



**** 

* * 

* K3 * 

* * 

**** 



*****F 3*** ******* 
*INSERT ADDRESS * 

* OF DEVICE * 

* IN DEVICE * 

* ASSIGNMENT * 

* TABLE * 
***************** 



VALID 

DEVICE 

TYPE 



**** 

X 
****** G5* ******* 
PRINT ERROR 
* MESSAGE- 
.X INVALID 
* CHARACTER 

************* 



VALID *. NO 
MODE .*... 
SET .* 



*****H4********** 

* * 

* STORE * 

* DEVICE CODE * 

* INDSCB * 

* * 
***************** 



****H5 ********* 

* FSD TO 

* ABORT 

* EDIT 
*************** 



**** 

* * 

* G5 * 

* * 
**** 



*****J3********** 

* * 
*STORE MODE SET * 
*AND DEVICE CODE* 

* IN DSCB * 

* * 
***************** 

**** . 

* * • 

* K3 *.X. 



*****K2** ******** 

* STEP * 

* POINTER TO *X 

* NEXT ITEM * 

* * 
***************** 



END *. YES 




CARD .* 

* 


X 
***** 
*MB * 
* A2* 



* D3 * 

* * 
**** 
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APPENDIX A: ANALYSIS AIDS 



MESSAGES 



The messages produced by the FORTRAN 
system are explained in the IBM System/360 
Basic Programming Support Programmer's 
Guide. Each message is identified by an 
associated number. 



Table 3 associates a message number with 
the particular routine/subroutine in which 
the corresponding message is generated. 



Table 3. Error and Warning Messages 



Message Number 
029 



030 



031 



Phase 



10 



10 



10 



Subroutine or Routine 



DIMSUB 



COMMON, EQUIVALENCE 



COMMON , EQUIVALENCE 



032 



10 



LITCON 



-H 



033W 



10 



GETWD 



034 



10 



FUNCTION/SUBRTN 



-I 

I 10 | 



I- 

f 



035 
036 
037 



038 



039 



041 



043 



044 



045 



046 
047 



10 
10 
10 



FUNCTION/SUBRTN 
ARITH 



CLASSIFICATION, ARITH, ASF, SUBIF 



10 



INTEGER/REAL/DOUBLE, EXTERNAL, COMMON, EQUIVALENCE, 
DIMENSION 



10 



SYMTLU 



-H 



10 



ASF, EXTERNAL, DIMENSION 



10 



INTEGER/REAL/DOUBLE, GOTO 



12 



ALOC 



10 



LITCON 



10 



LITCON 
LITCON 



10 
10 



CLASSIFICATION, DIMENSION 






-H 



048 



049 



050 



051W 



052 



10 



DIMSUB 



10 



10 



DIMENSION, DIM90 
EQUIVALENCE 



^ 



10 



EQUIVALENCE, DIMENSION 



10 



SUBS, EQUIVALENCE 
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Table 3. Error and Warning Messages (continued) 



r ■ """ 

Message Number 


"T 

- i -, nn 


Phase 


-X- 


_ 1 

Subroutine or Routine | 





053 
054 


-J- — 


10 
10 


— + . 

X- 


SUBS | 


ASF | 




055 


T 
-X 


10 


T 
X- 


FUNCTION/SUBRTN | 





056 
057 


T 

-+— 
L 


10 

10 


t 

— +- 

X- 


GOTO | 


READ/WRITE | 




058 


T 

-+— 
-+— 

I 


10 
10 
10 


T 

— + . 
— + . 

X- 


READ/WRITE | 




060 
061W 


EQUIVALENCE | 




END MARK CHECK | 




063 


t 
I 


10 


T 

X- 


EQUIVALENCE | 




064 


T 
I 


10 


T 
X- 


LABTLU r SYMTLU | 





065W 
066 


T 

-+— 


10 
10 


T" 

— +- 

X- 


CLASSIFICATION^ LABLU, PAKNUM | 


DO | 




068 


_X 


10 


T 
X- 


LITCON | 





069 
070 


t 

-+— 


10 
10 


T 

— + . 

X- 


ASF | 


FUNCTION/SUBRTN | 




071 


T 


10 


T 

_ _ , J. „ 


CALL | 




072 


t 
-X 


10 


T 
X- 


ARITH | 




073 


-X 


10 


T 
X- 


PUTX | 




074 


T 
L 


10 


T 
X- 


COMMON | 





075 


T 
-X 


14 


t 
X- 


FORMAT, LINECK | 


076 


t 

_x 


14 


T 
X- 


READ/WRITE, FORMAT , RPAREN | 




077 


T 

x 


10 


t 
X- 


ASF, READ/WRITE, END MARK CHECK, DO, SUBS, EQUIVALENCE , | 
FUNCTION/SUBRTN, DIMSUB, DIMENSION, SKPBLK | 






t 

x 


14 


T 
X- 


READ/WRITE, DO, FILLEG, SKPBLK | 




078 


T 

x 


14 


T 
X- 


CKENDO | 




079 


T 

x 


10 


T 
X- 


GO TO | 





080W 


t 

-+— 

X 


14 
10 


T 

— +. 

X- 


READ/WRITE, DO | 


GOTO | 





081W 


T 

-+— 

x 


14 
10 


T 

+. 

X- 


READ/WRITE | 


ARITH, EQUIVALENCE | 





082 


t 


14 
10 


T 


READ/WRITE, D/E/F/I/A | 


LITCON | 



-< J 
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Table 3, Error and Warning 
r 



Messages (continued) 

T 



| Message Number 




Phase 


- X- 


Subroutine or Routine | 




-X 


14 
10 


T 

-+- 

- X- 


NOFDCT, INTCON | 


| 083 


CSORN, INTCON | 




T 
_X 


14 


T 
- X- 


INTCON | 


| 084 


T 

-+— 
-+— 


10 
14 
12 


T 

~+- 
-+- 

- X- 


ERRET/WARNING | 


| 085 


ERROR/WARNING | 
DPALOC # SALO | 




H — 

-X 


14 
14 


T 

-+- 
-+- 

- X- 


PRESCN | 


| 086 


BLANKZ | 


| 087 


t 
X 


14 


D/E/F/I/A, T | 


| 088 


t 
-X 


14 


LPAREN | 


| 089 


T 
-X 


14 


t 
_ X- 


UNITCK/UNIT1 | 


| 090 


t 


14 


T 

... I - 


QUOTE/H | 


| 091 


-+— 

-X 


14 
14 


I 
- X- 


+/-/P | 


| 092 


FCOMMA | 


| 093 


t 

-X 


14 


t 
- X- 


GETWDA | 


| 094 


t 
-X 


14 


T 
- X- 


D/E/F/I/A | 


| 095 


T 

x 


14 


T 
- X- 


READ/WRITE | 


| 096 


T 
-X 


14 


t 
- X- 


READ/WRITE | 


| 097 


T 

-+— 

-X 


14 
14 


t 
- X- 


READ/WRITE | 


I 098 


QUOTE/H | 


| 099 


t 
-X 


14 


T 
- X- 


QUOTE/H | 


| 100 


T 


14 


T 
X- 


DO | 


| 123 
| 124 


-+— 


15 
15 


t 

_ X- 


MOPUP | 
COMMA | 


| 125 


-X 


15 


T 

- X- 


DO, BEGIO I 


| 126 


T 

X 


15 


T 

-+- 
-+- 

- X- 


CKARG | 


| 127 


t 
-X 


12 


COMAL, ALOC | 




t 
~x 


15 


PRESCN, UMINUS, UPLUS, FOSCAN | 


I 128 
| 129 


T 

-+— 

-X 


15 
15 


T 

-+- 

- X- 


LFTPRN I 
TYPE | 


| 130 


T 


15 


T 


COMMA I 
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Table 3. Error and Warning 



Messages (continued) 



Message Number 



Phase 



Subroutine or Routine 



131 



15 



INLIN1 



132 



15 



LABEL 



133 



15 



134 



15 



+- 



EQUALS 



ERROR/WARNING 






135 
136 
137 









15 
15 
15 



139 



-+■ 



COMMA, TYPE 

LAB 

COMMA, TYPE, RTPRN 



15 



COMMA 



h 

I- 



140 
141 
142 
143 



+- 
+— 









15 
15 
15 
15 



FOSCAN 



COMMA 






DO, BEGIO 
EQUALS 



144 
145 






15 
12 
20 



ARTHIF 
EXTCOM 






PHEND 



146 



12 



COMAL, RENTER/ENTER, SWROOT 



147 



12 



EQUIVALENCE 



148 



12 



RENTER/ENTER, SWROOT 



h 



149 
150 



12 



COMAL 



12 



ALOC 



160W 



t 






10 
14 



PUTX 
INTCON 



15 



COMMA 



161W 



12 



EXTCOM 



162W 



10 



CLASSIFICATION 



163W 



10 



LITCON 



164W 



,. 






10 
14 



CONTINUE/RETURN 



PAUSE/STOP/SKIP, FORMAT 



166W 



10 



END MARK CHECK, DO, FUNCTION/SUBRTN 



14 



167W 



14 



READ/WRITE 
LINECK 



(continued) 
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Table 3. Error and Warning Messages (continued) 



j Message Number 




Phase 


T — , _ 1 

| Subroutine or Routine | 

_ i_ ■ ,... ..._._.. „ j 


| 168W 


10 


| END MARK CHECK | 




-X 




... ... i , . . , .,,,. ,„ „ „ m _ j 


| 169W 


T 

-+— 


10 


| DIMSUB | 
| COMMA | 


15 




-X 




T ± , m -r TW m „._ ■ .,,..; ., uul , ,„ , .„. J 


| 170W 


T 
-4- 


14 


1 ■ --- ■ " ■-. ■ ~i 

j X j 
l __ -__ ,, mm „ ..._ ■ j 


| 171W 


T 


10 


t - - " " - - - 1 

| END MARK CHECK j 

r i ., ..,.,., , ., „ „ ,. ,. ' j 




t 
-4- 


14 


| RPAREN | 

j ..,,. ,., , j. _ ,„ .„ , _. , ., ,. „., , , j 


I 172W 


T 
-X 


10 


| ASF | 

1 ,.. , T _ _ m . „ _ _ , ...... ,,;. ,. , „, „ ,.„ , _ ._ .., „ ,„„ _ a j 


| 173W 


T 
-X 


10 


| ARITH | 
| EQUALS, LFTPRN, INARG, TYPE | 
| LABEL | 


| 174 


15 


| 1 75W 


T 


14 




-X 




— X .,.,. :.. _. _ J 



STATEMENT PROCESSING 



Table 4 indicates, within each compil- 
er phase, the routine/subroutine responsi- 

Table 4, Processing Subroutines 



ble for the processing of the statement 
under consideration. 



h 



Arithmetic Expression 

or Statement 
,. _ 

FUNCTION Call 



Subscripted Variable 



j ASF definition and 
expansion 



Statement Condition 
or Keyword 



Statement Number 
Definitions 

ASF Call 



h 



BACKSPACE 



CALL 
j. ^_ 

COMMON 

Computed GOTO 
f 



-+ 



-+ 



CONTINUE 



Phase 10 



Phase 12 
+ + 



ARITH 



ARITH 



SUBS 



-+ 

|LDCN 
-+ 

SSCK 



ASF 



ILDCN 
4 



-+ 



CLASSIF- 
ICATION JASSNBL 

ARITH | LDCN 



CALL 



ILDCN 



COMMON (COMAL 
GOTO I 



CONTINUE/ 
RETURN 



Phase 14 






PASSON 1 



PASSON 1 



PASSON 11 



FOSCAN 

MVSBXX/ 
MVSBRX 



FUNGEN/ 
EREXIT 



[HANDLE/ 
| CALSEQ 

| MVSBXX/ 

IOPTMIZ 



ASF 1 






LABEL 



ASFUSE 



PASSON 1 

BKSP/REWIND/ | 
END/ENDFILE i 



BSPREF 1 



PASSON 1 



PASSON 1 



SKIP 1 



Phase 15 



FOSCAN 



FOSCAN 



LABELDEF 
FOSCAN 



SKIP 






FOSCAN 
COMPGOTO 



SKIP 



Phase 20 



ARITH 



RXGEN 



ARITH 



LABEL 



CALSEQ 



ESDRLD 



CALL/ 
CALSEQ 



CDGOTO 






Phase 25 



SAOP, AOP 



ASFDEF, 
ASFEXP 



LABEL 






RDWRT 



FUNGEN/ 
EREXIT 



CGOTO 



X- 



J 



(continued) 
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Table *U Processing 



Subroutines (continued) 

_ T T 



I 



j DIMENSION 
h 



I DIMENSION 



DO 



DOUBLE PRECISION 



DO 



INTEGER/ 
REAL/DOUBLE 



-+■ 



DPALOC 



~+ 



DO 



~+ 



DO 



DO 



D01, 

ENDDO 



END 



BKSP/REWIND/ 
END/ENDFILE 



END 



MOPUP 



PHEND 



END 



END FILE 



BKSP/REWIND/ 
END/ENDFILE 



~+- 



BSPREF* 



h 



SKIP 



ESDRLD 



RDWRT 



~+ 



EQUIVALENCE 

f 

EXTERNAL 

FORMAT 



EQUIVALENCE 



EXTERNAL 
FORMAT 



EQUIVALENCE 



LDCN 



-+■ 



FORMAT 



h 



4- 



FUNCTION 



FUCTION/ 
SUBRTN 






LDCN 



h 



GOTO 

t 

IF 

INTEGER 



GOTO 



SUBFUN 1 
PASSON* 



GOTO 



SUBRUT 
TRGEN 






4- 



SUBIF 

INTEGER/ 
REAL/DOUBLE 



-+ 



PASSON* 



-+ 



FOSCAN 



IF 






ARITHI 



SALO 



h 



PAUSE 



STOP/PAUSE 



PAUSE 11 



SKIP 



+ 

STOP/PAUSE 



h 



-+■ 



READ 



READ/WRITE 



READ/WRITE 



REAL 



INTEGER/ 
REAL/DOUBLE j SALO 



BEGI/O 
+ 



READ, 
LIST 



RDWRT/ 
IOLIST 



RETURN 



h 



CONTINUE/ 
RETURN 



~f 



RETURN 1 



REWIND 



BKSP/REWIND/ 
END/ENDFILE 



BSPREF* 



h 



SKIP 
SKIP 



RETURN 



ESDRLD 



RDWRT 



STOP 



STOP/PAUSE 



STOP 1 



SKIP 



STOP/PAUSE 



~+- 



SUBROUTINE 



FUNCTION/ 
SUBRTN 



LDCN 



SUBFUN* 



FOSCAN 



SUBRUT 



h 



WRITE 



h 



READ/WRITE 



READ/WRITE 
+ 



BEGI/O 



LIST 



RDWRT/ 
IOLIST 



In-line Functions 



ARITH 



LOCN 



PASSON* 



FOSCAN 



FIXFLO 



h 



FUNGEN/ 
EREXIT 



j*Described in Phase 14 adjective code subroutine. 
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APPENDIX B: EXPONENTIAL SUBPROGRAMS 



The exponential subprograms are elements 
of the FORTRAN Library. Their function is 
to compute, at object time, the value of 
exponential terms appearing in arithmetic 
statements. 

All linkages to the exponential subpro- 
grams are compiler generated. Each time an 
exponential term (e.g. , X**Y) is encoun- 
tered during compilation, the compiler sel- 
ects the exponential subprogram which is to 
perform the computation. The selection of 
the subprogram is dependent upon the modes 
of the base and exponent. A calling 
sequence to the selected subprogram is then 
generated and included as part of the 
object program. At object time, the call 
is executed, thereby giving control to the 
exponential subprogram to compute the value 
of the exponential term. 

The five exponential subprograms (FIXPI, 
FRXPI, FDXPI, FRXPR, AND FDXPD) compute the 
value of an exponential term according to 
the modes of the base and exponent. 



FIXPI Subprogram 



The function of the FIXPI subprogram is 
to compute the value of an exponential term 
of the form X**Y where both X and Y are of 
integer mode. 

ENTRANCE: The FIXPI subprogram receives 
control from the object time execution of a 
compiler generated linkage, This linkage 
is generated during compilation when an 
exponential term, in which both the base 
and exponent are of integer mode, is 
encountered. 

CONSIDERATION: The following considera- 
tions apply to the execution of the FIXPI 
subprogram: 

1. An error exists in the term X**Y where 
X = and Y < 

Y * and X = 1, X**Y = 1 
X = -1 

if Y is even 
if Y is odd 

Y > 0, X**Y = 

Y = 0, Y**Y = 1 



2. Fo 

3„ For Y * and 
a. X**Y = +1 
d. X**Y = -1 

4. For X = and 

5. For X * and 



position does not enter into the computa- 
tion. ) For negative values of Y, X**Y=0. 

EXIT: After computing the value of the 
exponential term, the FIXPI subprogram 
returns control to the object program. 
However, if an error exists, exit is to 
subroutine IBFERR which is contained in 
IBCOM. 



FRXPI Subprogra m 



The FRXPI subprogram computes the value 
of an exponential term of the form X**Y 
where X is of real mode and Y of integer 
mode. 

ENTRANCE : The FRXPI subprogram receives 
control from the object time execution of a 
compiler-generated linkage. This linkage 
is generated during compilation when an 
exponential operation, in which the base is 
of real mode and the exponent of integer 
mode, is encountered. 

CONSIDERATION : The following considera- 
tions apply to the execution of the FRXPI 
subprogram: 

1. An error exists in the term X**Y where 
X = 0.0 and Y < 

2. For X = 0.0 and Y >0, X**Y =0.0 

3. For X * 0.0 and Y = 0, X**Y = 1.0 



OPERATION : 



OPERATION: For positive values of Y,X**Y= 
(X**K(31))*((X**2)**K<30))*C(X**4)**K(29)) 
C(X**8)**K(28)) ... where K CI) is either 1 
or and I represents the bit position in 
the register containing Y. (The sign bit 



For positive values of Y, 
implementation of the exponential term X**Y 
is the same as that described in subroutine 
FIXPI. For negative values of Y, the 2 f s 
complement of Y is taken and the exponen- 
tial operation is implemented in the same 
manner as that described in subroutine 
FIXPI for positive values of Y; the reci- 
procal of the result is then taken. 

EXIT: After computing the value of the 
term X**Y, the FRXPI subprogram returns 
control to the object program; however, if 
an error exists, exit is to subroutine 
IBFERR. 



FDXPI Subprogram 



The function of the FDXPI subprogram is 
to compute the value of an exponential term 
of the form X**Y where X is of double 
precision mode and Y of integer mode. 
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ENTRANCE : The FDXPI subprogram receives 
control from the object time execution of a 
compiler-generated linkage. This linkage 
is generated during compilation when expo- 
nential term, in which the base is of 
double precision mode and the exponent of 
integer mode, is encountered. 



CONSIDERATION: 



2. 


For X 


= 


0.0 


and 


Y 


> o, 


3. 


For X 


* 


0.0 


and 


Y 


= o, 


OPERATION: 




For positive 



The following considera- 
tions apply to the execution of the FDXPI 
subprogram: 

1. An error exists in the term X**Y where 
X = 0.0 and Y < 

X**Y =0.0 
X**Y = 1.0 

values of Y f 
implementation of the exponential term X**Y 
is the same as that described in subroutine 
FIXPI. For negative values of Y f the 2's 
complement of Y is taken and the exponen- 
tial operation is implemented in the same 
manner as that described in subroutine 
FIXPI for positive values of Y; the reci- 
procal of the result is then taken. 

EXIT: After computing the value of term 
X**Y, the FDXPI subprogram returns control 
to the object program; however, if an error 
exists, exit is to subroutine IBFERR. 



FRXPR Subprogram 



The function of the FRXPR subprogram is 
to compute the value of an exponential term 
of the form X**Y where both X and Y are of 
real mode. 

ENTRANCE: The FRXPR Subprogram receives 
control from the object time execution of a 
compiler generated linkage. This linkage 
is generated during compilation when an 
exponential operation, in which both the 
base and exponent are of real mode, is 
encountered. 

CONSIDERATION : Errors exist in the term 
X**Y where: 

| 1. X = 0.0 and Y < 0.0 
2. X < 0.0 

OPERATION: The computation is based on the 
identity: 

X**Y=e**(Y*log e X) 



Log e X is calculated by using the ALOG 
subprogram; the result is multiplied by Y 
and e is then raised to the power Y*log e X 
by using the EXP subprogram. 

EXIT: After computing the value of the 
exponential term, the FRXPR subprogram 
returns control to the object program; 
however, if an error exists, exit is to 
subroutine IBFERR. 



FDXPD Subprogram 



The function of the FDXPD subprogram is 
to compute the value of an exponential term 
of the form X**Y where both X and Y are 
double precision mode. 

ENTRANCE : The FDXPD subprogram receives 
control from the object time execution of a 
compiler generated linkage. This linkage 
is generated during compilation when an 
exponential operation, in which the base is 
of double precision mode and the exponent 
is of either real or double precision mode, 
is encountered. 

CONSIDERATION : The following considera- 
tions apply to the execution of the FDXPD 
subprogram: 

1. An error exists in the term X**Y 
where: 

a. X = 0.0 and Y > 0.0 

b. X < 0.0 

2. If an exponential term, of the form 
X**Y where X is double precision mode 
and Y is real mode, is encountered 
during compilation, the exponent Y is 
converted to double precision. This 
action permits such an exponential 
term to be processed by the FDXPD 
subprogram. 

OPERATION: Implementation of the exponen- 
tial operation is similar to that described 
in subroutine FRXPR; however, because the 
operation is double precision, subprograms 
DLOG and DEXP are used instead of subpro- 
grams ALOG and EXP. 

EXIT: After computing the value of the 
exponential term, the FDXPD subprogram 
returns control to the object program; 
however, if an error exists, exit is to 
subroutine IBFERR. 
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APPENDIX C: ARRAY DISPLACEMENT COMPUTATION 



Array displacement is the distance 
between the first element in an array and a 
specified element to be accessed from the 
array. To increase compilation efficiency, 
the array displacement is divided into 
portions and computed during different 
phases. To tie these separate computations 
into one coordinated presentation* the 
method of array displacement computation is 
developed in the following text. 



ACCESS 



Prior to discussing the actual computa- 
tion, it is desirable to understand how an 
element is accessed in a 1-, 2-, and 
3-dimensional array. 



ONE DIMENSION 



Assume a 1-dimensional array of five 
elements, expressed as A (5) . To access any 
given element in this array, the only 
factor to be considered is the length of 
each element. The third element, for exam- 
ple, is two element lengths from the begin- 
ning of the array. 



TWO DIMENSIONS 



For a 2-dimensional array, A (3,2) , an 
element can no longer be thought of as a 
single array element. Instead, each ele- 
ment in a 2-dimensional array consists of 
the number of array elements designated by 
the first number in the subscript expres- 
sion used to dimension the array. For 
reference purposes, an element in a 
2-dimensional array will be called a 
dimension part. For example, in the array 
of A (3,2) : 



A (1,1) A (2,1) A (3,1) — ,- Dimension Part 



J 



1>-A(1,2) A (2,2) A (3,2) 



Dimension Part 



the first dimension part consists of 
A (1 , 1) , A (2, 1) and A (3, 1) . Note that the 
number of elements in each dimension part 
is the same as the first number (3) in the 



subscript expression used to dimension 
array A. Dimension parts are consistent in 
length. Length is determined by multiply- 
ing the number of elements in a dimension 
part by the array element length (e.g., 4 
for a real array) . The resulting value is 
considered a dimension factor for the fol- 
lowing discussion. (If the element length 
in array A is 4, the dimension factor is 3 
times 4 or 12.) The dimension factor plays 
a significant role in accessing a specific 
element in a 2-dimensional array. 

Prior to discussing how a specified 
element is accessed, the hexadecimal number 
scheme used to address an array element 
must be t:aken into consideration. The 
first digit of the hexadecimal number 
scheme (as used in the compiler) is zero. 
The 16 hexadecimal digits are: 

0,1,2,3,4,5,6,7,8,9,A,B,C,D,E, and F. 

Consider that the element A (1 ,2) is to 
be accessed from the array dimensioned as 
A (3, 2). Observation shows one dimension 
part must be bypassed in order to access 
the specified element. The computation to 
access this element requires the values in 
the subscript expression (1,2) . Each num- 
ber must be decremented by 1 to compensate 
for the zero-addressing scheme used by the 
compiler. This leaves an expression of 
(0,1). The second number (1) dictates the 
number of dimension parts to bypass in 
order to arrive at the dimension part in 
which the specified element is located. 
Once this dimension part is found, the 
first number (0) indicates the number of 
elements in that dimension part that must 
be bypassed to access the specified ele- 
ment . 



THREE DIMENSIONS 



The same reasoning can be projected into 
a 3-dimensional array. For a three- 
dimensional array, A (3,2,3) , an element can 
neither be considered a single array 
element, nor thought of as a dimension 
part. Each element in a 3-dimensional 
array consists of the number of dimension 
parts designated by the second number in 
the subscript expression used to dimension 
the array. For reference purposes, there- 
fore, an element in a 3-dimensional array 
will be called a dimension section. For 
example, in the array of A (3,2,3) : 
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Dimension Section 
A (1,1,1) A (2, 1,1) A(3,1,1)t - Dim Part 

, 1 

l>*A(1,2,1) A(2,2,1) A(3,2,1) r - Dim Part 



I 



1 Dimension Section 

!>A (1,1,2) A (2, 1,2) A (3,1,2)-, 



Dim Part 

i>A(1,2,2) A(2,2,2) A(3,2,2)-, - Dim Part 
, . 

I 

1 Dimension Section 

L^A (1,1,3) A (2, 1,3) A (3,1,3)-| - Dim Part 

. 

l>A (1,2,3) A (2,2,3) A (3,2,3) - Dim Part 



in which the specified element is located. 
The second number (1) indicates the number 
of dimension parts, within the accessed 
dimension section, that must be bypassed to 
arrive at the dimension part in which the 
specified element is located. Once this 
dimension part is found, the first number 
(1) indicates the number of elements in 
that dimension part that must be bypassed 
to access the specified element. The 
preceding example is illustrated in Figure 
72. 

v 
This concept of how a specified element 
is accessed from an array is generalized in 
the following text. 



the first dimension section consists of the 
dimension part beginning with A (1 , 1 , 1) and 
the dimension part beginning with A (1,2, 1) . 
In this example, we have three dimension 
sections, as specified by the third number 
in the subscript expression used to 
dimension the array. 

Again, the length of the dimension sec- 
tions is consistent. The length, in this 
case, is determined by multiplying the 
number of elements in a dimension part by 
the number of dimension parts by the array 
element length. The resulting value is 
considered a dimension multiplier for the 
following discussion. (If the element 
length in array A is 4, the dimension 
multiplier is 3 times 2 times 4 or 24.) 

Consider that the element A (2,2,3) is to 
be accessed from the array dimensioned as 
A (3,2,3) . Observation shows two dimension 
sections, one dimension part, and one array 
element must be bypassed in order to access 
the specified element. The computation to 
access this element requires the values in 
the subscript expression (2,2,3) . Each 
number must be decremented by 1 to compen- 
sate for the zero-addressing scheme used by 
the compiler. This leaves an expression of 
(1,1,2). The third number (2) indicates 
the number of dimension sections to bypass 
in order to arrive at the dimension section 



GENERAL SUBSCRIPT FORM 



The general subscript form 
(C1*V1+J1,C2*V2+J2,C3*V3+J3) refers to some 
array. A, with dimensions (D1 , D2, D3) . 
The required number of elements is speci- 
fied by (C1*V1+J1); (C2*V2+J2) *D1 ; and 
(C3+V3+J3) *D1*D2, representing the first, 
second, and third subscript parameters mul- 
tiplied by the pertinent dimension informa- 
tion for each parameter. Therefore, the 
required number of elements for the general 
subscript form is: 

(C1*V1+J1) + (C2*V2+J2) *D1 + (C3*V3+J3) *D1*D2 



ARRAY DISPLACEMENT 



The array displacement for a subscript 
expression, specificallyv stated, is the 
required number 6f array elements multi- 
plied by the array element length. There- 
fore, the array displacement is: 



[ (C1*V1+J1) + (C2*V2+J2) *D1 + 
(C3*V3+J3) *D1*D2) ] *L 



A (2,2,3) 

I 

| Zero-addressing adjustment 

i 

V 
A (1,1, 2) 
I I 

I I 

| i > 2 dimension sections 

I 

l > 1 dimension part 

l 



> 1 array element 

Figure 72. Access of Specified Element in Array 



Must be bypassed to 
access specified element 
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Because of the zero-addressing scheme, the 
displacement is: 



(C1*V1+J1-1) *L+ (C2*V2+J2-1) *D1*L+ 
(C3+V3+J3-1) *D1*D2*L 



This expression can be rearranged as: 



(C1*V1*L+C2*V2*D1*L+C3*V3*D1*D2*L) + 

[ (J1-1) *L+ (J2-1) *D1*L+ (J3-1) *D1*D2*L) ] 



The first portion of the array displace- 
ment is referred to as the CDL (constant , 
dimension, length) portion and is derived 
from: 



C1*V1*L*C2*V2*D1*L+C3*V3*D1*D2*L 

V1 ,V2 , and V3 are the variables of the 
expression and cannot be computed until the 
execution of the object program. This 
leaves the following components, which con- 
stitute the CDL portion of the displace- 
ment: 



C1*L is the first component, 
C2*D1*L is the second component, and 
C3*D1*D2*L is the third component • 

The CDL components are calculated during 
Phase 20* 



The second portion 
placement: 



of the array dis- 



(J1^t) *L* (J2-1) *D1*L+ (J3-1) *D1*D2*L 



is known as the offset portion and is 
calculated by Phase 10* 

Phase 25 combines the CDL components, 
the variables, and the offset to produce 
the array displacement. The procedure is 
as follows: the first component of the CDL 
multiplied by the first variable of the 
subscript expression (C1*L) *V1; plus the 
second component of the CDL multiplied by 
the second variable of the subscript 
expression (C2*D1*L) *V2, plus the third 
component of the CDL multiplied by the 
third variable of the subscript expression 
(C3*D1*D2*L) *V3; plus the offset: 

(J1-1) *L+ (J2-1) *D1*L+ (J3-1) *D1*D2*L. 
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APPENDIX D: LIST OF ABBREVIATIONS 



ADDR 

ADJ 

ARG 

ARGLST 

ARITH 

ASF 

ASFDEF 

ASGND 
ASSOC 
AVAIL 



BALR 

BCD 

BGNG 

BKSP 

BND VAR 

BUFF 

CHAR 

COMM 

COND 

CORR 

CNT 

CTRL 

CUR 

DEC 

DICT 

DIM 

DIRCTRY 

D.P, 

DR 

DRCTOR 

DSPL 

EBCDIC 

ENT 

EODS 

EOF 

EQU 

EQUTAB 

ESD 

ESID 

EXP 
EXT 

FLDCNT 
FLT 
FSD 
FUNC 

GENRTED 
GT 

HEX 

INCRMT 
IDENT 



Address 

Adjective 

Argument 

Argument List 

Arithmetic 

Arithmetic Statement Function 

Arithmetic Statement Function 

Definition 
Ass igned 
Associated 
Available 



Branch and Link Register 

Binary Coded Decimal 

Beginning 

Backspace 

Bound Variable 

Buffer 

Character 

Common 

Condition 

Correct 

Count 

Control 

Current 

Decimal 

Dictionary 

Dimension 

Directory 

Double Precision 

Drive 

Director 

Display 

Extended Binary Coded Decimal 
Interchange Code 

Entry 

End of Data Set 

End of File 

Equivalence 

Equivalence Table 

External Symbol Dictionary 

External Symbol identifi- 
cation Number 

Exponent 

External 

Field Count 

Floating 

FORTRAN System Director 

Function 

Generated 
Greater Than 

Hexadecimal 

Increment 
Identification 



IDX 


Index 


INFO 


Information 


INSTR 


Instruction 


INTERMED 


Intermediate 


I/O 


Input /Output 


IPL 


Initial Program Load 


ISN 


Internal Statement Number 


LFTPRN 


Left Parenthesis 


LNGTH 


Length 


LOCATN 


Location 


LOC CTR 


Location Counter 


LT 


Less Than 


NEC 


Necessary 


NO 


Number 


OPRND 


Operand 


OP TBL 


Operations Table 


PARAM 


Parameter 


PAREN 


Parenthesis 


PHSE 


Phase 


PNTR 


Pointer 


POS 


Position 


PREV 


Previous 


PRGNAME 


Program Name 


PROG 


Program 


REF 


Reference 


REFRNCD 


Referenced 


REG 


Register 


REGUL 


Regular 


REP 


Represent 


RLD 


Relocatable Dictionary 


ROUT 


Routine 


RR 


Register to Register 


RTN 


Return 


RTPRN 


Right Parenthesis 


RX 


Register to Storage 


SBCRPT 


Subscript 


SEQ 


Sequence 


SPEC 


Specification 


STD 


Standard 


STMNT 


Statement 


SUBRTN 


Subroutine 


SUBS 


Subscript 


SVC 


Service 


sw 


Switch 


SYM 


Symbol 


SYS 


System 


TXT 


Text 


UNASS 


Unas signed 


VARS 


Variations 


WARN 


Warning 


WRK 


Work 
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APPENDIX E; AUTOCHART SYMBOLS 



************************** 
* 

FUNCTIONAL SYMBOLS * 

* 

**A1 ******* * 



***************************************************************************************************** 

* 

SAMPLE FLOWCHART * 



**B 1 ********** 



***************** 



****C2** ******* 

USER ENTRY * 
* 
*************** 



***** 
*ZA * 
* C3* 
**** * * 

* * * 

* C3 *.X. 

* * • 
**** . 

X 
*****C3********** 



***************** 



BLOCK C3 IS ENTERED FROM THIS CHART AND FROM 
AT LEAST ONE OTHER CHART. ALL REFERENCES TO 
OFF-PAGE ENTRY CONNECTORS CAN BE FOUND IN 
AUTOCHART CROSS-REFERENCE TABLE II. 



THE TERMINAL BLOCK IS USED TO SHOW USER ENTRY 
AND EXIT POINTS WHEN THE PROGRAM BEING 
FLOWCHARTED IS AVAILABLE TO AND IBM CUSTOMER. 
IT IS ALSO USED AS AN EXIT CONNECTOR WHEN 
THE TO LOCATION IS TO NO SPECIFIC CHART AS IN 
A MULTIPLE USE SUBROUTINE. 



***01 ********* 
TERMINAL * 
BLOCK * 
* 
************** 



*«***E1 ******* 



************** 



.GOTO X 

*****E 3*** ******* 
*SUBNM ZCA1* 
*-*-*-*-*-*-*-*-* 



***************** 



THE INSTRUCTION AT SYMBOLIC LOCATION GOTO 
CALLS A SUBROUTINE NAMED SUBNM. THE LOGIC OF 
SUBNM IS SHOWN ON CHART ZC STARTING AT BLOCK 
Al. ALL REFERENCES TO SUBOUTINES CAN EE 
FOUND IN AUTOCHART CROSS-REFERENCE TABLE III. 



******F i*********** 



************* 



****F2** ******* 

* * 

* USER EXIT * 

* * 
*************** 



****G 1 **** *** *** 

« 

—*—*—*—*—*—*—*—* 



LINE JUNCTION 



************* 



****H2 ********* 

* * 
♦VARIABLE RETURN*X. 

* * 
*************** 



*****H3********** 



-*—*—*—*— 



***************** 



***** 
*ZB * 
* A2* 



*************************************************************** 



******************************************************** 
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address constant ; Area into which the 
address of a respective routine , external 
function, or symbol is to be relocated by 
the FORTRAN loader. It may be used to 
calculate storage addresses. 

argument ; A variable that is given a con- 
stant value for a specific purpose or 
process. An independent variable. 



DECK option : An option that indicates that 
the object program is to be punched on 
cards during compilation. 



data parameter : The address of the first 
byte of data to be processed, and the 
number of bytes to be processed. 



argument 



list : List containing the data set : A named collection of data in 



addresses of arguments constructed when an 
adjective code indicating a call to an 
external or arithmetic statement function 
is detected. 

array displacement : The distance in bytes 
between the first element in an array and a 
specified element to be accessed from the 
array . 

backward DO : Condition occurring when the 
statement ending the DO loop is sequential- 
ly in front of the statement that defines 
the DO. 

base displacement address : A 2- byte 
address in hexadecimal representing the 
base register and the displacement in a 
machine language instruction. 

bound variable : An integer variable that 
is used in a subscript expression and 
redefined. 



one of several prescribed arrangements. 



(DSCB) : A block 
44 bytes. 



data set control block 

that varies in size from 22 to 

Describes the physical device identified in 

DSTAB and the extent of operations to be 

performed on that device. 

data set table (DSTAB) : A list referenced 
from the I/O routines, and composed of one 
6- byte block for each data set. 

decimal length : Number of bytes reserved 
for decimal places within the field length 
in a FORMAT statement. 

dictionary : A reference area that contains 
all names, constants, and data set ref- 
erence numbers used in the program. 

di splacement : Distance in bytes between a 
variable and its root in an EQUIVALENCE 
class or group. 



branch table: 



table compiled by the DO list : A list of subscript expressions 



FORTRAN compiler: resident in the object 
program: a list of statement number 
addresses that control branching. 

CDL : A portion of the array displacement 
for a subscript expression; calculated by 
utilizing Constant, Dimension, and Length 
information. 

chain: A series of items linked together 
by addresses. 

chaining : Technique used by the FORTRAN 
compiler to arrange and retrieve items 
entered in the dictionary and overflow 
table. 

COMMON text : Table of variables assigned 
to the COMMON area by COMMON statements in 
the source program. 

communications area : Central gathering 
area for information common to all phases 
and communications between phases. 

control segment : The output of a single 
compilation within the user program. 



within the DO loop. 

dummy : Something characteristic of a spec- 
ified item, but not having the capacity to 
function as that item. 

dummy variable : A dummy used to define 
operations performed on arguments in state- 
ment function or subprogram definitions. 

element count : The number of entries in an 
EQUIVALENCE group or class. 

end DO : The statement that ends a DO loop. 

end of data set : A signal that the last 
record of a data set has been read or 
written. 

error : Incorrect usage of the FORTRAN lan- 
guage that can force the end of compila- 
tion. 

epilog table : Area containing information 
necessary to return the value of variables 
used as parameters to the calling program. 



< 
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EQUIVALENCE class ; A number of EQUIVALENCE 
groups linked together by names common to 
two or more groups. 

EQUIVALENCE group ; Names between a left 
and right parenthesis in an EQUIVALENCE 
statement. 

EQUIVALENCE root ; A member of an 
EQUIVALENCE group or class to which all 
other variables are equated. 

EQUIVALENCE table ; A table used by the 
subroutines that assign addresses for 
EQUIVALENCE entries. 

EQUIVALENCE text ; Table of EQUIVALENCE 
groups assigned by EQUIVALENCE statements. 

ESP cards ; Cards containing segment names 
and external and internal entries to the 
segments in the program being compiled. 



than 4096 bytes , used as a parameter in a 
DO or implied DO statement. 



implied DO ; A method of indexing arrays in 
input/output lists. 

index mapping table ; A table which main- 
tains a record of all registers used at 
object time as index registers in subscript 
calculation, and a record of the unique 
subscript expression associated with each 
register. 

in-line function ; Function that generates 
code whenever it occurs in the source 
program. 

intermediate text ; An internal representa- 
tion of the source program that can be 
easily converted to machine language 
instructions . 



ESD table; A table which contains the internal statement number: 



number 



address of each external symbol and an 
address constant. 



assigned to each FORTRAN statement before 
it is processed. 



executable statement ; A statement that I/O list ; A list of variables and arrays 



causes the compiler to generate machine 
instructions . 



explicit 



specification 



statement; Statement which declares the 
a particular variable or array by 



mode of 
its name. 



field count ; The number of times a conver- 
sion is to be repeated for an I/O list. 

field length ; Number of bytes reserved in 
the input/output record for the variable in 
the record. 

forcing scan ; Directs the ordering of text 
words of a statement by comparing the 
forcing values of the respective adjective 
codes . 

FORMAT specification group ; FORMAT speci- 
fications that appear within a set of 
parentheses. 

GO (Compile and Go) option ; Option indi- 
cating that an entire job is to be compiled 
and executed if there are no serious source 
program errors. 

GOGO option ; Entire job is to be compiled 
and executed irrespective of any source 
program errors. 



in READ/WRITE statements. 

IPL: T he act of initial program load on 
an IBM System/360 computer. 

job ; One or more source or object programs 
in many combinations along with any asso- 
ciated input data. 

keyword ; A FORTRAN reserved word which 
indicates the specific FORTRAN statement to 
be compiled. 

LIST option ; An option which indicates 
that the source program is to be printed 
(listed) . 

literal ; Data which is defined in the 
source program as opposed to being read by 
I/O commands. 

location counter ; A counter used to assign 
addresses. 

main program ; A program to which control 
is transferred upon completion of the relo- 
catable loading of a set of programs. 

main storage ; All addressable storage from 
which instructions can be executed or from 
which data can be loaded directly into 
registers. 



halt number ; A number identifying a STOP MAP option ; Indicates the storage map of 



or PAUSE. 

image ; Refers to the BCD card image of a 
symbol in the dictionary. 

immediate DO parameter ; A constant , less 



an entry is to be printed on-line. 



mode: 



A code used in the dictionary and 



intermediate text denoting whether a symbol 
or literal represents real, integer, or 
double precision. In I/O, mode indicates 
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set mode and whether the function is multi- 
plex or burst mode. 

multiple job : More than one compilation 
with no regard to the number of object 
programs within a job. 



name: 



string of alphabetic and numeric are out of sequence. 



save register technique ; When a register 
is required but one is not available , the 
contents of required registers are placed 
in the first available work area. 



sequence error ; FORTRAN statements that 



characters the first of which must be 
alphabetic. 

nested implied DO ; An implied DO within 
another implied DO. 



single job : Single compilation of a source 
program or subprogram, with no regard to 
the number of object programs within a job. 



offset : A calculated indexing factor used skeleton instructions : Instructions gener- 



to find the correct element in an array for 
a particular subscript expression or 
EQUIVALENCE element. 

operations table : Temporary storage area 
used during the ordering of operations 
within a statement for any text words 
referring to the operation. 

ored: An inclusive OR machine operation. 

overflow table : A table which contains all 
dimension, subscript, and statement number 
information within the program. 

overlay : Loading a program or data into a 
portion of storage where the current resi- 
dent program or data is no longer required. 

parameters : Variables given a constant 
value for a specific process or purpose. 

parenthesis count : Determines whether an 
implied DO is nested within another implied 
DO; determines hierarchy of arithmetic 
operations. 

pointer : An address indicated in text by p 
that denotes the location of data or anoth- 
er address. 

point of definition : Point at which a 
statement number is referenced by some 
statement other than a DO or FORMAT state- 
ment. 

r edef ini tion : Point at which the value of 
an integer variable changes. 

RLD cards : Contain addresses of items to 
be relocated by the FORTRAN loader at LOAD 
time. 



ated for use as constants or literals to 
generate instructions. 

spill base register : When registers 4, 5 r 
r and 7 are used as base registers. 



6, 



register 7 accepts all overflow. 

spill technique : A method of using the 
spill base register as a temporary base 
register by inserting the proper base value 
into the register before use, information 
spills into the next register with the 
exception of register 7 which repeats . 



string : Contiguous group 
with no embedded blanks. 



of characters 



subprogram : A program that is 
or SUBROUTINE. 



FUNCTION 



subscript table : Temporary storage area 
for subscript text. 

thumb index : A storage area which contains 
the addresses of the first entry for each 
chain. 

type : A code used in the dictionary and 
intermediate text denoting whether a symbol 
represents a variable, array, function, or 
constant. 

unas signed register : Condition existing 
when a register is available for use as an 
index register at object time. 

warning : An error that is not serious 
enough to abort object program execution. 

zero addressing scheme : A numerical scheme 
with zero as the lowest value. 
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INDEX 



ABS, Subroutine 344 

Access 487 

ADD Routine 235 

Address Assignment 143 

Address Constant 143,332 

Adjective Code 7 8,79,184 

Adjective Code and Number 184 

Adjective Code, Field Length, and Decimal 

Length 185 
Adjective Code, Field Length, and Literal 

185 
Adjective Code Subroutines 186 
AFTER Routine 456 
ALOC, Subroutine 152 
ALOWRN/ALERET, Subroutine 159 
Analysis Aids 479 
AOP Adjective Code 281 
AOP, Subroutine 338 
Argument Count 237 
Argument List 220,238 
ARITH IF Routine 241 
ARITHI, Subroutine 334 
Arithmetic Expressions 329 
Arithmetic Statement Function 88,183 
ARITH Part 1, Subroutine 87 
ARITH Part 2, Subroutine 87 
ARITH Part 3, Subroutine 88 
ARITH Routine 287 
Array Displacement Computation 

76,280,487-489 
ASF Argument Register 237 
ASF, Subroutine 88 
ASFDEF, Subroutine 339 
ASFEXP, Subroutine 339 
ASFUSE, Subroutine 339 
ASGNBL, Subroutine 153 
ASTRSK Routine 456 
Backward DO 90 



151 



Subroutine 93 



283 
334 
105,146,190,332 



BASCHK/RXOUT, Subroutine 347 

Base- Displacement Address 143 

Base-Displacement Addressing Scheme 

Base Value Table 328 

BEGIO Routine 233 

BKSP/REWIND/END/ENDFILE , 

Blank Common 383 

BLANKZ, Subroutine 197 

Bound Variable 282 

Bound Variable List 

Branch Instructions 

Branch List Tables 

for ASF Definitions 328 
for DO Statements 328 
for Statement numbers 328 

BVLSR, Subroutine 292 

CALL Routine 239,288 
CALL, Subroutine 90 
Calls To a Printer 28 
CALSEQ Routine 2 89 
Card Formats 377 
CCDATA Routine 59 
CCEDIT Routine 59 
CCFTC Routine 58 
CCJOB Routine 58 
CCLASS Routine 57 
CCLOAD Routine 59 
CCSET Routine 58 



CEM/RDPOTA, Subroutine 188 
CESD0 Routine 385 
CESD1 Routine 385 
CESD2 Routine 386 
CGOTO, Subroutine 332 
Chaining 35,70-72 
CHCKGR, Subroutine 243 
CKARG, Subroutine 247 
CKENDO, Subroutine 191 
CLASSIFICATION, Subroutine 86 
CLEAR, Subroutine 293 
CMPEND Routine 387 
CMPESD Routine 385 
CMPICS Routine 384 
CMPLDT Routine 388 
CMPREP Routine 386 
CMPRLD Routine 387 
CMPSLC Routine 384 
CMPTXT Routine 386 
COMAL, Subroutine 147 
COMMA Routine 240 
COMMON, Subroutine 95 
COMMON Text 15,84,147 
Communications Area 22,146 
COMP GO TO Routine 233 
Compilation 14,22,69 
Completion of 18 
COMPILE Routine 242 
Completion of Execution 18 
Completion of Modification 19 
Continuation Card 95 
CONTINUE/RETURN, Subroutine 92 
Control Card Routine 14,57-67 
Control Dictionary Elements 376 
Control Routine 2 83 
CONVERSION Routines 415 
COPYC Routine 457 
COPYCL Routine 457 
COPYEC Routine 458 
COPYL Routine 458 
CSORN, Subroutine 99 

Data Parameters for Print Calls 28 

Data Set Designation 25 

Decimal Length 183,195 

D/E/F/I/A, Subroutine 196 

DELET Routine 459 

Device Code Bytes 26 

Device Assignment Table 22,58,454 

Dictionary 15,71-75,87,96,144,182 

DIM, Subroutine 343 

DIM90, Subroutine 103 

Dimension Information 74 

DIMENSION, Subroutine 93 

DIMSUB, Subroutine 102 

DINT Routine 29,30 

Displacement 145,155 

Displacement Field 99 

DIV Routine 236 

DO Routine 232,286 

DO, Subroutine 90,190 

D01, Subroutine 333 

DP ALOC, Subroutine 151 

DSCB Check Byte 27 

DSCB — Data Set Control Block 26,30 

DSCB Flag Bytes 27 

DSTAB— Data Set Table 25,30 

Dummy Array 340 
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Dummy Integer Variable 190 
Dummy Subscripted Variable 149 
Dummy Variable 89, 147, 153,340 
DUMPR Routine 290 
DVARCK, Subroutine 233 

Editor 19,59,454-478 

Editor T92LB2 Library Routine #2 461 

END Routine 239 

END, Subroutine 344 

ENDDO Routine 286 

ENDDO, Subroutine 333 

ENDIO, Subroutine 337 

END MARK CHECK, Subroutine 103 

ENTRY, Subroutine 345 

EODS Routine 390 

Epilog Table 328,340 

EQSRCH, Subroutine 155 

EQUALS Routine 240 

EQUIVALENCE Group 149 

EQUIVALENCE Part 1, Subroutine 94,148 

EQUIVALENCE Part 2, Subroutine 94,149 

EQUIVALENCE Part 3, Subroutine 150 

Equivalence Processing 145 

EQUIVALENCE Table 146 

EQUIVALENCE Text 15,84,85,145 

Error Checks 221 

Error Mask Byte 27 

Error Recovery Procedures 28 

Error Routines 2 8 

ERROR Routine 38 9 

ERROR, Subroutine 104 

ERROR/WARNING, Subroutine 189 

ERWNEM Routine 233 

ESD, Subroutine 157 

ESDPUN, Subroutine 294 

ESD/RLD Records 282 

ESDRLD/CALRLD/CALTXT, Subroutine 293 

EXIT Routine 30 

EXPON Routine 236 

Exponential Subprograms 485 

Exponentiation 2 83,341 

EXTCOM, Subroutine 151 

External Functions 153 

EXTERNAL, Subroutine 95 

External Symbol 156 

External Symbol Dictionary (ESD) 

Type Card 378 

Type 1 Card 378 

Type 2 Card 379 

Type 5 Card 380 

Identification number 151 

Table 376 



FENDN, Subroutine 419 
Field Count 195 
Field Length 183,195 
FILLEG, Subroutine 198 



FINDR, Subroutine 243 




FIOAF, Subroutine 416 




FIOAN, Subroutine 419 




FIOCS, Subroutine 421 




FIOLF, Subroutine 416 




FIOLN, Subroutine 419 




FIXFLO, Routine 290 




FIXFLT, Subroutine 342 




FIXPI, Subprogram 485 




Flags 




SILI 30 




Call wait 34 




Wait check 34 




Chaining 34 




GO 59 




NOGO 59 




FLDCNT, Subroutine 200 




Forcing Scan 220 




Forcing Value Tables 223 




FORMAT Entries 83 




FORMAT Overall Logic 195 




FORMAT Statements 183 




Structure of, 183 




FORMAT, Subroutine 95,196 




FORMAT Text Card 184 




FORTRAN Loader Functions 377 




FORTRAN Printer Carriage Control 




Characters 28,34 




FORTRAN Relocating Loader 18,57-59,376- 


-413 


FORTRAN System Director 14,22-56,57 




Compilation 14 




Execution 1 8 




Modification 19 




FOSCAN Routine 223 




FPAUS, Subroutine 421 




FRDNF, Subroutine 419 




FRDWF, Subroutine 416 




FREER, Subroutine 243 




FRWND, Subroutine 420 




FRXPR, Subprogram 486 




FRXPI, Subprogram 485 




FSLASH, Subroutine 199 




FSTOP, Subroutine 452 





FUNC Routine 239 
FUNCTION/SUBRTN, Subroutine 91 
FUNGEN/EREXIT, Subroutine 341 
FWRNF, Subroutine 419 
FWRWF, Subroutine 416 



FBKSP, Subroutine 420 
FEOFM, Subroutine 420 
FCOMMA, Subroutine 198 
FCVAI , Subroutine 419 
FCVAO, Subroutine 419 
FCVEI/FCBDI , Subroutine 
FCVEO-FCVDO, Subroutine 
FCVFI, Subroutine 418 
FCVFO, Subroutine 419 
FCVII, Subroutine 418 
FCVIO, Subroutine 418 
FDXPD, Subprogram 486 
FDXPI, Subprogram 485 
FENDF, Subroutine 416 



418 
418 



GEN, Subroutine 291 
GENBC, Subroutine 346 
GENCON, Subroutine 294 
GENER, Subroutine 291 
General Subscript Form 488 
Generation of Literals 280 
GET, Subroutine 106,346 
GETN Routine 291 
GETWD, Subroutine 97 
GETWDA, Subroutine 201 
GNBC6, Subroutine 342 
GOFILE, Subroutine 158,190 
GO TO Routine 233 
GOTO, Subroutine 89 
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Group Count 184 
GENGEN r Subroutine 



291 



HANDLE, Subroutine 293 
Header Card 91 
HEXB Routine 388 
HOUSEKEEPING, Subroutine 96 

IBCOM 414-452 

IBCOM Subroutines 416 

IBEXIT, Subroutine 422 

IBFERR, Subroutine 421 

IBFINT, Subroutine 421 

IER Routine 383 

IF Routine 288 

Immediate DO Parameter 334 

IMPDO Routine 286 

Implied DO 90,182,192 

INARG, Subroutine 247 

Include Segment Card 378 

Indexing Factor 75 

Index Mapping Table 280-292 

ININ, Subroutine 245 

ININ/GET, Subroutine 190 

INIT Routine 283 

Initialization 14,279,422 

INITIALIZATION, Subroutine 330 

Initial Program Load 14 

In-Line Functions 72,153,341 

INLIN1 Routine 246 

INLIN2, Subroutine 246 

INOUT, Subroutine 188,245 

Input/Output 

Functions 22,30,31 

List Section 415 

Operations 22,30 

Interrupts 22,31 

Formats 224 
Instruction Generation 329 
INTCON, Subroutine 100,202 
INTDCT, Subroutine 156 
INTEGER/REAL/DOUBLE, Subroutine 96 
Intermediate Text 78-84,87,182,329 
INVOP Routine 234 
I0LIST, Subroutine 336 

Keyword 71,85 

LAB, Subroutine 241 

LABEL DEF Routine 241 

LABEL Routine 28 6 

LABEL, Subroutine 332 

LABLU, Subroutine 98 

LABTLU, Subroutine 99 

Last Record Indicator 419 

LDCN, Subroutine 153 

LDPH Routine 29,30 

Leading Length Accumulator 195 

Leading Length Indicator 198 

LFTPRN Routine <!98,238 

Library Function 341 

Line Count 59 

LINECK, Subroutine 200 

Line Length 461 

LINETH, Subroutine 200 

Linkage Register 237,347 

List Item 418 

LIST. Routine 287 



LITCON Part 1, Subroutine 100 
LITCON Part 2, Subroutine 101 
LITCON Part 3, Subroutine 101 
Literals 154 

Generation of 280 

offset 280 
Load end Card 382 
Loading Process 376 
LOADR1, Subroutine 244 
Load Terminate and Data Cards 382 
Location Counter 143,144,376 
LODREF Routine 389 
LPAREN, Subroutine 198 



Mantissa 101 
MAP Routine 389 
Messages 479,483 
MODE, Subroutine 245 
Mode/Type Code 78,80 
MOPUP Routine 234 
MSG/MSGMEM, Subroutine 188 
MSGNEM/MSGMEM/MSG Routine 234 
MULT Routine 235 
MVSBRX, Subroutine 246 
MVSBXX, Subroutine 245 

Name 71 

NIB, Subroutine ^92 
NOB, Subroutine 292 
NOFDCT, Subroutine 201 

Object Program 14 

execution 18 
Object Program Tables 328 
Object-Time Execution 375 
Offset 78,82,150 
Offset Calculations 78 
Offset Literal 291 
Operation Specification 24 
Operations Table 220 
OPTMIZ Routine 290 
Order of Operations 220 
Overflow Table 15,74-77,99 

PAKNUM, Subroutine 99 

Parameter List 340 

Phase Modification 460 

Phase 10 14,70-142 

Phase 12 15,143-181 

Phase 14 15,182-219 

Phase 15 15,220-278 

Phase 20 15,279-326 

Phase 25 15,327-372 

Phase 30 18,373 

PHEND Routine 286 

PINOUT, Subroutine 187,242 

Point of Definition 282,293 

PRESCN Routine 223 

PRESCN, Subroutine 185,331 

PRINT, Subroutine 106 

Program Interrupt 421 

PSW 29,30 

PUNCH, Subroutine 293 

PUTFTX, Subroutine 190 

PUTX, PUTBUF, PUTRET, Subroutine 104 

QUOTE/H, Subroutine 197 



Index 
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RD Routine 383 

RDACRD Routine 4 55 

RDOSYS Routine 460 

RDWRT, Subroutine 335 

Read Not Requiring a Format 415 

Read Requiring a Format 414 

READ Routine 285 

READ/WRITE Statements 182 

READ/WRITE, Subroutine 191 

Record Length 195,420 

Record Length Accumulator 195 

REDCRD Routine 4 59 

Reference Table 376 

REFTBL Routine 3 89 

Register Assignment 221,280 

RELCTL Routine 390 

Relocation Factor 384 

Relocation List Dictionary Card 381 

Removing Entries From Chains 144 

RENTER/ENTER, Subroutine 155 

Replace Card 380 

Return 

Error 23 

Normal 23 

Unit Exceptional Condition 23 
RETURN, Subroutine 341 
Return to User's Program 28 
RLD, Subroutine 157 
RLDTXT, Subroutine 348 
RMVBVL, Subroutine 292 
Root of EQUIVALENCE Group 150 
Routines 

(Routines are listed individually) 
RPAREN, Subroutine 198 
RROUT, Subroutine 347 
RTPRN Routine 238 
RXGEN/LM/STM, Subroutine 331 

SALO, Subroutine 152 

SAOP Adjective Code 281 

SAOP, Subroutine 337 

SAVER, Subroutine 243 

Scale Factor 197 

SD1 Routine 30,32 

SD2 Routine 30,32 

SD5 Routine 30,33 

SD7 Routine 30,33 

SD72 Routine 33 

SD74 Routine 34 

SD741 Routine 34 

SERCH Routine 38 9 

SERP Routine 32 

Set Location Counter Card 377 

SET Routine 461 

SETMD Routine 31 

SIGN, Subroutine 343 

Significant Byte Accumulator 156 

SIODIR Routine 30,31 

SIOGO Routine 31 

SKIP Routine 234 

SKPBLK, Subroutine 98 

SKTEM, Subroutine 98 

Slash Specification 

(see T Specification) 
SNTPIN Routine 31 
SORLIT, Subroutine 154 
SORSYM, Subroutine 156 



Source Program compiled 14 

Source Program Compilation 14 

Spill Base Register 347 

SRETRY Routine 31,34,35 

SSCK, Subroutine 154 

START Routine 454 

STARTA, Subroutine 147 

Statement Number Entries 82 

Statement Number Information 76 

Statement Processing 483 

Statements Subject to Optimization 279 

Statements that affect Optimization 282 

STOP/PAUSE, Subroutine 92,344 

SUBIF, Subroutine 90 

Subroutines 

(Subroutines are listed individually) 
SUBRUT, Subroutine 340 
SUBS, Subroutine 102 
Subscript Information 76,282 
Subscript Optimization 279 

Statements subject to 279 

Statements that affect 282 
Subscript Text Input 280 
Subscript Parameter 154 
Subscript Table 220 
Subscript Text Output 281 
Subscripted Variable Entries 82,282 
SUBVP, Subroutine 290 
Supervisor Call 22 
SVC I/O Formats 23 
SWROOT, Subroutine 156 
Symbol List 292 
SYMBOL, Subroutine 242 
SYMSRC, Subroutine 292 
SYMTLU, Subroutine 98 
System 

Control segments 21 

Modification 14-19,22 
System Tape Device 29 

T Specification 195 

T, Subroutine 199 

Tag and Data Set Byte 23,24 

Tail Length Accumulator 195 

T3LREF Routine 388 

Temporary Root 145 

Text Card 380 

Text Word Modification 221 

Thumb Index 71 

Translate and Test 

Pointer 201 

Table 195 

Instruction 97,201 
TRGEN, Subroutine 332 
TXT, Subroutine 158 
TXTEST, Subroutine 347 
TXTOUT, Subroutine 34 8 
TYPE, Subroutine 242 
Type 3 Program 330 
T92CMP Routine 460 
T92LB1 Routine 461 

UMINUS Routine 237 
Unary Minus 237 
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This technical newsletter amends the publication IBM System/360 Basic 
Programming Support FORTRAN IV, Program logic Manual, 36 0P-FO-031 , Form 
Z28-6620-0 tformerly C28-6584-0). The attached pages replace and 
supplement pages in the original publication. Corrections, additions, 
and deletions to the text are noted by vertical bars to the left of the 
change. The attached pages are: 



21-22 
23-24 
27-28 
33-34 
35-36 
43-44 
49-50 



51-52 
53-54 
55-56 
59-60 
61-62 
67-68 



101-102 

111-112 

123-124 

229-230 

368A 

485-486 



Summary of Amendments 



The capabilities of the error processor of the FORTRAN System 
Director has been expanded. An additional message (FIW) has been added. 
See pages 22, 33-36, 43, 44, 51-56. 

A CCunit routine has been added to the Control Card routine. See 
pages 59, 62, 67. ; 

Chart KU, Phase: 25, has been added. See page 368A. 

Detailed changes have been made en pages 23, 27, 101-102, 111, 123, 
229, and 486. 

Note: Please file this cover letter at the back of the publication. 
Cover letters provide a guick reference to changes and a means to check 
the receipt of all amendments to the manual. 
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To bring your publication up to date, please replace the following 
pages with the corresponding pages attached to this Newsletter. 
Changes are indicated by a vertical line at the left of the affected 
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